Abrir PDF em Pasta com Excel

Question

Boa noite!!!!

Estou usando excel 2007....

Gostaria de saber o seguinte, no form do anexo abaixo, seria possível por um código para que ao digitar no campo: "caminho do diretório" o nome do arquivo, e o mesmo se abrisse....
...de forma direta ao invés de lista-lo?
Na minha planilha "base", tem um botão chamado ListarArquivo..após abrir gostaria que ao invés de aparecer C: já ficasse o diretorio:D:\Apostilas Excel

dai era somente digitar o nome (numero), do meu arquivo.....veja o exemplo 

 
Ex: no campo da forme eu digito 987654321 que é o nome de meu arquivo e o mesmo se abrisse.

http://www.4shared.com/document/8_wFTAfK/MINUTA_DE_TRANSPORTEII_2.html

Abraços

Answer 1

quando houver o click no botão use

 

chdir "D:\Apostilas Excel"

Assim o seu diretório será alterado para o caminho especificado.

 

Teste ai e qqer coisa fale

Att

---

Bruno Silva Leite
officevb.com

Answer 2

 

"gostaria que ao invés de aparecer C: já ficasse o diretorio:D:\Apostilas Excel"

No código do seu formulário, adicione a rotina:

 

Private Sub UserForm_Initialize()

  txtCaminho.Text = "D:\Apostilas Excel\"
  txtCaminho.SetFocus

End Sub

 

"Ex: no campo da forme eu digito 987654321 que é o nome de meu arquivo e o mesmo se abrisse."

No código do seu formulário, vi que você adicionou uma API. Vamos aproveitá-la. Substitua o código do cmdListaArquivos_Click por:

Private Sub cmdListaArquivos_Click()

  ShellExecute Application.hwnd, "open", txtCaminho.Text & ".pdf", vbNullString, "C:\", SW_SHOWMAXIMIZED

End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 3

 

Bao noite!!!

Obrigado pela resposta..mas...

Sou muito leigo em vba..testei neste código abaixo e não deu certo..poderia testar no meu anexo para ver o que fiz de errado?

Private Sub cmdListaArquivos_Click()

 

 

    lstArquivos.Clear

    Dim arquivos() As String

    Dim lCtr As Long

    arquivos = ListaArquivos(txtCaminho.Text)

    For lCtr = 0 To UBound(arquivos)

      lstArquivos.AddItem arquivos(lCtr)

 

    Next

End Sub

 

Obrigado!!

Answer 4

Eu executei o código em seu anexo e deu certo. Leia novamente: eu criei um novo procedimento dentro do código do Formulário e substituí o código do cmdListaArquivos_Click() pelo mostrado acima.

Qual é o erro que você está obtendo?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 5

Boa noite!!

 

Caramba..muito bom!!!!..consegui

Valeu Benzadeus..Muito Obrigado!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!