excel - ローカル マシンで VBA を使用して Web ページ ソース html を動的に保存できますか

Question

ローカル マシンで VBA を使用して Web ページ ソース html を動的に保存するにはどうすればよいですか?

ありがとう、アラップ

Answer 1

これは、作業用に html ファイルを取得して一時フォルダーに保存する簡単な方法です。Microsoft XML 3.0 または Microsoft XML 6.0 への参照が必要です。

Sub GetHTTP()
Dim objHttp As Object
Dim CachedFilePath As String
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
    Call objHttp.Open("GET", "http://www.example.com/", False)
    Call objHttp.Send("")
    CachedFilePath = Environ("temp") & "\" & "ReplaceThisWithFilename" & ".html"
    Call CreateFile(CachedFilePath, objHttp.ResponseText)
End Sub

Function CreateFile(FileName As String, Contents As String) As String
' creates file from string contents
Dim tempFile As String
Dim nextFileNum As Long
  nextFileNum = FreeFile
  tempFile = FileName
  Open tempFile For Output As #nextFileNum
  Print #nextFileNum, Contents
  Close #nextFileNum
  CreateFile = tempFile
End Function

作業が終了したときにファイルを削除するには、次を試してください。

Sub DeleteFile(ByVal FileToDelete As String)
    SetAttr FileToDelete, vbNormal
    Kill FileToDelete
End Sub