http://www.x-rates.com/cgi-bin/cgicalc.cgi?value=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

Recommended Answers

All 3 Replies

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...

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.

Dim C, I As Integer

and then after your readystate check add this

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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.