いつもお世話になっております。
エクセル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/googlelog …
lngRes = URLDownloadToFile(0, strURL, strPath, 0, 0)
If lngRes = 0 Then
MsgBox "ダウンロード完了!"
Else
MsgBox "ファイルをダウンロードできませんでした"
End If
End Sub
実際にはここへWSHを用いてデスクトップに保存できるように
するつもりでもあります。宜しくお願い致します。
環境:Win10 Enteprise
Office 2016
No.2
- 回答日時:
こちらを見ると、
MSDN - URLDownloadToFile function
https://msdn.microsoft.com/ja-jp/windows/ms77512 …
ダウンロード成功時の返り値は「S_OK」だそうなので、
If lngRes = S_OK Then
MsgBox "ダウンロード完了!"
として見るとか。
また、英文のテキストはよう読みませんが、ファイルが作れない時、ダウンロードがキャンセルされた時もS_OK出すように読めるので、
strPath = "C:\test.txt"
と、具体的なファイル名を指定しては。
あるいは、VBで良くあるけど、\はエスケープシーケンスだと解釈されるので、"c:\\test.txt"とかでなきゃマズイとかって事もあるかも?
No.3
- 回答日時:
"C:\"に保存できないのでドキュメントフォルダに保存されてませんか?
C:\以外の
strPath = "C:\○○"
で試してみては?
No.4
- 回答日時:
lngRes = URLDownloadToFile(0, strURL, strPath, 0, 0)
strPath とは書いても、そこは、ファイル名付きのはずですね。
StrRev あたりでファイル名は取得するか、日付ファイル名とかにするか、それは考えてください。
VBAでは、\\は不要です。
> 実際にはここへWSHを用いてデスクトップに保存できるように
それは、また厄介なことでしょうけれども、とりあえず、それは別の話でしょう。
No.5ベストアンサー
- 回答日時:
>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_galler …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
URLDownloadToFile でダウンロード不可
Visual Basic(VBA)
-
ExcelVBAでリンク先の対象のファイルを保存
Visual Basic(VBA)
-
エクセルをWEBからダウンロード時にファイル破損
Excel(エクセル)
-
-
4
VBA ログイン後csvファイルをダウンロードする
Excel(エクセル)
-
5
URLDownloadToFileのコピペで64ビットで使用するにはに更新必要とあり修正方法?
Visual Basic(VBA)
-
6
ファイルをダウンロードすると必ず破損してしまいます
その他(パソコン・スマホ・電化製品)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBAでchromeを動かしたいのですが、エラー出ます。
その他(パソコン・スマホ・電化製品)
-
9
VBAでwebの画像を名前を付けて保存する方法
その他(プログラミング・Web制作)
-
10
VBA IE ダウンロード ダイアログ制御(名前を付けて保存)
Visual Basic(VBA)
-
11
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
12
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
13
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
14
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
15
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
16
excel vbaでレート取得についてです。
Excel(エクセル)
-
17
VBA初心者ですがダウンローダーを作成したいです。。
Visual Basic(VBA)
-
18
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
19
ダウンロードダイアログをVBAから操作するには?
Visual Basic(VBA)
-
20
Excel 1セル当りの文字数が255文字を超える場合のADOからの取
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
java_run.batがダウンロードで...
-
選択した複数のファイルを、一...
-
【HTML】1クリックで複数ファイ...
-
ファイルをダウンロードすると...
-
htmlにてクリックするとダウン...
-
HTMLページが勝手にダウンロー...
-
IE操作時、ファイルのダウンロ...
-
Webサイトから、txtファイルを...
-
エクセルのファイルのダウンロ...
-
パソコンの隠しファイルについて
-
VBA URLDownloadToFileについて
-
教えてください!
-
スタイルシートの暗号化について
-
XMLファイルのダウンロード
-
ホームページ内のPDFを開くとエ...
-
複数のファイルをダウンロード...
-
Perlで圧縮ファイルを作成する...
-
ファイルを一括ダウンロードす...
-
docomoの構成プロファイルはど...
-
CSVファイルをサーバからクライ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
HTMLページが勝手にダウンロー...
-
Webサイトから、txtファイルを...
-
VBA URLDownloadToFileについて
-
java_run.batがダウンロードで...
-
【HTML】1クリックで複数ファイ...
-
URLDownloadToFile でダウンロ...
-
ファイルをダウンロードすると...
-
XMLファイルのダウンロード
-
エクセルのファイルのダウンロ...
-
VBA IE操作でダイアログ表示後...
-
エアーマンが倒せないのtab譜
-
WEB上でPDF閲覧のみにしたいです。
-
IE操作時、ファイルのダウンロ...
-
ASPでPDFファイルのサム...
-
会員制ホームページの作り方。
-
bcpadのコンパイラのインストー...
-
asp ダウンロード中にタイムア...
-
メールの直リンクがダウンロー...
-
ダウンロードしたファイルが「...
-
イラストレーターのaiファイル...
おすすめ情報