Excel VBA - ウェブサイトの HTML をファイル保存する

Excel VBA で、ウェブサイトの HTML をファイル保存する方法です。

■ コード

Private Sub CommandButton1_Click()

Dim sFileName As String
Dim sURL      As String
Dim XML       As Variant
Dim sHTML     As String
Dim iFileNo   As Integer

sFileName = "D:\test.txt"
sURL = "http://www.asahi.com"

Set XML = CreateObject("Msxml2.XMLHTTP")
XML.Open "GET", sURL, False
XML.Send
sHTML = XML.responseText
Set XML = Nothing

iFileNo = FreeFile
Open sFileName For Output As #iFileNo
Print #iFileNo, sHTML
Close #iFileNo

End Sub

■ 説明
このサンプルでは、朝日新聞のトップページの HTML を test.txt ファイルに保存します。