Usuário com melhor resposta
Abrir PDF em Pasta com Excel

Pergunta
-
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 Exceldai 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- Tipo Alterado Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:16
quinta-feira, 27 de janeiro de 2011 21:24
Respostas
-
"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- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:16
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:16
quinta-feira, 27 de janeiro de 2011 22:22Moderador
Todas as Respostas
-
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.comquinta-feira, 27 de janeiro de 2011 22:17 -
"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- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:16
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 16:16
quinta-feira, 27 de janeiro de 2011 22:22Moderador -
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!!
quinta-feira, 27 de janeiro de 2011 23:47 -
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.brsexta-feira, 28 de janeiro de 2011 19:32Moderador -
Boa noite!!
Caramba..muito bom!!!!..consegui
Valeu Benzadeus..Muito Obrigado!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sexta-feira, 28 de janeiro de 2011 21:22