Guru do Excel e Power BI

Enviado: **28 Mar 2017 às 09:40**

Pessoal bom dia.

Necessito criar uma macro para copiar e colar um arquivo PDF para dentro do Excel.

Fiz uma rotina que o usuário após dar um CTRL-C no PDF, ele aciona uma macro para colar os dados da área de transferência para o Excel porém está dando falha, segue o código:

Código: Selecionar todos

    With ThisWorkbook
    
        With .Sheets("REF")
            .Select
            .Range("A1:A30000").ClearContents
            With .Range("A1")
                .Select
                .Paste
            End With
        End With
    
    End With

Me ajudem a solucioná-lo ou se alguém conhecer um jeito mais eficiente de copiar todo o conteúdo de um PDF para uma Sheet do Excel poderá resolver também.

Enviado: **28 Mar 2017 às 12:39**

Gilbert
Boa tarde,

Tente isso.
***Obs. Importante: Como iremos utilizar o Navegador do InternetExplorer é necessário que você ative as Referências do mesmo.
Com VBA aberto vá em: Ferramentas > Referências | Ative as seguinte referências:
>> Microsoft HTML Object Library
>> Microsoft Internet Control

Código: Selecionar todos

Sub CopiarPDF()
Dim IE As InternetExplorer
Dim Endereco As String

Endereco = "C:\MEUPDF.pdf" 'Ajustar caminho
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate Endereco, vbMaximizedFocus

Application.Wait DateAdd("s", 2, Now) 'É importante aguardar esse tempo para que o arquivo esteja completamente aberto
SendKeys "^a"   'Selecionando todo o PDF
Application.Wait DateAdd("s", 3, Now) 'É importante aguardar esse tempo pois a Macro pode mandar o COPIAR antes que todo PDF esteja SELECIONADO
SendKeys "^c"   'Copiando

Application.Wait DateAdd("s", 5, Now)

SendKeys "%{F4}"    'Fechando PDF
SendKeys "n"

Application.Wait DateAdd("s", 5, Now)

'Colando PDF no Excel
Plan1.Range("A1").Select
ActiveSheet.Paste
End Sub

Enviado: **28 Mar 2017 às 13:04**

Este arquivo de EXCEL vai rodar em outras máquinas aqui na empresa, pergunta:

Se eu ativar estas referencias, as mesmas irão funcionar quando o arquivo for aberto em outra máquina (em outra instalação do EXCEL)? Ou terei que configurar máquina por máquina?

Enviado: **28 Mar 2017 às 14:03**

Gilbert

As referencias ficam salvas no arquivo, ou seja, ela funcionará em qlq máquina que possua o Excel e o InternetExplorer.
Não será assim necessário configurá-la em todas as máquinas, uma vez q a configuração e feita no arquivo!!!

Guru do Excel e Power BI

Obter dados de um PDF externo para o EXCEL

Obter dados de um PDF externo para o EXCEL

Obter dados de um PDF externo para o EXCEL

Obter dados de um PDF externo para o EXCEL

Re: Obter dados de um PDF externo para o EXCEL