Este fórum está sendo desativado

[SandroLima]

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:

Código: Selecionar todos

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

E travei nessa parte:

Código: Selecionar todos

Set Documento = Objeto.OpenTextFile(PDF, 1, False)

que serve para ler arquivos do tipo .txt

Como seria a sintaxe para arquivos PDF?