Vídeo recomendado
https://youtu.be/diWPPPhW-9E

abrir arquivo PDF pelo excel

Dúvidas gerais sobre Excel
fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

abrir arquivo PDF pelo excel

Mensagem por fabiodias »

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!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

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


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

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!!
Anexos
Procura busca arquivos e abre.rar
(14.26 KiB) Baixado 631 vezes


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

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!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

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


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

Muito obrigado Mauro!!

vou tentar baixar esse programa em casa.. se conseguir alguma coisa descrevo aqui.

Agradeço a atenção!!

abraço!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: abrir arquivo PDF pelo excel

Mensagem por webmaster »

Pessoal,

Lembrem-se da função ShellExecute:

http://www.tomasvasquez.com.br/blog/mic ... ute-no-vba

Abraços


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

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!


fabiodias
Colaborador
Colaborador
Mensagens: 97
Registrado em: Seg Set 21, 2009 10:25 am

Re: abrir arquivo PDF pelo excel

Mensagem por fabiodias »

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!!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: abrir arquivo PDF pelo excel

Mensagem por webmaster »

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
Anexos
ListaArquivosDiretorio.zip
(10.67 KiB) Baixado 368 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder