WEB APIを使用しWeb上のファイルをダウンロードする

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][WEB APIを使用しWeb上のファイルをダウンロードする]
Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As LongByVal szURL As StringByVal _
szFileName As StringByVal dwReserved As LongByVal lpfnCB As LongAs Long


'[Microsoft Support]参照
'http://support.microsoft.com/kb/q244757/

Sub DownloadFile(strDLWWWPath As String, strDLFileName As String)
'*********************************************
'APIを使用しWeb上のファイルをダウンロードする
'*********************************************
'予め直下に「DownloadFile」フォルダを作成しておく

Dim Ret As Long
Dim strLocalPath As String

strLocalPath = ThisWorkbook.Path & "\" & "DownloadFile" & "\" & strDLFileName
'                                        ~~~~~~~~~~~~~~予め作成しておく
Ret = URLDownloadToFile(0, strDLWWWPath & "/" & strDLFileName, strLocalPath, 0, 0)

    If Ret <> 0 Then
        MsgBox "Download Error!", 48, strDLFileName
    Else
        MsgBox strDLFileName & " -Finish!", strDLFileName
    End If

'APPLIES TO
    'Microsoft Internet Explorer 4.0 128-Bit Edition
    'Microsoft Internet Explorer 4.01 Service Pack 2
    'Microsoft Internet Explorer 4.01 Service Pack 1
    'Microsoft Internet Explorer 5.0
    'Microsoft Internet Explorer 5.01
    'Microsoft Internet Explorer 5.5
    'Microsoft Visual Basic 5.0 Learning Edition
    'Microsoft Visual Basic 6.0 Learning Edition
    'Microsoft Visual Basic 5.0 Professional Edition
    'Microsoft Visual Basic 6.0 Professional Edition
    'Microsoft Visual Basic 5.0 Enterprise Edition
    'Microsoft Visual Basic Enterprise Edition for Windows 6.0
End Sub


Private Sub test()
DownloadFile "http://www.jp-ia.com/_ans", "file86.htm"
End Sub





Production Japan Import Application. Since 1998