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

我想使用循环从Web获取数据到Excel表单。我将附上表格并粘贴代码。请帮我解决一下这个。谢谢。运行时错误438对象不支持此属性或方法Internet Explorer

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

当我使用上面的代码中，我得到下面的错误

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

。

来源

2017-07-27 Imtiaz Public

为什么没有人认为包括产生错误的行号很重要？ – Jeeped

https://drive.google.com/open?id=0B3bc9Owb0D9zXzFOc0dnLWxJWHc –

sdd = Doc.getElementsByClassName（“profile-name”）。innerText -----------------是创建错误的行 –

见元素 ByClassName如何不用彷徨是复数？ .getElementsByClassName返回一个集合，而不是一个对象。实质上，你试图把一个整数数组看作一个整数;他们是不是同样的事情。

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

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

来源

2017-07-27 15:23:00 Jeeped

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

回答

相关问题