Copiar conteúdo PDF para Planilha Excel 2007

[demanuel1974]

Prezados,

 

O código abaixo, abre um determinado arquivo PDF, seleciona todo seu conteúdo e cola na planilha especificada. Todo o processo ocorre dentro da normalidade esperada, entretanto, qualquer instrução que tento colocar depois do sendkeys "^v", o conteúdo da área de tranferência não é colado no excel. O último código que tentei foi colocar um tempo de 10 segundos (Application.Wait (Now + TimeValue("0:00:10"))) antes da chamada do MsgBox Cells(1, 1).value, na esperança do conteúdo ser exibido, infelizmente sem sucesso.

Public Sub PgtoCEF()  Dim arquivo As Variant  Dim caminho As String   caminho = "C:\"  arquivo = "arquivo.pdf"   ActiveWorkbook.FollowHyperlink caminho & arquivo, , True      'Espera o Acrobat Reader abrir o arquivo  Application.Wait (Now + TimeSerial(0, 0, 2))     'maximiza a janela do Adoble Reader  Windows(1).Application.WindowState = xlMinimized      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader abrir o arquivo     SendKeys "^a"   'Seleciona todo o conteúdo do PDF  SendKeys "^c"   'Instução copiar do windows      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat mandar para a área de transferência     SendKeys "%{F4}"  'Fecha o Acrobat Reader      Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader Fechar      'maximiza a janela do excel que receberá o PDF que está na área de transferência  Windows(1).Application.WindowState = xlMaximized  Application.Wait (Now + TimeSerial(0, 0, 2)) 'Espera o Acrobat Reader Fechar      SendKeys "^v"  'Colar conteúdo   Application.Wait (Now + TimeValue("0:00:10"))   SendKeys "{UP}"  MsgBox Cells(1, 1).valueEnd Sub

Obs: Sem o msgbox(1,1).value no final do código o arquivo é copiado e colado normalmente. Preciso percorrer no excel todas as linhas coladas.

 

Quem puder me ajudar, ficarei imensamente agradecido,

 

Cordialmente,

 

Davi

Ribeirão Preto-SP