小编Ryc*_*ket的帖子

我一直试图找到这些信息几天,但我发现的所有例子都只有一小部分代码,我需要全部=)

我想要做的是从主页中提取一个值并将其放入Excel中的单元格中(然后从同一站点上的另一个页面获取另一个值并放入下一个单元格等等)

该页面是瑞典的股票交易所页面,我用作测试页面的页面是"投资者B"的股票(https://www.avanza.se/aktier/om-aktien.html/5247 /投资者-b)

我感兴趣的价值是名为"Senaste"的价值(这是围绕它的页面信息)

<li>
    <span class="XSText">Senast<br/></span>
    <span class="lastPrice SText bold"><span class="pushBox roundCorners3"    title="Senast uppdaterad: 17:29:59">248,60</span></span>
</li>

这是我追求的价值248,60!

我有一些编码经验,但不是VBA脚本,在阅读了一些论坛帖子(主要是在这里)后,我一直在尝试一些自己的例子,但是没有任何工作.由于我对VBA很基本,我可能有结构错误,所以请基本和耐心跟我,这是我的测试,但我得到"运行时错误429"ActiveX组件无法创建对象

我可能完全走错了路

Private Sub CommandButton1_Click()
Dim ie As Variant
Set ie = CreateObject("InternetExplorer")
ie.navigate "https://www.avanza.se/aktier/om-aktien.html/5247/investor-b"
ie.Visible = True
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Application.Wait (Now() + TimeValue("00:00:016")) ' For internal page refresh or loading
Dim doc As Variant 'variable for document or data which need to be extracted out of webpage
Set doc = CreateObject("HTMLDocument")
Set doc …