エクセル2010で下記コードの矢印の部分でエラーが出てしまいます。
ほぼネットで見つけたコードそのままですが矢印のところで題記のエラーが出てしまいます。
内容はトヨタのホームページの燃料電池車の画像を保存するはずなのですが・・・
どなたかご存知の方ご教示いただけますでしょうか???
Sub aaa()
GetImageFile "http://toyota.jp/sp/image/e_bn/", "FCV_20140625.jpg"
End Sub
Sub GetImageFile(ImgName As String, SaveName As String)
Dim SaveFileName As String, DownloadFile As String, Ret As Long
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
No.3ベストアンサー
- 回答日時:
VBAは「URLDownloadToFile」のことを知らないから定義する必要があります。
以下のコードを先頭に付け加えてください。
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
あとURLの指定方法、間違えていますよ
GetImageFile "http://toyota.jp/sp/image/e_bn/FCV_20140625.jpg", "FCV_20140625.jpg"
としてください。
おそらくマイドキュメントに保存されるかと。
No.2
- 回答日時:
標準モジュールを挿入し、下記コードを貼り付けます。
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 aaa()
GetImageFile "http://toyota.jp/sp/image/e_bn/", "FCV_20140625.jpg"
End Sub
これは「GetImageFile」のパラメーターと意味が違っているようです。"FCV_20140625.jpg"がダウンロードするファイルのはずで、例えば、自分のパソコンのMドライブの、Down01フォルダーに「mySample.jpg」のファイル名で保存する場合、
GetImageFile "http://toyota.jp/sp/image/e_bn/FCV_20140625.jpg", "M:\Down01\mySample.jpg"
とするのでしょう。
No.1
- 回答日時:
「subまたはfunctionが定義されていません。
」に書いてある通り(URLDownloadToFileがSubでもFunctionでも定義されていない)なのでは?おそらく
http://www.ken3.org/vba/backno/vba120.html
を参考にされたのだと思いますが先頭からちゃんと読んでますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
python エラー
-
エクセルのエラーメッセージ「4...
-
適切な変換関数が存在しない???
-
fortranでプログラムを実行する...
-
Handlesについて
-
Excelのエラーで困ってます。
-
デバッグ中のエラーのことで教...
-
バッチからsqlplusの接続エラー...
-
コンパイルできません。
-
HEWを使用しているのですが、こ...
-
ユーザフォーム開くとエラーになる
-
error C3867 関数呼び出しには...
-
RightとLeft関数のライブ...
-
ACCESSのDate関数のエラー表示...
-
ビルド失敗 指定されたファイ...
-
include<wtsapi32.h>でエラーが...
-
VB2008で定数に色の設定をした...
-
HANDLEの宣言でのエラー
-
BC30002: 型 'ListItem' が定義...
-
Visual Studioのメッセージ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
python エラー
-
エクセルのエラーメッセージ「4...
-
適切な変換関数が存在しない???
-
fortranでプログラムを実行する...
-
バッチからsqlplusの接続エラー...
-
Excelのエラーで困ってます。
-
sys/time.hのインクルードがで...
-
コンパイルできません。
-
HEWを使用しているのですが、こ...
-
RightとLeft関数のライブ...
-
ビルド失敗 指定されたファイ...
-
VB2008で定数に色の設定をした...
-
visual C++ でビルドの中止がで...
-
デバッグ中のエラーのことで教...
-
multiple definitionというエラー
-
ビルドが失敗してしまいます
-
LPCWSTRとchar
-
Handlesについて
-
BC30002: 型 'ListItem' が定義...
-
左側がクラス、構造体、共用体...
おすすめ情報