View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Rik Rik is offline
external usenet poster
 
Posts: 16
Default Import data from web page into excel

Ok, i'm making progress now : i found the url to the webpage which is opened
by the code now. Following testcode does the job :

Sub Getquotes()

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

URL =
"https://www.binck.com/gekko/default.aspx?Redir=/gekko/common/researchennieuws/fondsdetails/overzicht.aspx?binc=1068754"
Request = ""

'get web page
IE.Navigate2 URL & Request
Do While IE.readyState < 4
DoEvents
Loop

Set last = IE.document.getElementByID("1068754|LAST")
Range("A1") = last

End Sub


This code fails at line : Range("A1")=last (failure 1004)
In the sourcecode of the webpage i could find :

</td
<td align="center" style="width:300" class='cSideCell'
<div id="smfHeader_PnlSide"
<br<table class="verticaltable" rules="cols" border="1"
<tr
<th class="thead" align="center" valign="middle" colspan="4"
style="font-size:10pt;"<a
href="/gekko//common/researchennieuws/fondsdetails/overzicht.aspx?binc=1068754"FTI SEP 2008</a</th
</tr<tr class="bkgnd_0"
<td align="left" style="width:68px;"Laatste</td<td align="right"
ID="1068754|LAST" NAME="1068754|LAST" style="width:68px;"356,50<span
class='c4d'00</span</td<td align="right" ID="1068754|TIME"
NAME="1068754|TIME" style="width:68px;"9:42</td<td align="right"
ID="1068754|LASTVOL" NAME="1068754|LASTVOL" style="width:68px;"1</td
</tr<tr class="bkgnd_1"
<td align="left"+/-</td<td class="cQuoteUp" align="right"
ID="1068754|DELTAABS" NAME="1068754|DELTAABS"1,50<span
class=c4d00</span</td<td class="cQuoteUp" align="right"
ID="1068754|DELTAREL" NAME="1068754|DELTAREL"0,42%</td<td
align="right"</td
</tr<tr class="bkgnd_0"
<td align="left"Slot</td<td align="right" ID="1068754|CLOSE"
NAME="1068754|CLOSE"355,00<span class='c4d'00</span</td<td align="right"
ID="1068754|CLOSETIME" NAME="1068754|CLOSETIME"17-09-08</td<td
align="right"</td
</tr<tr class="bkgnd_1"
<td align="left"Open</td<td align="right" ID="1068754|OPEN"
NAME="1068754|OPEN"355,50<span class='c4d'00</span</td<td align="right"
ID="1068754|OPENTIME" NAME="1068754|OPENTIME"8:00</td<td align="right"</td
</tr<tr class="bkgnd_0"
<td align="left"Hoog</td<td align="right" ID="1068754|HIGH"
NAME="1068754|HIGH"360,50<span class='c4d'00</span</td<td align="right"
ID="1068754|HIGHTIME" NAME="1068754|HIGHTIME"9:08</td<td align="right"</td
</tr<tr class="bkgnd_1"
<td align="left"Laag</td<td align="right" ID="1068754|LOW"
NAME="1068754|LOW"349,55<span class='c4d'00</span</td<td align="right"
ID="1068754|LOWTIME" NAME="1068754|LOWTIME"9:25</td<td align="right"</td
</tr<tr class="bkgnd_0"
<td align="left"Bied</td<td align="right" ID="1068754|BID"
NAME="1068754|BID"356,45<span class='c4d'00</span</td<td align="right"
ID="1068754|BIDTIME" NAME="1068754|BIDTIME"9:42</td<td align="right"
ID="1068754|BIDVOL" NAME="1068754|BIDVOL"4</td
</tr<tr class="bkgnd_1"
<td align="left"Laat</td<td align="right" ID="1068754|ASK"
NAME="1068754|ASK"356,60<span class='c4d'00</span</td<td align="right"
ID="1068754|ASKTIME" NAME="1068754|ASKTIME"9:41</td<td align="right"
ID="1068754|ASKVOL" NAME="1068754|ASKVOL"6</td
</tr<tr class="bkgnd_0"
<td align="left"Volume</td<td align="right" ID="1068754|VOL"
NAME="1068754|VOL" colspan="3" style="border-top:1px solid
#102458;"13.699</td
</tr
</table<br<br<table class="verticaltable" rules="cols" border="1"
<tr
<th class="thead" align="center" valign="middle" colspan="4"
style="font-size:10pt;"<a
href="/gekko//common/researchennieuws/fondsdetails/overzicht.aspx?binc=103242"AEX Index</a</th
</tr<tr

etcetc



What did i do wrong ?