Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Dúvida ao abrir arq...
 
Notifications
Clear all

Dúvida ao abrir arquivo PDF

 
2024 - VBA & Macros
14 Posts
2 Usuários
0 Reactions
1,598 Visualizações
RSS
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

Oi bom dia, estava com a seguinte dúvida abaixo:

Sou iniciante em vba e gostaria de um código em vba que abra o arquivo em uma pasta (a pasta será sempre a mesma) e o arquivo será sempre o valor que conter em textbox1, exemplo: Digitei em textbox1 005000-1 e cliquei no botao abrir, abrirá o arquivo com este nome naquela pasta, obrigado.

e Foi resolvida com o código abaixo:

Private Sub CommandButton1_Click()
Dim FileName As String
'Caminho do seu diretório
Const FilePath = "C:Documents and SettingshackerMeus documentosDownloads"
'Nome e extenção do arquivo
FileName = Dir(FilePath & TextBox1.Text)
Do While FileName <> vbNullString
Workbooks.Open FileName:=FilePath & FileName
FileName = Dir()
Loop
End Sub

Só que agora ele abre o arquivo PDF no próprio excel e fica tudo em código, como eu faço para abrir no adobe reader este arquivo pdf? Obrigado

 
Postado : 16/12/2013 8:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Por favor, use a pesquisa do fórum e indique a Postagem-Cruzada!!!

http://www.tomasvasquez.com.br/forum/vi ... =20&t=2893

Já tentou algo

Sub AbrirPDF()

    Dim pdf As AcroPDDoc
    Dim strPDF As String

    Set pdf = CreateObject("AcroExch.PDDoc")
    
    'pdf file to open
    strPDF = "K:PDFSeupdf.pdf"

    'Abrir arquivo PDF
    pdf.Open strPDF

End Sub

viewtopic.php?f=10&t=2140
Att

 
Postado : 16/12/2013 8:25 am
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

Ajustei conforme abaixo só que agora diz que componente activeX não pode ser criado

Dim pdf As AcroPDDoc
Dim strPDF As String
Dim FileName As String
'Caminho do seu diretório
Const FilePath = "Z:ADMFINANCEIROBOLETOS"
'Nome e extenção do arquivo
FileName = Dir(FilePath & TextBox2.Text)
Do While FileName <> vbNullString
FileName = Dir()
Loop

Set pdf = CreateObject("AcroExch.PDDoc")

'pdf file to open
strPDF = FileName

'Abrir arquivo PDF
pdf.Open strPDF

 
Postado : 16/12/2013 11:27 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Enquanto alguém não responde, poste seu arquivo modelo!

Att

 
Postado : 16/12/2013 11:30 am
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

No frmconsulta botao boleto, gostaria que quando clicasse nele abrisse o pdf

modelo.xlsm
 
Postado : 16/12/2013 11:37 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Para você não serve abrir um diretório e escolher os arquivos?

Private Sub btnboleto_Click()
    ActiveWorkbook.FollowHyperlink "C:Documents and SettingsTesteMeus documentosDownloads"
End Sub

Att

 
Postado : 16/12/2013 11:56 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se ajuda

Private Sub btnboleto_Click()

MyPath = "C:Arquivos de programasAdobeReader 10.0ReaderAcroRd32.exe"
MyFile = "C:Documents and SettingsUserAleVBAMeus documentosDownloadsExercícios_vet.pdf" '<- Um arquivo em especifico foi referenciado
Shell MyPath & " " & MyFile, vbNormalFocus

End Sub

Obs: Cuidado com as referências marcadas como Ausente, se houver desmarque!

Att

 
Postado : 16/12/2013 12:09 pm
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

Vou testar e já posto aqui, obrigado.

 
Postado : 16/12/2013 12:15 pm
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

Este último método ele abre apenas um arquivo que tem que colocar na linha, vou continuar tentando naquele segundo método, mas mesmo assim obrigado!

 
Postado : 16/12/2013 12:54 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você tem um diretório fixo com vários PDF's?
Mas eu não entendi, onde você vai digitar o nome do arquivo :?

Att

 
Postado : 16/12/2013 12:56 pm
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

Oi desculpa acho que não fui específico,

Tenho um diretório fixo, com vários arquivos pdf, onde no textbox1 digitarei o nome deste arquivo e no botao boleto ele irá abrir o arquivo pdf de nome que digitei no textbox1

 
Postado : 16/12/2013 1:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

já tentou assim

Private Sub btnboleto_Click()

MyPath = "C:Arquivos de programasAdobeReader 10.0ReaderAcroRd32.exe"
MyFile = "C:Documents and SettingsUserAleVBAMeus documentosDownloads" & Me.TextBox2
Shell MyPath & " " & MyFile, vbNormalFocus

End Sub

Att

 
Postado : 16/12/2013 1:33 pm
 lulrich
(@lulrich)
Posts: 10
Active Member
Topic starter
 

Oi boa tarde,

Valeuuuuuuuu isso mesmo, muito obrigado pela ajuda!

 
Postado : 16/12/2013 1:42 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Essa forma tem uma vantagem, veja.

Private Sub btnboleto_Click()
If Me.TextBox2.Value = "" Or Me.TextBox2 <> MyFile Then
MsgBox "Preencha o campo ou verifique se foi digitado o nome do arquivo corretamente", vbInformation, "Atenção"
Else
MyPath = "C:Arquivos de programasAdobeReader 10.0ReaderAcroRd32.exe"
MyFile = "C:Documents and SettingsoraculoMeus documentosDownloads" & Me.TextBox2 & ".pdf"
Shell MyPath & " " & MyFile, vbNormalFocus
End If
End Sub

Click na mãozinha
Att

 
Postado : 16/12/2013 1:50 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico