DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

count element in table html

•

Join Date: Feb 2008

Posts: 20

Reputation: sal21 is an unknown quantity at this point

Solved Threads: 0

sal21

Offline

Newbie Poster

count element in table html

Mar 5th, 2009

http://www.x-rates.com/cgi-bin/cgica...lue=1&base=EUR
Based the link how to count element in table of this page?

note: is the table where are all currency values

tks.

in vba please

Last edited by sal21; Mar 5th, 2009 at 7:41 am.

•

Join Date: Mar 2009

Posts: 1,214

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 220

vb5prgrmr

Offline

Nearly a Posting Virtuoso

Re: count element in table html

Mar 5th, 2009

•

Originally Posted by sal21

http://www.x-rates.com/cgi-bin/cgica...lue=1&base=EUR
Based the link how to count element in table of this page?

note: is the table where are all currency values

tks.

in vba please

What technology are you using to view/download the document?

•

Join Date: Feb 2008

Posts: 20

Reputation: sal21 is an unknown quantity at this point

Solved Threads: 0

sal21

Offline

Newbie Poster

Re: count element in table html

Mar 5th, 2009

•

Originally Posted by vb5prgrmr

What technology are you using to view/download the document?

vba for excel.
piece of my code to connect:

Set oIE = CreateObject("InternetExplorer.Application")

With oIE

'For lngRow = 1 To lngMaxRow

' PAGINA = 1
' ABI = Empty
' ABI = WS.Range("B" & lngRow)

'If WS.Range("C" & lngRow) = Empty Then

URL = "http://www.x-rates.com/cgi-bin/cgicalc.cgi?value=1&base=EUR"
Debug.Print URL
.Visible = True
.Navigate (URL)

Do While .Busy
DoEvents
Loop

Do While .ReadyState <> 4
DoEvents
Loop

.....

ecc...

•

Join Date: Mar 2009

Posts: 1,214

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 220

vb5prgrmr

Offline

Nearly a Posting Virtuoso

Re: count element in table html

Mar 5th, 2009

Okay, at first I thought this might be tough to do since it is a spawned application, but... It was easier than I thought. Add these variables at the top.

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim C, I As Integer
Dim C, I As Integer

and then after your readystate check add this

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
For Each C In .Document.links
    I = I + 1
Next C
MsgBox I
For Each C In .Document.links
    I = I + 1
Next C
MsgBox I

Now, as you can see, "C" is a varient and "I" is used for counting the links. Also, I tried .Document.Links.Count but that is not supported so you have to enumerate through them to get the count.

Good Luck