VBAで画像ファイルをダウンロードしたいけどうまく

VBAで画像ファイルをダウンロードしたいけどうまく行かない・・・
XPで、オフィス２００３です。

http://officetanaka.net/other/extra/tips01.htm
を参考に、画像ファイルをダウンロードする練習をしているのですが
"エラーが発生しました"になってしまいます。

標準モジュールに
---------------------------------------------------------
Option Explicit

Public 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 Sample()
GetImageFile "http://www.officetanaka.net/sample.jpg", "C:\sample.jpg"
End Sub

Sub GetImageFile(ImgName As String, SaveName As String)
Dim SaveFileName As String, DownloadFile As String, Ret As Long

Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)

If ImgName = "" Then Exit Sub
SaveFileName = SaveName
DownloadFile = ImgName
Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)
If Ret = 0 Then
MsgBox "ダウンロードできました"
Else
MsgBox "エラーが発生しました"
End If

End Sub
---------------------------------------------------------
を貼り付けました。

Retが0にならなくてはいけないみたいですが、
自分の場合は、-2147221020になってしまいます。

どう修正すればいいのか教えてください。

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2012/10/13 01:15

Sub Sample()

　GetImageFile "http://www.officetanaka.net/sample.jpg", "C:\sample.jpg"
End Sub
が呼び出す以下で
Sub GetImageFile(ImgName As String, SaveName As String)
　Dim SaveFileName As String, DownloadFile As String, Ret As Long

　Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)

GetImageFileの引数　ImgName 　と　SaveName を　URLDownloadToFileに渡してない？





　Dim SaveFileName As String, DownloadFile As String, Ret As Long

　’以下２行を追加
　DownloadFile = ImgName
　SaveFileName = SaveName

　Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)

か

　Dim Ret As Long

　’以下の第2引数と第3引数を編集
　Ret = URLDownloadToFile(0, ImgName, SaveName , 0, 0)

じゃないですか？

この回答へのお礼

回答ありがとうございました。

お礼日時：2012/10/21 23:23

No.2 回答者： JazzCorp 回答日時： 2012/10/13 09:14

URLが間違っている？

そのページのソースを見ると、画像は.「./img/blog.jpg」のようになっているのでは？？

この回答へのお礼

回答ありがとうございました。

お礼日時：2012/10/21 23:23