Home |
Search |
Today's Posts |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 ? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
how do i import data from a web page into excel 2007? | Excel Worksheet Functions | |||
How to Start Excel in Text Import Wizard for data import | Setting up and Configuration of Excel | |||
how to import data from a web page | Excel Discussion (Misc queries) | |||
Import data from a web page | Excel Discussion (Misc queries) | |||
data before page break lost during import | Excel Discussion (Misc queries) |