none
COMO COPIAR DADOS DE UM SITE NA INTERNET COM MACRO VBA OU VBSCRIPT RRS feed

  • Pergunta

  • BOM DIA Á TODOS.

    TENHO TENTADO DE DIVERSAS FORMAS PESQUISAR ALGUMA MANEIRA DE COPIAR OS DADOS DE UM SITE DA INTERNET PARA EXCEL, OU PARA ARQUIVO TEXTO, PORÉM NÃO CONSEGUI ALGO CONCRETO.

    JÁ PESQUISEI A FUNCIONALIDADE SENDKEYS, PORÉM NÃO OBTIVE SUCESSO, JÁ PESQUISEI SOBRE DIVERSAS CODIFICAÇÕES EM VBA E NÃO CONSEGUI.

    ALGUÉM SABERIA ALGUMA FUNÇÃO OU CÓDIGO QUE PODERIA FUNCIONAR EM EXTRAIR DADOS DE UMA PÁGINA NA INTERNET?

    JÁ CONSEGUI FAZER O CÓDIGO ABAIXO FUNCIONAR E RODAR PERFEITAMENTE, SÓ NECESSITO AGORA COPIAR OS DADOS DO SITE APRESENTADO.

    Private Declare Function ScriptInternet Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal operation As String, ByVal filename As String, Optional ByVal parameters As String, Optional ByVal directory As String, Optional ByVal windowstyle As Long = vbMinimizedFocus) As Long
    Private Sub OpenUrl_Click()

    Dim NUMPROCESSOS As Integer
    Dim PROCESSO As String
    Dim DIGITO As String
    Dim ANO As String
    Dim VARA As String
    Dim TEXTO1 As String
    Dim TEXTO2 As String
    Dim TEXTO3 As String
    Dim TEXTO4 As String
    Dim MOVE As Integer


    NUMPROCESSOS = Me.TextBox1
    MOVE = 2

    For MOVE = 2 To NUMPROCESSOS

    PROCESSO = Cells(MOVE, "B").Value
    DIGITO = Cells(MOVE, "C").Value
    ANO = Cells(MOVE, "D").Value
    VARA = Cells(MOVE, "E").Value
    TEXTO1 = "http://consulta.trt15.jus.br/consulta/owa/pProcesso.wListaProcesso?pTipoConsulta=PROCESSOCNJ&pArgumento1="
    TEXTO2 = "&pArgumento2="
    TEXTO3 = "&pArgumento3="
    TEXTO4 = "&pArgumento4="

    Dim iAcesso As Long
    iAcesso = ScriptInternet(0, "Open", TEXTO1 + PROCESSO + TEXTO2 + DIGITO + TEXTO3 + ANO + TEXTO4 + VARA)

    Next MOVE

    End Sub

    ALGUÉM TERIA ALGUMA IDEIA DE COMO SOLUCIONAR ESSE PROBLEMA...???

    DESDE JÁ AGRADEÇO IMENSAMENTE A AJUDA.

    MUITO OBRIGADO.

     

    segunda-feira, 5 de agosto de 2013 14:23