ＷＥＢクエリで地図を取得する事は出来ない？

質問

例えば、東京駅の地図をエクセルに読み込みたいのですが
データ→ＷＥＢクエリ→アドレスに
http://www.mapion.co.jp/m/35.6778222_139.7705278_8/v=m3:%E6%9D%B1%E4%BA%AC%E9%A7%85/
を入れて、左上の矢印ボタンを押し、全てのページを取り込めるようにして
移動ボタンを押下し、オプション→ＨＴＭＬ形式にして、取り込みを押しても、
エクセルに地図は読み込めません。

私の予想としては、画像として地図がエクセルに表示されるかな。と思ったのですが、
そんなことは不可能でしょうか？
mapionだからダメなのでしょうか？

上記のＵＲＬをＣＴＲＬ+Ａで全て選択して、コピーして、エクセルに貼りつけると、
１０枚の地図がエクセルに貼りつけられます。
（添付画像参照）

%E6%9D%B1%E4%BA%AC%E9%A7%85は、
http://komet163.blog36.fc2.com/blog-entry-18.html
でデコードすると、東京駅と言う意味になります。

回答No.3

aoyama984 · ベストアンサー

http://www.mapion.co.jp/m/basic/35.6778222_139.7705278_8/t=simple/size=600x550/icon=home,139.7705278,35.6778222/
シンプル地図を利用してください
ダメなら補足してください

お礼

再度ご回答ありがとうございます。

さっそく、
Sub VBAでWebQuery()
Dim ページ As String
ページ = "http://www.mapion.co.jp/m/basic/35.6778222_139.7705278_8/t=simple/size=600x550/icon=home,139.7705278,35.6778222/"

Sheets.Add after:=Sheets(Sheets.Count)
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True
myIE.Navigate ページ
Do Until myIE.busy = False And myIE.ReadyState = 4: Loop

For Each myTAGs In Array("script", "input", "select", "textarea")
For Each myTAG In myIE.document.getElementsByTagName(myTAGs)
myTAG.outerHTML = ""
Next
Next

myBody = myIE.document.body.outerHTML
myIE.document.parentwindow _
.clipboardData.SetData "Text", myBody
ActiveSheet.Paste
myIE.Quit: Set myIE = Nothing
MsgBox "完了"
End Sub

を実行してみたのですが、
今度はエラーにならずにＷＥＢクエリが出来ましたがやはり画像の読み込みはできません。
オートシェイブはいくつか読み込めてました。
当方のバージョンは２００３・２００７です。

回答No.2

aoyama984

http://note.chiebukuro.yahoo.co.jp/detail/n24833
手動のコピペで可能なら　このVBAでも可能だと思います
ダメだったら補足してください
使い方は分かるでしょうか

別々のシートに
または　指定のセルに
または　画像のみ
など利用方法により変更が可能です

お礼

知恵袋のコードを標準モジュールに貼りつけて実行してみましたが、
実行時エラー600
「 アプリケーション定義またはオブジェクト定義のエラーです」となってしまいました。

せっかくご回答いただいたのに申し訳ないです・・・

回答No.1

keithin

ＷＥＢクエリでは、どこのサイトからでも画像は読み込めません。

アナタのヤリタイ事はＷＥＢクエリでは不可能なので、既に出来ているようにコピーして貼り付けてエクセルに取り込んでください。

＃参考
わざわざ「エクセルに取り込む」とかせずに、ＵＲＬだけハイパーリンクで用意しておいて、クリックすればふつーにブラウザで表示するので十分なように思えますが。

わざわざ「エクセルに取り込んで」一体全体何をしたいのか、もうちょっと詳しい状況ややりたい事の詳細を添えて、改めて別のご相談として投稿し直してみてください。

お礼

ＷＥＢクエリでは不可能なのですか、では諦めます。

私のやりたい事は、各シートに東京駅、有楽町駅、新橋駅・・・
といろんな地図を一気に読みこみたかったのです。
説明不足で申し訳ございません。