ぴーあーる

プロフィール

カテゴリー

リンク

最近の記事

最近のコメント

最近のトラックバック

カレンダー

05 | 2017/06 | 07
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -

過去のログ

Plug-in by
@激安・割安・おすすめ商品@

RSSフィード

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

 

 

スポンサーサイト

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

http://bubble2sei.blog69.fc2.com/tb.php/4249-15e788d4

 BLOG TOP