【數據採集】VBA數據採集可用 COM 組件

時間 2019-11-10

標籤數據採集 vba 數據採集可用 com 組件欄目 Microsoft Office 简体版

原文原文鏈接

windows 中提供了4個COM組件均可以進行數據採集。html

Wininet

WinHttp

XmlHttp

MSHTML

https://msdn.microsoft.com/en-us/library/bb508515(v=vs.85).aspx
https://msdn.microsoft.com/en-us/library/hh801967(v=vs.85).aspxwindows

Dim objMSHTML As New HTMLDocument
    Dim objDocument As HTMLDocument

    Dim FSO As New FileSystemObject
    Dim TS  As TextStream

    Set TS = FSO.OpenTextFile("c:\dkfj.html", ForWriting, True, TristateTrue)
    TS.write T.GetChildTaskInfo("1432912514")
    TS.Close

    Set objDocument = objMSHTML.createDocumentFromUrl("C:\dkfj.html", "")

    Set FSO = Nothing

MSXML

Sub Macro1()

    Dim objMSHTML As New MSHTML.HTMLDocument
    Dim objDocument As MSHTML.HTMLDocument
    
    Set objDocument = objMSHTML.createDocumentFromUrl("http://hao123.com", "")
    
End Sub