MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Coletar dados PDF e colar no excel - Sendkeys

    avatar
    MMALHEIROS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/10/2017

    Coletar dados PDF e colar no excel - Sendkeys Empty Coletar dados PDF e colar no excel - Sendkeys

    Mensagem  MMALHEIROS em 28/5/2019, 01:18

    alguém tem uma macro para isso?

    tentei sendkeys ele abre o pdf copia porem não cola no Excel

    Abs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    Coletar dados PDF e colar no excel - Sendkeys Empty Re: Coletar dados PDF e colar no excel - Sendkeys

    Mensagem  DamascenoJr. em 28/5/2019, 03:05

    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"


    .................................................................................
    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.
    avatar
    MMALHEIROS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/10/2017

    Coletar dados PDF e colar no excel - Sendkeys Empty Parte do código ok

    Mensagem  MMALHEIROS em 28/5/2019, 16:34

    Eu consegui com esse código - AppActivate ("Excel"), porem ele cola e não procede o restante conforme código em anexo
    Abs.
    Anexos
    Coletar dados PDF e colar no excel - Sendkeys AttachmentSOB_FORMATADO.xlsm
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 6 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    Coletar dados PDF e colar no excel - Sendkeys Empty Re: Coletar dados PDF e colar no excel - Sendkeys

    Mensagem  DamascenoJr. em 30/5/2019, 21:30

    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.
    avatar
    lfelipe2013
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/07/2016

    Coletar dados PDF e colar no excel - Sendkeys Empty melhor forma de coletar dados do pdf é convertendo em excel e depois pega a informação do excel para o outro

    Mensagem  lfelipe2013 em 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

      Data/hora atual: 25/11/2020, 13:22