エクセルで連番画像をダウンロード保存

Private Sub CommandButton1_Click()
Dim ToSheet As Excel.Worksheet
Set ToSheet = ThisWorkbook.Sheets(1)

Dim GAZOU As String
For CELL = 1 To 84
GAZOU = ToSheet.Cells(CELL, 1)

Range("B1").Select
ActiveSheet.Pictures.Insert( _
GAZOU _
).Select
Next CELL
End Sub


画像URLは連続していることが判明しているのに、一つ一つをダウンロードして保存して、、、って面倒だ。色々試行錯誤してたら↑のマクロに落ち着いた。単純なエクセルマクロ。

ボタンを作成し、コードをコピペ。シート1のA1から順番に、A列の1セルに一つの画像URLを入力。

例えば連続する画像、

“http://lance-modis.eosdis.nasa.gov/imagery/subsets/?subset=Japan.2012001.terra.367.2km.jpg”

なんてのがあって、2012001が連番する場所だとする。セルを3つにまたいでURLを切り分け、真ん中の列に2012001が来るようにして連続データを作成、ドラッグで簡単ね。

出来上がった連番URLを上述したマクロボタンの埋めこまれているシートの（A列）に展開。ちなみにコード上、シート1になっている。

上述のマクロでは84URLまで対応しているけど、エラー回避プログラムは無いので欲しい画像分だけ付け足すなり削るなり。

あとはボタンをクリックすると、あら不思議。どんどんエクセル内に画像がダウンロードされてくる。ダウンロードが終わったらブック全体をファイル保存、ウェブページとして保存、ってやれば、フォルダが作られて画像全てが保存される。

今まで一つ一つダウンロード保存していたので、これを使えば大変楽になる（笑）

ただ、通信するので非常に重い。パスがかかってたりすると使えないし、同様にエラー回避プログラムも無いので欠番している画像があるとコンパイルエラーが出てしまう。ご愛嬌。