Ir para o conteúdo
demanuel1974

Depois de colar com VBA, Excel 2007 impede prosseguir com código

Mensagens Recomendadas

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).value
End 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

Brasil

Editado por apocsantos
geshi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.