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
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Boa tarde!!
Enquanto alguém não responde, poste seu arquivo modelo!
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
No frmconsulta botao boleto, gostaria que quando clicasse nele abrisse o pdf
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Vou testar e já posto aqui, obrigado.
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!
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Oi boa tarde,
Valeuuuuuuuu isso mesmo, muito obrigado pela ajuda!
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel