- 締切済み
(VBA) 実行すると指定URLにある画像を保存
タイトルの通りなのですが、vba で、実行すると、指定のURLにある「jpg」,「jpeg」画像を抽出し、指定フォルダに保存するものを作りたいのですが、どのようなコード記述にすればよいでしょうか？ 教えていただけると幸いです。
- anatawadare01
- お礼率33% (3/9)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- kteds
- ベストアンサー率42% (1876/4424)
windows標準搭載の bitsadmin.exe を使ってはどうでしょうか。 詳しくはコマンドプロンプトにてヘルプを参照してください。 例えばマイクロソフトサイトの画像ファイル( .jpg) https://c.s-microsoft.com/ja-jp/CMSImages/Windows_FeaturesOverview_1399_Hello_IMG.jpg?version=63b3aafe-9217-f76c-2369-c3853817f5aa をユーザー名：user1 のダウンロードフォルダに ファイル名：ms.jpgとしてダウンロードする場合は、下記のようになります。 下記をコピーしてコマンドプロンプト画面で貼り付けてみてください。 処理結果として「Transfer complete.」と表示されればダウンロード完了です。 ジョブ名：mydownloadjobは任意の名前でいいです。 bitsadmin /transfer mydownloadjob /download /priority normal https://c.s-microsoft.com/ja-jp/CMSImages/Windows_FeaturesOverview_1399_Hello_IMG.jpg?version=63b3aafe-9217-f76c-2369-c3853817f5aa C:\Users\user1\Downloads\ms.jpg
- skp026
- ベストアンサー率45% (1011/2238)
画像のダウンロードのサンプル http://officetanaka.net/other/extra/tips01.htm ページ内を検索してダウンロードするサンプル https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12121582682 参考にならなかったらごめんなさい。
関連するQ&A
- VBAで抽出した画像の数枚をフォームに表示
VBAで指定したURLにある画像を抽出し、その画像をExcelシートに貼るものを作りましたが、そのうち３枚くらいをユーザフォーム上にも表示したいのですが、どのように記述したらよいでしょうか？ 教えていただけたら幸いです。
- 締切済み
- Excel（エクセル）
- XPで画像保存しても指定したファイル形式にならず見れない・・・
画像を右クリック → 名前をつけて画像を保存（そのまま名前変更なし）→ 画像保存画面（ファィルの種類 JPEG(*.jpg) 選択）→保存 ですと、保存したフォルダを開くと指定したとおりのJPEGになります。 画像を右クリック → 名前をつけて画像を保存（名前変更）→ 画像保存画面（ファィルの種類 JPEG(*.jpg) 選択）→保存 にしますと、保存したフォルダを開くと指定したはずのJPEGにならず、その画像のプロバティを開くとファイルの種類：ファイルとなっていて見る事が出来ません。 ちなみに上記のどちらのやり方でも、先に保存したフォルダに続けて画像の保存をしようと開くと一覧に、先に保存したはずの画像はありません。 画像が保存されているかは、マイドキュメントから開いていき確認しています。 拡張子の関連付けも済ませましたが効果はありません。ちなみにGIFの場合は上記のどちらの保存方法でもちゃんと保存されますし、続けて画像を保存する時でもフォルダに、名前を付けた画像があります。 どなたか助けて下さい。 宜しくお願い致します。
- 締切済み
- Windows XP
- (vba) 画像抽出時、ファイル名を表示したい
vbaで指定するURLにある画像を抽出するものをつくりました。 一部------------------------------------ For Each e In oIE.Document.getElementsByTagName("img") If LCase(e.nameProp) Like "*.jpg" Or LCase(e.nameProp) Like "*.jpeg" Then Set s = ActiveSheet.Shapes(ActiveSheet.Pictures.Insert(e.href).Name) ------------------------------------ ユーザフォーム上にvbaで抽出したファイル名（例：abc.jpg等）を表示させたいのですが、どのように拡張記述すればよいでしょうか？ 教えていただけたら幸いです。 理想は、ユーザフォームに ****.jpg ****.jpg ・・・・ トータル◯件 というようなのをフォーム上に出せたらうれしいです。
- ベストアンサー
- Visual Basic
- VBAでボタンを押すと指定サイトの画像抽出
お力を貸してください。 エクセルVBAで、テキストボックスとボタンを配置しました。 テキストボックス内にURLを入れてボタンを押すと、指定サイトに表示されている すべての画像を抽出して、エクセルに貼り付けるVBAを作りたいのですが、どのようなソースにすればよいでしょうか？ 教えて頂けたら幸いです。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- XPで画像保存しても指定したファイル形式にならず見れない・・・
ウェブ上にある画像を右クリックにてファイル形式を［JPEG］にして保存し、保存したフォルダを開くとJPEGにて保存したはずの画像のプロバティを開くとファイルの種類［ファイル］となっていて見ることが出来ません。 ちなみに98では同じ画像を指定した形式で保存出来ました。 対処法を教えて下さい。よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルVBAでの画像印刷について。
エクセルVBAにて、JPG画像ファイルを印刷するにはどのように記述すればいいのでしょうか？ JPG画像ファイルをフルパスで指定して印刷できればベストです。 宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- IEで「名前を付けて画像を保存」すると拡張子jpgがjpegになってしまう
Windows 2000 SP4 で IE6.0 を使っています。 いつの頃からか、拡張子が .jpg になっているJPEG画像を「名前を付けて画像を保存」すると、拡張子が .jpeg になってしまうという現象が起きています。たとえば pict.jpg を保存しようとすると、ファイル名を指定するダイアログに表示される初期値は、下記のように pict.jpeg になってしまいます。 ファイル名：pict.jpeg ファイルの種類：JPEG(*.jpg) 画像のプロパティを見てもHTMLソースを見ても pict.jpg なのに、保存ダイアログには pict.jpeg という初期値がセットされます。 JPEGファイルを直接表示するリンク(URLの末尾が ～～/pict.jpg で終わる)を表示しても、「名前を付けて画像を保存」すると pict.jpeg が初期値になります。 JPEGファイルを直接表示するリンクを右クリックして、「対象をファイルに保存」しても、.jpeg になってしまいます。 ここで pict.jpg に直して保存すれば、.jpg で保存されるので致命的ではないのですが、数が多いときは面倒です。.jpg でないと扱えないソフトも有るので、とりあえず .jpeg のまま保存して、フリーウェアで拡張子を一気に .jpg に変更しています。 どうして .jpeg に変えられてしまうのでしょうか。
- ベストアンサー
- Windows NT・2000
- 画像保存のトラブルふたつ
インターネット画像をクリップドライブに保存していますが 1 画像の名前を変更して保存し、保存先フォルダを開いてみると、jpegアイコンではなく、エクスプローラのアイコンとなり、プロパティを見ると「ファイル」となっています。 「画像の保存」ウインドウでは、「ファイルの種類：JPEG（*.jpg）」となっているのに、なぜ変わってしまうのでしょう。どうすれば、名前を変えてjpgで保存できますか。 ２ 「マイ・ドキュメント」に保存する場合は、「画像の保存」ウインドウ内に、そのフォルダにある既存のファイル名の一覧が出るのですが、保存先にクリップドライブを選ぶと、あるはずの既存ファイルがまったく表示されません。どうすれば表示できますか？ よろしくご教示ください。
- 締切済み
- Windows 95・98
- Excel VBAによるコピー作業について
お世話になります。初心者ですが、掲題の件、以下の通り質問させて下さい。 【環境】 ★イメージ列の各セルにほぼ収まる状態でイメージが貼りつけられた以下のExcelシートがあります。 ※項番:一部飛んでいます。 ※イメージ:一部張り付いていないセルがあります。 ================================= 項番 ｜イメージ ================================= 1 ｜ ABC --------------------------------- 2 ｜ Ａ＠ --------------------------------- 3 ｜ --------------------------------- 4 ｜ Ｂ＊ --------------------------------- 7 ｜ CBA --------------------------------- 8 ｜ HHH --------------------------------- 10 ｜ YYY --------------------------------- 11 ｜ --------------------------------- 12 ｜ AAA --------------------------------- 15 ｜ BBB ================================= 【VBAでの実行タスク】 ★上記Excel（仮称:test.xlsx）ファイル上の全イメージを個別に名前を付けて保存したい。 （001.jpeg,002.jpeg,003.jpeg,004.jpeg,007.jpeg,008.jpeg,010.jpeg,011.jpeg,012.jpeg,015.jpeg） ※保存先はローカルの適当な場所（例:C:\Users\test\Pictures） 【作成中のVBA】 --- Sub 画像保存() Dim sSavePath As String Dim gdipRet As GDIPlusStatusConstants Dim myStdPicture As StdPicture ActiveSheet.Shapes.Range(Array("Picture 1")).Select Application.Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap Set myStdPicture = CreatePictureFromClipboard 'jpg保存するときはこの下の行を有効に(100ところを0～100に変更でクオリティ設定できる) gdipRet = SavePictureJpg(myStdPicture, "C:\Users\test\Pictures\001.jpg", 100) End Sub --- 【質問内容】 上記VBAですと、実行することで、001.jpgしか保存されない状況です。 1回のVBA実行で、1,2,3,4,7,8,10,11,12,15全てのイメージを個別に名前を付けて保存するには、 （001.jpeg,002.jpeg,003.jpeg,004.jpeg,007.jpeg,008.jpeg,010.jpeg,011.jpeg,012.jpeg,015.jpeg） VBAの記述をどう修正すべきかご教示頂きたく存じます。 何卒、宜しくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- メールに添付された画像の保存
メールに添付された画像、写メール画像について。 添付された画像を選んで保存をすると 選べるのはJPEG（*.jpg）またはビットマップ（*.bmp） ここでjpegを選んでマイドキュメント内フォルダに保存すると フォルダを開いたとき（縮小で表示にしている）その保存した画像だけが見れません。 アイコン（白い紙にウィンドウが書かれてるような）表示になっており、フォトショップでも開けません。 このアイコンを右クリックしてPAINTで開くを指定しても「ファイルが見つかりません」と表示されます。 ちなみに、メール添付から画像をコピーしてpaintに貼り付けたのち、保存方法でjpegを選んで保存すると ファイル内でも表示でき、フォトショップなどでも開けます。 （ファイル内でアイコンとして保存されてしまったものは、コピーをしてpaintに貼り付けることは出来ない） お聞きしたいのは、 なぜ画像によってそのまま保存してファイル内で見ることができないのか。 これらを解消する手立てはあるのか。 保存するまでソレがファイル内で見ることが出来ない画像だと気づけないのですが それを確認する方法はあるのか。 説明がわかりづらいかもしれませんが、どなたかご教示よろしくおねがいます。
- ベストアンサー
- Windows XP
