VBA INTERNET

EDSONSOULREAVER 19/12/2011 08:12:23
#391596

Pessoal,
Bom dia,

Fiz um procedimento onde acesso o site pelo VBA Excel para pegar dados de uma tabela,porém a url tem mais de uma página.Existe alguma propriedade ou método que eu possa identificar as demais páginas, atualmente os dados só vem da primeira página as demais não consigo pegar.

abs,

Segue parte do código,precisaria achar um meio de colocar no for as demais páginas, sendo que essas páginas podem variar de acordo com a informação, em um dia posso ter 10 páginas em outro pode ter 12 ou 13 etc...

Option Explicit

Sub Importar_Excel()

Dim elemCollection As Object
Dim t As Integer
Dim r As Integer, c As Integer


Set wsh = Worksheets([Ô]Plan1[Ô])

Set elemCollection = ie.document.getElementsByTagName([Ô]TABLE[Ô])

For t = 0 To elemCollection.Length - 1
For r = 0 To elemCollection(t).Rows.Length - 1
For c = 0 To elemCollection(t).Rows®.Cells.Length - 1
wsh.Cells(r + 1, c + 1) = elemCollection(t).Rows®.Cells©.innerText
Next c

Next r
Next t


End Sub