- 28 Ago 2022 às 20:39
#72185
Boa noite, pessoal.
Estou construindo um código que precisa ler um arquivo PDF para então extrair seus dados para o excel mas travei em um determinado ponto:
Como seria a sintaxe para arquivos PDF?
Estou construindo um código que precisa ler um arquivo PDF para então extrair seus dados para o excel mas travei em um determinado ponto:
Código: Selecionar todos
E travei nessa parte:
Sub LerPDF()
On Error GoTo Erro
Dim Plan As Worksheet
Dim Objeto As Object 'Criando a variável Objeto
Dim PDF As String
Dim Abrir_Arquivo As String
Set Objeto = CreateObject("Scripting.FileSystemObject")
PDF = Application.GetOpenFilename(FileFilter:="PDF, *.pdf")
Abrir_Arquivo = PDF
Set Documento = Objeto.OpenTextFile(PDF, 1, False) '1 porque é somente para leitura e False porque não precisa abrir o documento
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub
Código: Selecionar todos
que serve para ler arquivos do tipo .txtSet Documento = Objeto.OpenTextFile(PDF, 1, False)
Como seria a sintaxe para arquivos PDF?