IEオブジェクトを使ったHTML取得

 

Option Explicit

Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)

Private Sub sleepMs(lc_ms As Long)
    Call Sleep(lc_ms)
End Sub

Sub main()
    Call saveHtml("https://msdn.microsoft.com/JA-JP/library/office/jj692811.aspx")
End Sub

Sub saveHtml(url As String)
    
    Dim objIE As Object
    Dim lc_free As Integer
    Dim lc_html As String
    
    'IEオブジェクトを作成
    Set objIE = CreateObject("InternetExplorer.Application")
    
    'ページの読み込み
    objIE.Navigate url
    Do While objIE.busy
        sleepMs (100)
    Loop
    
    'ページHTMLの取得と保存
    lc_html = objIE.Document.Body.InnerHTML
    lc_free = FreeFile
    Open "c:\temp\hoge.html" For Output As #lc_free
    Print #lc_free, lc_html
    Close #lc_free
    objIE.Quit

End Sub

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です