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.
