Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
abrir arquivo PDF pelo excel
abrir arquivo PDF pelo excel
Olá pessoal!!
tenho uma dúvida quanto a um codigo que peguei para abrir arquivo de excel.. porém mudei o codigo para abrir tambem em PDF na planilha:
Private Sub CommandButton1_Click()
x = GetDirectory
ligne = Dir(x & "\" & "*.*")
Do While ligne <> ""
DoEvents
ligne = Dir()
ListBox1.AddItem ligne
Loop
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If mbDisableEvents Then Exit Sub
mbDisableEvents = True
With Me.ListBox1
If .ListCount > 0 Then
If .ListIndex = .ListCount - 1 Then
.ListIndex = .ListCount - 1
End If
End If
'MsgBox "Vous avez sélectionné :" & .List(.ListIndex)
End With
mbDisableEvents = False
End Sub
Private Sub CommandButton2_Click()
'pour ouvrir le classeur sélectionné
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub
porem ta dando erro no codigo que esta em negrito.
alguem sabe informar o porque desse erro?
desde ja agradeço!!
tenho uma dúvida quanto a um codigo que peguei para abrir arquivo de excel.. porém mudei o codigo para abrir tambem em PDF na planilha:
Private Sub CommandButton1_Click()
x = GetDirectory
ligne = Dir(x & "\" & "*.*")
Do While ligne <> ""
DoEvents
ligne = Dir()
ListBox1.AddItem ligne
Loop
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If mbDisableEvents Then Exit Sub
mbDisableEvents = True
With Me.ListBox1
If .ListCount > 0 Then
If .ListIndex = .ListCount - 1 Then
.ListIndex = .ListCount - 1
End If
End If
'MsgBox "Vous avez sélectionné :" & .List(.ListIndex)
End With
mbDisableEvents = False
End Sub
Private Sub CommandButton2_Click()
'pour ouvrir le classeur sélectionné
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub
porem ta dando erro no codigo que esta em negrito.
alguem sabe informar o porque desse erro?
desde ja agradeço!!
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: abrir arquivo PDF pelo excel
fabio, testei a rotina e a mesma funcionou perfeitamente, o erro que acontece na linha especificado somente ocorre se o Listbox1 estiver vazio ou não tiver sido selecionado nenhum arquivo, conforme diz o enunciado antes da rotina:
Private Sub CommandButton2_Click()
'pour ouvrir le classeur sélectionné
'para abrir o arquivo selecionado
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub
Só não encontrei nas linhas a parte referente a arquivos PDF.
abraços
Private Sub CommandButton2_Click()
'pour ouvrir le classeur sélectionné
'para abrir o arquivo selecionado
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub
Só não encontrei nas linhas a parte referente a arquivos PDF.
abraços
Re: abrir arquivo PDF pelo excel
Olá Mauro!
estou enviando a planilha com o codigo que falei.. os arquivos em excel abrem normalmente, mas quando coloco extensão para arquivos em geral da erro.
mudei para "*.*" ou para PDF "*.pdf"
quando puder, tenta mudar para abrir arquivos PDF pra ver se abre aí ou se precisa fazer mais alguma coisa..
abraços!!
estou enviando a planilha com o codigo que falei.. os arquivos em excel abrem normalmente, mas quando coloco extensão para arquivos em geral da erro.
mudei para "*.*" ou para PDF "*.pdf"
quando puder, tenta mudar para abrir arquivos PDF pra ver se abre aí ou se precisa fazer mais alguma coisa..
abraços!!
- Anexos
-
- Procura busca arquivos e abre.rar
- (14.26 KiB) Baixado 631 vezes
Re: abrir arquivo PDF pelo excel
Olá pessoal..
procurei em tudo que é lugar e ainda não achei uma solução para o caso acima..
se alguem viu ou sabe de alguma coisa, escreve alguma coisa aqui por favor!!!
se eu souber tambem coloco aqui.
abraço!!!
procurei em tudo que é lugar e ainda não achei uma solução para o caso acima..
se alguem viu ou sabe de alguma coisa, escreve alguma coisa aqui por favor!!!
se eu souber tambem coloco aqui.
abraço!!!
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: abrir arquivo PDF pelo excel
Fábio, pelo que percebi, a rotina abre um arquivo no proprio excel, então se for um arquivo XLS o mesmo é aberto, se for TXT tambem, mas para arquivos PDF ou teria de ser convertido para XLS ou ter na rotina qual o programa irá abri-lo :
No Excel 2007 me parece que existe um ADDIN, mas no 2003 eu não encontrei nada, a não ser uma linha para abrir o arquivo no Acrobat :
Shell("C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe C:\manual.pdf", 1).
Existe na net programas para converter PDF para XLS, se ajudar é só dar uma pesquisada no Google.
Veja um exemplo do programa PDF2XL:
http://www.cogniview.com/pdf2xl-interac ... n.php#jump
Espero que ajude.
abraços
No Excel 2007 me parece que existe um ADDIN, mas no 2003 eu não encontrei nada, a não ser uma linha para abrir o arquivo no Acrobat :
Shell("C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe C:\manual.pdf", 1).
Existe na net programas para converter PDF para XLS, se ajudar é só dar uma pesquisada no Google.
Veja um exemplo do programa PDF2XL:
http://www.cogniview.com/pdf2xl-interac ... n.php#jump
Espero que ajude.
abraços
Re: abrir arquivo PDF pelo excel
Muito obrigado Mauro!!
vou tentar baixar esse programa em casa.. se conseguir alguma coisa descrevo aqui.
Agradeço a atenção!!
abraço!!
vou tentar baixar esse programa em casa.. se conseguir alguma coisa descrevo aqui.
Agradeço a atenção!!
abraço!!
Re: abrir arquivo PDF pelo excel
Pessoal,
Lembrem-se da função ShellExecute:
http://www.tomasvasquez.com.br/blog/mic ... ute-no-vba
Abraços
Lembrem-se da função ShellExecute:
http://www.tomasvasquez.com.br/blog/mic ... ute-no-vba
Abraços
Re: abrir arquivo PDF pelo excel
O ShellExecute é bom para abrir as pastas referente ao arquivo... até onde entendi só funciona se for para abrir sempre um arquivo específico.
porém para utilizar por exemplo em um listbox onde voce faz a pesquisa de um documento .. filtrando um arquivo chamado "tutorial.pdf", aí quando aparecer no list box, clicar 2x nele q vai abrir o arquivo filtrado.
tem como fazer isso no ShellExecute?? ou só abre um arquivo específico?
abraço!
porém para utilizar por exemplo em um listbox onde voce faz a pesquisa de um documento .. filtrando um arquivo chamado "tutorial.pdf", aí quando aparecer no list box, clicar 2x nele q vai abrir o arquivo filtrado.
tem como fazer isso no ShellExecute?? ou só abre um arquivo específico?
abraço!
Re: abrir arquivo PDF pelo excel
Ah... tem até um modelo no blog chamado "listaArquivosDiretório"..
seria tipo aquele mesmo... só que depois de listar os aqruivos.. pudesse clicar em qualquer um deles que abriria o arquivo.
se der pra fazer nesse entao daria pra fazer numa listbox no form de pesquisa de documentos.
abraços e desde ja agradeço a atenção!!
seria tipo aquele mesmo... só que depois de listar os aqruivos.. pudesse clicar em qualquer um deles que abriria o arquivo.
se der pra fazer nesse entao daria pra fazer numa listbox no form de pesquisa de documentos.
abraços e desde ja agradeço a atenção!!
Re: abrir arquivo PDF pelo excel
Fabio,
A vantagem do shellexecute é que você consegue, teoricamente, executar um arquivo, como se você desse um duplo clique sobre ele. O que vai acontecer é que o Windows vai tentar abri-lo em um programa padrão.
Quanto ao listaArquivoDiretorio, deve ser exatamente o que quer. Mapeie o DblClick sobre ele e pegue o item selecionado para "disparar" o arquivo. Segue o arquivo modificado.
Abraços
A vantagem do shellexecute é que você consegue, teoricamente, executar um arquivo, como se você desse um duplo clique sobre ele. O que vai acontecer é que o Windows vai tentar abri-lo em um programa padrão.
Quanto ao listaArquivoDiretorio, deve ser exatamente o que quer. Mapeie o DblClick sobre ele e pegue o item selecionado para "disparar" o arquivo. Segue o arquivo modificado.
Abraços
- Anexos
-
- ListaArquivosDiretorio.zip
- (10.67 KiB) Baixado 368 vezes