Question

我试图从网站上搜集一些信息。我引用的链接是：https://web.tmxmoney.com/quote.php?qm_symbol=WEED

我正在使用以下内容创建Internet Explorer对象：

Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

Dim ticker As String
ticker = "BRB"

With appIE
    .Navigate "https://web.tmxmoney.com/quote.php?qm_symbol=" & ticker
    .Visible = False
End With

Do While appIE.Busy
Loop

然后我尝试使用以下内容获取类的内容：

Set testing = appIE.document.getElementsByClassName("quote-name")(0).textContent
Debug.Print (testing)

但是，我收到错误：Type Mismatach。以下代码可以正常运行：appIE.document.getElementsByClassName("quote-name")。

我想要的内容如下，可以在IE控制台中正常运行。

"
                    Brick Brewing Co. Limited
                    Exchange: TSX Exchange |
                                                        Jul 26, 2017, 2:46 PM EDT                                               "

关于可能出错的任何想法？

Answer 1

试试这些代码行

testing = appIE.document.getElementsByClassName（＆＃34; quote-name＆＃34;）（0）.textContent

Debug.Print（测试）

使用Internet Explorer对象来抓取信息？

1 个答案: