(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:
版本:excel office 2010
有用excel在網路抓取資料的需求，在網路上找的了這段code，但是把所有標籤抓下來之後在innertext 儲存格內會有script
另外有找到也是別人的檔案，code大同小異但他的innertext內就不會有script
網頁相關的知識比較薄弱，想請問一下為什麼會這樣，要怎麼解決
謝謝
作者：黄晨
链接：https://www.zhihu.com/question/20460385/answer/71447219
来源：知乎
著作权归作者所有，转载请联系作者获得授权。
Sub getPageInfo()
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate [URL]
While .ReadyState <> 4 Or .Busy
DoEvents
Wend
Set dmt = .Document
For i = 0 To dmt.all.Length - 1
Set htMent = dmt.all(i)
With ActiveSheet
.Cells(i + 2, "A") = htMent.tagName
.Cells(i + 2, "B") = TypeName(htMent)
.Cells(i + 2, "C") = htMent.ID
.Cells(i + 2, "D") = htMent.Name
.Cells(i + 2, "E") = htMent.Value
.Cells(i + 2, "F") = htMent.Text
.Cells(i + 2, "G") = htMent.innerText
End With
Next i
Set r = Nothing
.Quit
End With
MsgBox "获取页面信息成功！"
End Sub