Inícioalguém tem uma macro para isso?
tentei sendkeys ele abre o pdf copia porem não cola no Excel
Abs
tentei sendkeys ele abre o pdf copia porem não cola no Excel
Abs
3 participantes
Coletar dados PDF e colar no excel - Sendkeys
MMALHEIROS- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11
Registrado : 18/10/2017
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
Ao abrir o PDF o foco da tela vai para o adobe e o sendkeys consegue selecionar e copiar o conteúdo, certo? Basta daí então voltar a ativar a tela do excel para enviar o ctrl+V.
Tente voltar o foco para o excel com a linha de comando AppActivate "Microsoft Excel"
Tente voltar o foco para o excel com a linha de comando AppActivate "Microsoft Excel"
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
MMALHEIROS- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11
Registrado : 18/10/2017
Eu consegui com esse código - AppActivate ("Excel"), porem ele cola e não procede o restante conforme código em anexo
Abs.
Abs.
- Anexos
SOB_FORMATADO.xlsm - Você não tem permissão para fazer download dos arquivos anexados.
- (34 Kb) Baixado 13 vez(es)
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
Diversos erros ao tentar executar seu arquivo no procedimento M3_PDF. Referência SELENIUM TYPE LIBRARY dando ausente. Creio que por aqui as chances de resolver sua questão são mínimas visto que o fórum é mais voltado para VBA ACCESS.
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
lfelipe2013- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5
Registrado : 19/07/2016
- Mensagem nº5
melhor forma de coletar dados do pdf é convertendo em excel e depois pega a informação do excel para o outro
lfelipe2013 29/9/2020, 05:37
Se estiver usando o SELENIUM para fazer o processo
Eu fiz dessa forma:
Function AbreConversor(arquivo As String) As Boolean
'caso tenha já uma pagina carregada a linha abaixo abre uma outra aba na mesma pagina
2 PagePorto.ExecuteScript ("window.open('https://www.ilovepdf.com/pt/pdf_para_excel')")
'mudo o foco da aba para a aba do conversor
3 PagePorto.SwitchToWindowByTitle ("Transfira dados de PDF para EXCEL. PDF para XLS online")
4 PagePorto.Wait (2000)
'PagePorto.SwitchToNextWindow
5 PagePorto.FindElementByXPath("/html/body/div[2]/div[1]/div[1]/div[3]/div[3]/input", 100).SendKeys arquivo
6 PagePorto.Wait (2000)
7 PagePorto.FindElementByXPath("//*[@id=""processTask""]", 100).Click
8 PagePorto.Wait (9000)
9 'caminho = Environ("USERPROFILE")
10 caminho = caminho & Replace(arquivo, ".pdf", ".xlsx")
11 cont = 1
'valido se o download foi concluído até o arquivo existir na pasta destino, nao é a melhor forma de verificar isso, mas é a mais rápida.
12 Do While FileExists(caminho) = False
13 If cont = 30 Then
'arquivo não localizado
14 AbreConversor = False
15 PagePorto.Get "https://www.ilovepdf.com/pt/pdf_para_excel"
16 Exit Function
17 Else
18 PagePorto.Wait (5000)
19 cont = cont + 1
20 End If
21 Loop
22 PagePorto.Get "https://www.ilovepdf.com/pt/pdf_para_excel"
23 AbreConversor = True
End Function
Espero ter ajudado
Eu fiz dessa forma:
Function AbreConversor(arquivo As String) As Boolean
'caso tenha já uma pagina carregada a linha abaixo abre uma outra aba na mesma pagina
2 PagePorto.ExecuteScript ("window.open('https://www.ilovepdf.com/pt/pdf_para_excel')")
'mudo o foco da aba para a aba do conversor
3 PagePorto.SwitchToWindowByTitle ("Transfira dados de PDF para EXCEL. PDF para XLS online")
4 PagePorto.Wait (2000)
'PagePorto.SwitchToNextWindow
5 PagePorto.FindElementByXPath("/html/body/div[2]/div[1]/div[1]/div[3]/div[3]/input", 100).SendKeys arquivo
6 PagePorto.Wait (2000)
7 PagePorto.FindElementByXPath("//*[@id=""processTask""]", 100).Click
8 PagePorto.Wait (9000)
9 'caminho = Environ("USERPROFILE")
10 caminho = caminho & Replace(arquivo, ".pdf", ".xlsx")
11 cont = 1
'valido se o download foi concluído até o arquivo existir na pasta destino, nao é a melhor forma de verificar isso, mas é a mais rápida.
12 Do While FileExists(caminho) = False
13 If cont = 30 Then
'arquivo não localizado
14 AbreConversor = False
15 PagePorto.Get "https://www.ilovepdf.com/pt/pdf_para_excel"
16 Exit Function
17 Else
18 PagePorto.Wait (5000)
19 cont = cont + 1
20 End If
21 Loop
22 PagePorto.Get "https://www.ilovepdf.com/pt/pdf_para_excel"
23 AbreConversor = True
End Function
Espero ter ajudado
Conteúdo patrocinado
|
|
|