Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por SandroLima
#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:
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?

=SE(MÊS(A1)<7;"1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um "[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord