![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
アマゾンのページにある本のベストセラーのデータをエクセルのファイルに反映させたいです。
例えば下記のページで週のベストセラーが表示されていますが、それぞれの銘柄のリンク先へいって
http://www.amazon.co.jp/gp/bestsellers/books/466 …
ページ下部にある登録情報の
(1)銘柄名
(2)出版社
(3)ISBN-10
(4)ISBN-13
(5)発売日
を抜き、添付したある画像のように表示させたいです。
できれば「データ取得」のコマンドボタンを押せば、1位から20位まで一気に表示させれるようにしたいです。
どなたかわかる方がいればご回答お願いします。
![「エクセルVBAでネット上のデータ抜き取り」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/1084308_5497db21c4be0/M.jpg)
No.1ベストアンサー
- 回答日時:
取りあえず下記で抽出は出来ました。
セルへの書き込みは追加編集してください。
Dim myWindow As Object
Dim myurl As String
Dim tagdiv As Object
Dim tagli As Object
Dim ahrefs() As String
Dim i As Long
myurl = "http://www.amazon.co.jp/gp/bestsellers/books/466 *"
For Each myWindow In CreateObject("Shell.Application").Windows
With myWindow
If .LocationURL Like "http://www.amazon.co.jp/gp/bestsellers/books/466*" Then
For Each tagdiv In .document.all.tags("div")
If tagdiv.ID Like "zg_item_*" Then
ReDim Preserve ahrefs(i)
ahrefs(i) = tagdiv.all.tags("a")(0).href
i = i + 1
End If
Next
For i = LBound(ahrefs) To UBound(ahrefs)
.navigate2 ahrefs(i)
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop
MsgBox Split(.document.all("btAsinTitle").innerText, "[")(0)
For Each tagli In .document.getElementsByTagName("li")
If tagli.innerText Like "出版社*" Then
MsgBox tagli.innerText
ElseIf tagli.innerText Like "ISBN-10*" Then
MsgBox tagli.innerText
ElseIf tagli.innerText Like "ISBN-13*" Then
MsgBox tagli.innerText
ElseIf tagli.innerText Like "発売日*" Then
MsgBox tagli.innerText
Exit For
End If
Next
.GoBack
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop
Next i
End If
End With
Next myWindow
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン ソフトアンインストール残存ファイル 3 2022/09/13 18:15
- その他(パソコン・スマホ・電化製品) データの復元ができる無料ソフト(一部ファイルでもよいです) 4 2023/06/04 02:30
- 日本株 楽天RSS2での移動平均の取得について 1 2022/07/28 21:48
- 電気工事士 電気工事のことでお願いします 4 2022/08/08 22:41
- 電気工事士 来月から電気管理技術者のお仕事を始める者です。東京電力パワーグリッドへ情報提供の依頼をする方法がTE 1 2022/06/27 06:48
- Excel(エクセル) エクセル、日々の集計整理方法。(再送です。) 5 2022/10/02 00:19
- Excel(エクセル) Excel 数式がわかりません、答えが導かれる数式を教えていただけませんか? 2 2023/07/24 22:41
- ブルーレイ・プレーヤー・レコーダー レコーダーで予約ができません 1 2022/11/11 19:03
- スポーツサイクル ディレーラーについてです。 現装しているのはSHIMANO RD-5701SS 105(10速)です 1 2022/04/26 12:55
- PHP php my adminより取り出したデータ表示 2 2022/06/15 11:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ガス銘柄の株は、原油価格増→LN...
-
信用高値絶対期日到来銘柄とは...
-
日経平均を小さくPCに表示する...
-
Yahoo! Financeの株価データを...
-
ナイアガラは誰のしわざ? 機...
-
循環物色の主な例を教えてくだ...
-
楽天RSS2での移動平均の取得に...
-
Yahoo!ファイナンスのポートフ...
-
窓を開けてギャップアップで始...
-
株データブック
-
株式の取得単価が変わることは...
-
氷室京介さんの。
-
国産たばこの銘柄について詳し...
-
株探(kabutan、カブタン)
-
この人っては信用できるんですか?
-
株式投資で株主交代って何を基...
-
信用買残が大きい場合 信用買残...
-
信頼がおける?信用を置く?言...
-
9時をすぎても取引が始まらな...
-
職場の人は信用しない方がいい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ガス銘柄の株は、原油価格増→LN...
-
株式の個別銘柄についての質問...
-
ナイアガラは誰のしわざ? 機...
-
銘柄スカウター
-
日経平均を小さくPCに表示する...
-
ビットコインは少しの間で400万...
-
単一銘柄 ETFっ手なんですか? ...
-
窓埋めにはひげも含まれるので...
-
同じ銘柄を特定とNISAで分...
-
たばこをコンビニで買う時箱だ...
-
過去のストップ高・ストップ安...
-
日経225、全225銘柄の分足チャ...
-
1ティック抜きの勘所、コツを教...
-
たばこ銘柄をコレと決めずに吸...
-
信用高値絶対期日到来銘柄とは...
-
Yahoo! Financeの株価データを...
-
楽天RSS2での移動平均の取得に...
-
仮想通貨の時価総額ランキング...
-
売買に適した時間帯(寄り天を...
-
クイックコンセンサスを見るには?
おすすめ情報