none
Coleta de valores de campos RRS feed

  • Pergunta

  • Senhores,

    Andei pesquisando na net, porém não encontrei o q preciso.

    Tenho uma pagina da intranet da empresa onde tenho que pegar todos os valores nos vários campos da mesma(todos campos input text) e jogar em uma planilha Excel.

    Preciso de uma rotina em vbscript que olhe todos esses campos(valores) e faça a copia dos valores para o excel.

    Obs: o script não chama a pagina, somente le a pagina ativa.

    Se alguém poder me ajudar eu agradeço desde já.


    EliManoel

    quinta-feira, 11 de dezembro de 2014 13:54

Respostas

Todas as Respostas

  • Eli,

    Isso é complicado.

    Fiz um exemplo que copia o que está na página aberta do Internet Explorer (ela tem que estar ativa) e salva o conteúdo em um arquivo texto, aí você pode abrir o arquivo e com um outro VBS "destrinchar os dados".

    Set WshShell = WScript.CreateObject("WScript.Shell")
    
    wscript.sleep 5000
    
    'Envia comandos para o IE para copiar os dados da página
    WshShell.SendKeys "%"
    wscript.sleep 1000
    WshShell.SendKeys "E"
    wscript.sleep 1000
    WshShell.SendKeys "S"
    wscript.sleep 1000
    WshShell.SendKeys "%"
    wscript.sleep 1000
    WshShell.SendKeys "E"
    wscript.sleep 1000
    WshShell.SendKeys "C"
    
    'Abre o notepad e ativa
    WshShell.Run "%windir%\notepad.exe"
    WshShell.AppActivate "Notepad"
    
    'Envia comandos para colar
    wscript.sleep 1000
    WshShell.SendKeys "%"
    wscript.sleep 1000
    WshShell.SendKeys "E"
    wscript.sleep 1000
    WshShell.SendKeys "l"
    
    'Envia comando para Salvar
    wscript.sleep 1000
    WshShell.SendKeys "%"
    wscript.sleep 1000
    WshShell.SendKeys "A"
    wscript.sleep 1000
    WshShell.SendKeys "v"
    wscript.sleep 1000
    WshShell.SendKeys "c:\temp\teste.txt"
    WshShell.SendKeys "{ENTER}"
    
    

    Dependendo da formatação da página você pode incluir neste script um código para abrir o excel e colar os dados.


    Fábio de Paula Junior

    terça-feira, 16 de dezembro de 2014 19:58
    Moderador
  • Obrigado Fábio,

    Vou tentar adaptar ao meu caso e retorno, ok?


    EliManoel

    terça-feira, 16 de dezembro de 2014 20:21
  • Testou?

    Fábio de Paula Junior

    segunda-feira, 5 de janeiro de 2015 16:15
    Moderador
  • Não funcionou da maneira que eu preciso... na verdade eu tenho que capturar o conteúdo de vários edit.text's em uma ordem aleatória, ai neste caso eu tenho que apontar diretamente para estes campos pelo nome do campo ou ID. Eu tenho o nome dos campos, mas não sei como fazer o apontamento dos mesmos.  

    EliManoel


    • Editado Eli Manoel segunda-feira, 5 de janeiro de 2015 16:26
    segunda-feira, 5 de janeiro de 2015 16:25
  • Já tentou salvar a página e tentar ler o html salvo?

    Fábio de Paula Junior

    quarta-feira, 14 de janeiro de 2015 13:38
    Moderador