Question

我尝试使用循环将数据从网络获取到Excel工作表。我将附上工作表并在此处粘贴代码。请帮我解决一下这个。谢谢。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = Range("Number").Row And _
Target.Column = Range("Number").Column Then
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "https://www.truecaller.com/search/in/" & Range("Number").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sdd As String
sdd = Doc.getElementsByClassName("profile-name").innerText
MsgBox sdd

End If

End Sub

当我使用上面的代码时，我得到了以下的错误

运行时错误＆＃39;＆＃39;＆n ;; 对象不支持此属性或方法

Answer 1

了解.get 元素 ByClassName是多数？ .getElementsByClassName返回一个集合，而不是单个对象。实质上，您正在尝试将整数数组视为单个整数;他们不同样的事情。

您不能简单地删除 s ;没有getElementByClassName函数。但是，您可以像在整数数组中指定单个整数一样请求第一个元素。

sdd = Doc.getElementsByClassName("profile-name")(0).innerText

运行时错误438对象不支持此属性或方法Internet Explorer

1 个答案: