2017-07-27 167 views
0

我想使用循環從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':
對象不支持此屬性或方法


+0

爲什麼沒有人認爲包括產生錯誤的行號很重要? – Jeeped

+0

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

+0

sdd = Doc.getElementsByClassName(「profile-name」)。innerText -----------------是創建錯誤的行 –

回答

0

元素 ByClassName如何不用彷徨是複數? .getElementsByClassName返回一個集合,而不是一個對象。實質上,你試圖把一個整數數組看作一個整數;他們是不是同樣的事情。

您不能簡單地刪除s;沒有getElementByClassName函數。但是,您可以按照您在整數數組中指定單個整數的方式來請求第一個元素。

sdd = Doc.getElementsByClassName("profile-name")(0).innerText 
相關問題