VBAでインターネット上のファイルをダウンロード

VBAでインターネット上のファイルをダウンロードするマクロは、以下のサイトに簡単な奴が載ってました。
http://www.ka-net.org/blog/?p=4855
 
いくつか例が載ってましたが、以下のコードが一番簡単だったので・・・
 
Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryW" ( _
        ByVal lpszUrlName As Long) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileW" ( _
        ByVal pCaller As Long, _
        ByVal szURL As Long, _
        ByVal szFileName As Long, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
Public Sub Sample01()
  DownloadFile "http://サーバー/フォルダ/ファイル.xls", _
               "C:\ファイル.xls"
  MsgBox "処理が終了しました。", vbInformation + vbSystemModal
End Sub


コメントは受け付けていません。