エクセル VBAで画像の保存方法を教えてください。

お疲れさまです。
質問ばかりですみません。

エクセルで以下URLの画像を保存したいのですが、拡張子が取得できずうまく保存できません。
どなたか詳しい方がいらっしゃいましたら、教えて頂きたくお願いいたします。

＜取得したいURL＞
http://www.asos.com/asos/asos-kimono-sleeve-mini …

＜マクロで取得した画像のリンク＞
ここにｊｐｇ等がつけば保存できるとおもうのですが・・・・

http://images.asos-media.com/products/asos-kimon …

http://images.asos-media.com/products/asos-kimon …

http://images.asos-media.com/products/asos-kimon …

http://images.asos-media.com/products/asos-kimon …

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2016/10/29 00:40

こちらでも聞いておられたようですね。

もう別の質問で回答をしていましたが、その一片を残しておきます。
それにしても、きれいな人たちが着るから、きれいにみえるのでしょうね。全体的に落ち着いた色合いですね。

コードが自動で変換されるので、[&quot:; ->"]　このような文字列は注意して、

'//
　 With objIE
　　　Dim RetVal As Long
　　　Dim strFname As String
　　　Dim arFnames() As Variant
　　　Dim galImgs As Object
　　　Dim i As Long, j As Long
　　　Dim ea As Variant, src
　　　'後につけたものは、宣言が抜けています。
　　　i = 1
　　　Set galImgs = .Document.getElementsByClassName("gallery-image")
　　　
　　　If galImgs.Length > 0 Then
　　　　ReDim arFnames(galImgs.Length - 1)
　　　　 'ダウンロード名の決定
　　　　strFname = Replace(galImgs(0).href, "http://images.asos-media.com/products/", "")
　　　　strFname = Mid(strFname, 1, InStr(strFname, "/") - 1)
　　　　For Each ea In galImgs
　　　　　If ea.Nodename = "IMG" Then
　　　　　　　Fname2 = Left$(ea.nameProp, InStr(ea.nameProp, "?") - 1)
　　　　　　　ext = Left$(ea.mimeType, InStr(ea.mimeType, " "))　'*←ここで取ります。(欲を言うと、小文字にしたい)
　　　　　　　Fname2 = Fname2 & "." & ext
　　　　　 End If
　　　　　src = ea.href
　　　　　If src Like "http://*" Then
　　　　　　'RetVal = URLDownloadToFile(0&, src, strFname & "_" & i & ".jpg", 0&, 0&)
　　　　　　'arFnames(i - 1) = strFname & "_" & i & ".jpg"
　　　　　　RetVal = URLDownloadToFile(0&, src, Fname2, 0&, 0&)
　　　　　　arFnames(i - 1) = Fname2
　　　　　　i = i + 1
　　　　　　If i > 4 Then Exit For '5枚以上は離脱
　　　　　End If
　　　　Next
　　　End If

No.1 回答者： トゥイーティー 回答日時： 2016/10/26 15:02

リンクは怖いから開いてない。

画面キャプチャでいいんじゃない？スクリーンショットキーだよ！

この回答へのお礼

ありがとうございます。
画像を自動で取得するマクロを作成していまして、通常だと取れるのですが、このサイトが取れなくて困っております。

お礼日時：2016/10/26 15:05