WEB APIを使用しWeb上のファイルをダウンロードする
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As 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 |