MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Transpor dados de uma tabela em um arquivo PDF para o Excel, utilizando o Word

    avatar
    gabsilvel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 24/07/2022

    Transpor dados de uma tabela em um arquivo PDF para o Excel, utilizando o Word Empty Transpor dados de uma tabela em um arquivo PDF para o Excel, utilizando o Word

    Mensagem  gabsilvel 24/7/2022, 20:59

    Caros amigos, consegui um código para transferir dados de uma tabela em PDF para o excel, utilizando o word. No entanto, o script é engessado em uma quantidade fixa de linhas e colunas e que não transfere dados das demais páginas, a não ser da primeira.

    O meu objetivo é acoplar nesse código, a capacidade dele contar a quantidade de linhas e colunas que a tabela tem independente da quantidade de páginas a fim de transcrever todos os dados de qualquer tabela em PDF, independente de seu números de linhas e colunas.

    O CÓDIGO:

    Código:
    Sub lerPDF()
    Application.ScreenUpdating = False

    Dim objWord As New Word.Application
    Dim docWord As Word.Document

    caminhoArq = "C:\Users\briel\Downloads\Operações inad - por protudos - por PA.pdf"

    'objWord.Visible = True
    Set docWord = objWord.Documents.Open(caminhoArq, False, True)

    For linha = 1 To 11
        For coluna = 1 To 4
            Cells(linha, coluna).Value = WorksheetFunction.Clean(WorksheetFunction.Trim(docWord.Tables(1).Cell(linha, coluna).Range.Text))
        Next coluna
    Next linha

    docWord.Close
    Set docWord = Nothing

    objWord.Quit
    Set objWord = Nothing

    Application.ScreenUpdating = True
    End Sub

    Percebe-se que como padrão, foi atribuído 11 linhas e 4 colunas. Como alternativa, até tentei acoplar essa parte, depois de "Set docWord = objWord.Documents.Open(caminhoArq, False, True)", no código, a fim de substituir o "11" e o "4" por "Lin" e "Col", respectivamente, mas deu erro na depuração:

    Código:
    Dim Lin, Col
    ActiveDocument.Tables(1).Select
    Lin = Selection.Tables(1).Rows.Count
    Col = Selection.Tables(1).Columns.Count

    Em anexo, consta a planilha com o referido código. Gostaria de ajuda nesse caso, por gentileza 🙂

      Data/hora atual: 5/12/2022, 18:21