VBA URLDownloadToFileについて

Question

いつもお世話になっております。

エクセルVBAを使用し色々と試しているのですが
うまく回らなく質問させて頂きます。

記述している内容は下記ですが,ネットで拾い集め記述していますが
画像が保存されません。URL自体に誤りはないため"ダウンロード完了！"と表示は出ますが
実際にダウンロードはされてない状態です。

記述に誤りが無いか,お教え頂ければと思います。

Option Explicit
Private Declare PtrSafe 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 Download_File()
Dim lngRes As Long
Dim strURL As String
Dim strPath As String
     
    strPath = "C:\"
    strURL = "https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png"
    
    lngRes = URLDownloadToFile(0, strURL, strPath, 0, 0)
    If lngRes = 0 Then
        MsgBox "ダウンロード完了！"
    Else
        MsgBox "ファイルをダウンロードできませんでした"
    End If
End Sub

実際にはここへWSHを用いてデスクトップに保存できるように
するつもりでもあります。宜しくお願い致します。

環境：Win10 Enteprise
　　　Office 2016

Qchan1962 · Accepted Answer

＞strPath = "C:\"　
通常、Win10の設定で、Cドライブ直下に管理者設定などをしないで、ダウンロードは出来ないと思います。
合わせて、WindFaller氏の回答にあるようにファイル名が必要です。

＞"ダウンロード完了！"と表示は出ます
抜粋：ファイルを作成できず、ダウンロードがキャンセルされた場合でも、 URLDownloadToFileは S_OKを返します。

Cドライブ直下を変更した例
例場合、対象がjpgと明確なので、拡張子をjpgにしています。
デスクトップにTest.jpgがダウンロードされます。
strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Test.jpg"
strURL = "http://arch.casio.jp/image/dc/images/fh20_gallery_pic04_b.jpg"

WindFaller · Answer

lngRes = URLDownloadToFile(0, strURL, strPath, 0, 0)
strPath とは書いても、そこは、ファイル名付きのはずですね。
StrRev あたりでファイル名は取得するか、日付ファイル名とかにするか、それは考えてください。

VBAでは、\は不要です。

> 実際にはここへWSHを用いてデスクトップに保存できるように
それは、また厄介なことでしょうけれども、とりあえず、それは別の話でしょう。

hotosys · Answer

"C:\"に保存できないのでドキュメントフォルダに保存されてませんか?
C:\以外の
strPath = "C:\○○"
で試してみては?

neKo_deux · Answer

こちらを見ると、

MSDN - URLDownloadToFile function
https://msdn.microsoft.com/ja-jp/windows/ms775123(v=vs.80)

ダウンロード成功時の返り値は「S_OK」だそうなので、

If lngRes = S_OK Then
MsgBox "ダウンロード完了！"

として見るとか。

また、英文のテキストはよう読みませんが、ファイルが作れない時、ダウンロードがキャンセルされた時もS_OK出すように読めるので、

strPath = "C:	est.txt"

と、具体的なファイル名を指定しては。
あるいは、VBで良くあるけど、\はエスケープシーケンスだと解釈されるので、"c:\test.txt"とかでなきゃマズイとかって事もあるかも？

GooUserラック · Answer

一応お試しください
ＵＲＬの最後の「%22」を削除したらどうなりますか？
またＣドライブ直下ではなくフォルダを作成してそこにダウンロードしてもダメですか？

VBA URLDownloadToFileについて

＞strPath = "C:\"

lngRes = URLDownloadToFile(0, strURL, strPath, 0, 0)

"C:\"に保存できないのでドキュメントフォルダに保存されてませんか?

こちらを見ると、

一応お試しください

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

＞strPath = "C:\"　