BUSCAR DADOS DE UMA PAGINA WEB

WILSONJ 20/07/2012 12:21:27
#406349

Senhores bom dia.
Estou fazendo um robô para capturar informações de um site.
Consegui entrar no site, acessar alguns dados, em seguida ele abre aparentemente um grid que devemos posicionar o mouse sobre ele e clicar para ter acesso a este dado, e fazer isso um a um.
Gostaria se possivel alguem me dizer como posicionar e clicar o mouse neste grid e rolar um a um para capturar os dados.
Fico grato, segue o código.

Obrigado a todos.


Private Sub Command1_Click()
Dim ie As InternetExplorer
Dim ie2 As InternetExplorer

Dim C
Dim ULogin As Boolean, ieForm
Dim MyPass As String, MyLogin As String
Dim sCNPJ As String
Dim sDi As String

On Error GoTo Trata_Erro

redo:

Set ie = New InternetExplorer
Set ie2 = New InternetExplorer

ie.Visible = True

ie.Width = 800


ie.Navigate [Ô]http://cib.brasilglobalnet.gov.br/frmPesquisa.aspx[Ô]

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop


ie.Document.All([Ô]cphCentral_ddlEstado[Ô]).Value = [Ô]SP[Ô]
ie.Document.All([Ô]cphCentral_imbPesquisarEmpresas[Ô]).Click
Sleep (10000)

ie.Document.All([Ô]headerDataGrid[Ô]).linhaMouseOut(1).Click

Trata_Erro:

Screen.MousePointer = vbDefault


Select Case Err.Number
Case 91

Err = 0

Sleep (10000)

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop


Exit Sub
End Select
Err = 0


End Sub