Excel URLの画像を自動で保存

Question

http://www.excel.studio-kazu.jp/kw/20100324130207.html
こちらのサイトを参考に作成したのですが、完了しましたというダイアログが表示されるだけでダウンロードできませんでした。
「XPモードで試した」と書かれているのですができないため、ほかの解決方法はありますでしょうか。

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
  Sub test()
  Dim tbl As Variant, i As Long, returnValue As Long
  Dim myDownURL As String, mySaveName As String
  tbl = Range("A1").CurrentRegion.Value
  For i = 1 To UBound(tbl)
    myDownURL = tbl(i, 1)
    mySaveName = tbl(i, 3) & tbl(i, 2)
    returnValue = URLDownloadToFile(0, myDownURL, mySaveName, 0, 0)
  Next i
  MsgBox "完了しました。"
  End Sub

Answer 1

そのままコピペして実行したところ問題なく動作しました。
恐らくシートに書かれている情報に誤りがあるのでしょう。
こういう場合はステップ実行して変数myDownURLとmySaveNameが想定通りの値になっているか、URLDownloadToFile関数の戻り値はどうなのかを確認してください。

と書いている間に別の回答で解決してしまったようですね。
折角なのでそのまま回答しておきます。
.

Comments

[uhsi]

ありがとうございます。また機会がありましたらよろしくお願いいたします。

Answer 2

URLDownloadToFile関数はダウンロード成功時に0が返されるので、
returnValue　の値を確認しながら試してみてください。
とりあえず、以下の修正で解決できないでしょうか。

mySaveName = tbl(i, 3) & "\" & tbl(i, 2)
'mySaveName = tbl(i, 3) & tbl(i, 2)

Comments

[uhsi]

ありがとうございます。
mySaveName = tbl(i, 3) & tbl(i, 2)をmySaveName = tbl(i, 3) & "\" & tbl(i, 2)に変更するということでしょうか。

[TanakaHiroaki]

そのつもりで書きました。
ただし、tbl(i, 2)の値、つまりは、ファイル名の先頭に"\"が付与されていない場合の解決策です。

[uhsi]

保存場所のデータの最後に/をつけ、解決しました。
ご回答のおかけで解決策がわかりました。ありがとうございました。