locked
Abrir PDF em Pasta com Excel RRS feed

  • 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 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
    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
    quinta-feira, 27 de janeiro de 2011 22:22
    Moderador

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.com
    quinta-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
    quinta-feira, 27 de janeiro de 2011 22:22
    Moderador
  •  

    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.br
    sexta-feira, 28 de janeiro de 2011 19:32
    Moderador
  • Boa noite!!

     

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

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

    sexta-feira, 28 de janeiro de 2011 21:22