Dúvida abrir arquivo

[lulrich]

Oi boa tarde,

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.

[vbalexandre]

Boa noite!!

Tente ...

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim FileName As String
'Caminho do seu diretório
Const FilePath = "C:\Documents and Settings\hacker\Meus documentos\Downloads\"
'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

Considerando que você vai usar um botão de comando.

Att

[lulrich]

Oi bom dia,

Quase consegui resolver, o problema agora é que ele abre o arquivo que quero em Excel ao invés de PDF, alguma sugestão?
Obrigado