Winhttpでhttpリクエストを行い、Cドライブ直下に”test.txt”というファイルにリクエスト結果を保存する例です。 Option Explicit Const OpenFileForReading = 1 Const OpenFileForWriting = 2 Const OpenFileForAppending = 8 HTTPDownload "http://google.co.jp/index.html" , "c:\text.txt" Sub HTTPDownload(ByVal STR_URL, ByVal STR_Path ) Dim OBJ_File Dim OBJ_FSO Dim OBJ_HTTP Set OBJ_FSO = CreateObject("Scripting.FileSystemObject") Set OBJ_File = OBJ_F