Excel VBAでIEを操作　ファイルをPCにダウンロード

2016/10/12 2016/10/17

Excelで目的のページにたどり着く方法。
そして、そこにあるテーブルをエクセルにコピーする方法を例示してきました。

今回は該当ページのイメージデータ（画像）を自動的にダウンロードするやり方をを例示したいと思います。

そこで今回のお題は
・Yahoo!JAPANを表示
・サイトにある全イメージデータをCドライブにコピー
を実践。

上記お題は、以下の操作をすることにより可能となります。
・エクセルを起動
・（バージョンによっては）マクロを有効にする
・マクロの編集画面で、以下のコードをコピー＆ペースト
・マクロを実行

コピペするコード

Dim ObjIE As Object       '変数を定義
Dim Obj As Object         '変数を定義

Dim Rtn_Down As Integer   '変数を定義
Dim Rtn_del As Integer    '変数を定義

'Sleepを使用する場合のお約束
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'URLDownloadToFileを使用する場合のお約束
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</span></b>

'DeleteUrlCacheEntryを使用する場合のお約束
Declare Function DeleteUrlCacheEntry Lib "wininet" _
    Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Sub IE_open()
 
  Set ObjIE = CreateObject("InternetExplorer.Application")  'IEを開く際のお約束
  ObjIE.Visible = True                                      'IEを開く際のお約束
  ObjIE.Navigate "http://www.yahoo.co.jp/"                  '開きたいサイトのURLを指定

  Sleep (1000)

  Do While ObjIE.ReadyState <> 4                            'サイトが開かれるまで待つ（お約束）
    Do While ObjIE.Busy = True                              'サイトが開かれるまで待つ（お約束）
    Loop
  Loop
  
  For Each Obj In ObjIE.document.images                     '表示されているサイトのイメージタグを一つずつを変数objにセット

    Rtn_del = DeleteUrlCacheEntry(Obj.href)                 'ダウンロード対象のキャッシュをクリア

    Rtn_Down = URLDownloadToFile(0, Obj.href, "c:\" + Obj.Nameprop, 0, 0)
                                                            'ファイルをダウンロード（URLとダウンロード先（Cドライブ直下）を指定）
  Next                                                      '次のタグを処理
End Sub

Dim ObjIE As Object '変数を定義

Dim Obj As Object '変数を定義

Dim Rtn_Down As Integer '変数を定義

Dim Rtn_del As Integer '変数を定義

'Sleepを使用する場合のお約束

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'URLDownloadToFileを使用する場合のお約束

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</span></b>

'DeleteUrlCacheEntryを使用する場合のお約束

Declare Function DeleteUrlCacheEntry Lib "wininet" _

Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Sub IE_open()

Set ObjIE = CreateObject("InternetExplorer.Application") 'IEを開く際のお約束

ObjIE.Visible = True 'IEを開く際のお約束

ObjIE.Navigate "http://www.yahoo.co.jp/" '開きたいサイトのURLを指定

Sleep (1000)

Do While ObjIE.ReadyState <> 4 'サイトが開かれるまで待つ（お約束）

Do While ObjIE.Busy = True 'サイトが開かれるまで待つ（お約束）

Loop

For Each Obj In ObjIE.document.images '表示されているサイトのイメージタグを一つずつを変数objにセット

Rtn_del = DeleteUrlCacheEntry(Obj.href) 'ダウンロード対象のキャッシュをクリア

Rtn_Down = URLDownloadToFile(0, Obj.href, "c:\" + Obj.Nameprop, 0, 0)

'ファイルをダウンロード（URLとダウンロード先（Cドライブ直下）を指定）

Next '次のタグを処理

End Sub

Cドライブの直下にたくさんのイメージファイルがダウンロードされていませんか？

ではソースの解説です。
赤字箇所のみに限定して説明します。

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

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

ファイルダウンロード用のAPI「URLDownloadToFile」を使用するための宣言です。
あまり難しいことを考えずに、URLDownloadToFileを使用する場合、「お約束」で記述すると覚えておきましょう。

続いてのコードです。

Declare Function DeleteUrlCacheEntry Lib "wininet" _
    Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

1 2	Declare Function DeleteUrlCacheEntry Lib "wininet" _ Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

ダウンロードするファイルのキャッシュを念のために消しておく処理です。
キャッシュをクリアする処理がないと、キャッシュされた古いデータがダウンロードされる場合もあります。
キャッシュクリア用のAPI「DeleteUrlCacheEntry」を使用するための「お約束」と覚えておきましょう

続いてのコードです。

  For Each Obj In ObjIE.document.images

    ・・・

  Next

For Each Obj In ObjIE.document.images

・・・

前回までは、
・document.all　：　全タグが検索対象
・document.all.getElementsByTagName("タグ名")　：　指定されたタグのみ検索対象
を紹介してきましたが、同様の処理で「images」があります。
これは、getElementsByTagName("img")と同等の処理となり、イメージタグのみを抽出する処理です。

続いてのコードです。

    Rtn_del = DeleteUrlCacheEntry(Obj.href)

1	Rtn_del = DeleteUrlCacheEntry(Obj.href)

ダウンロード対象のURLのキャッシュをクリアしています。

obj.href
イメージタグの画像の（絶対パス付き）ファイル名は自体は「href」に設定されています。

DeleteUrlCacheEntry（URL名）
キャッシュのクリアをするAPIです。
パラメータはURLのみです。
リターンコード「Rtn_del」に値を入れていますが、このリターン値を対象とした処理は特にしていません。

続いてのコードです。

    Rtn = URLDownloadToFile(0, Obj.href, "c:\" + Obj.Nameprop, 0, 0)

1	Rtn = URLDownloadToFile(0, Obj.href, "c:\" + Obj.Nameprop, 0, 0)

ファイルダウンロード用API「URLDownloadToFile」を呼び出しています。

URLDownloadToFile
ファイルをダウンロードするAPIです。
パラメーターは以下の通り

パラメータ	設定値
pCaller	0
szURL	ダウンロードするURL
szFileName	ダウンロードする場所
dwReserved	0（固定）
lpfnCB	0 ダイアログの出力有無

Obj.Nameprop
イメージタグ上、ファイル名はNamepropに設定されています。

今回のポイントの整理です。
・イメージのみを検索したい場合「document.image」でも検索可能
・ファイルのダウンロードするにはAPI「」を使用
・ファイルのダウンロード前に、キャッシュのクリアが必要（API使用）
・イメージタグに設定される絶対パス付きファイル名は「href」に収録
・イメージタグに設定されるパスなしファイル名は「Nameprop」に収録
といった５点がポイントです。

-ExcelでIE操作