
VBAを実行すると、
実行エラー424
オブジェクトが必要です。
となってしまいます。
エラーとなっている行は、
.Document.getElementById("q_d").Value = ActiveSheet.Cells(rowno, 1).Value
です。
作成したリストは、以下のようになっています。
Sub MAP住所()
Dim objIE As Object, rowno As Integer
rowno = 1
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
'Google Map起動
.Navigate "http://maps.google.co.jp/"
.Visible = True
Do While (ActiveSheet.Cells(rowno, 1).Value <> "")
'IE待機
Do While .Busy = True
DoEvents
Loop
'住所をテストボックスへ入力
.Document.getElementById("q_d").Value = ActiveSheet.Cells(rowno, 1).Value
'送信ボタンクリック
.Document.forms(0).submit
'次の行
rowno = rowno + 1
Loop
End With
Set objIE = Nothing
End Sub
A列にある住所を読み込んで、グーグルマップに表示するスクリプトになります。
どう直して良いのか、皆目わかりません
御指南願います
A 回答 (11件中11~11件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
エラーの原因を確認するためにHTMLソースを見てみましたが、
そのIDは使われていないようです。
簡単な方法で試してみましたが、どうでしょう。
Sub MAP住所()
Dim objIE As InternetExplorer, rowno As Integer, sngT As Single
rowno = 1
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
'Google Map起動
.Navigate "http://maps.google.co.jp/"
.Visible = True
'IE待機
While .Busy Or .readyState <> 4
DoEvents
Wend
Do
'住所をテストボックスへ入力
.document.activeElement.Value = ActiveSheet.Cells(rowno, 1).Value
'送信ボタンクリック
.document.forms(0).submit
'IE待機
sngT = Timer
While (InStr(.document.Title, ActiveSheet.Cells(rowno, 1).Value) = 0) And (Timer - sngT < 2)
DoEvents
Wend
'次の行
rowno = rowno + 1
Loop Until (ActiveSheet.Cells(rowno, 1).Value = "")
End With
Set objIE = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Googlemapsapi V=3ルート検索
-
google map の画面サイズを小さ...
-
Yahoo地図でマーカーを表示した...
-
デジタル時計の時刻合わせの方...
-
エクセルのシート上に別のシー...
-
Edge Chrom などの超初心者質問...
-
Youtubeのバグ
-
TikTokLiteの自動スクロールの...
-
Outlookでこのような表示がされ...
-
「Cancel = True」とはどういう...
-
マイページはどこを開くの
-
大きい表へのスクロールバーの...
-
[Java] Edgeでのアドレスバー非...
-
1クリックでモーダルを開いてか...
-
一定時間おきにアラームやポッ...
-
スクリプトって、何ですか?ど...
-
PDFファイルの向きを縦から横に...
-
VBの画面で、全ウィンドウを一...
-
opener.focus();が利かない
-
文章の自動スクロール
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Yahoo地図でマーカーを表示した...
-
VBAでオブジェクトがありません...
-
Google マップにマーカーと同心...
-
WordのVBAについて
-
google map の画面サイズを小さ...
-
郵便番号で検索⇒距離順に結果リ...
-
Yahoo地図で郵便番号からおおよ...
-
GoogleMapAPIで複数のマーカー...
-
ホームページをあたらしいアド...
-
ホワイトボードに水性顔料マー...
-
Rでの散布図の要素をマーカーで...
-
javaScript(canvas)で図形(イラ...
-
リンク先がgoogleなどの場合
-
JavaScriptでGoogleMAPの表示を...
-
Google Map埋め込みでマーカー...
-
Google Mapでマーカーにパラメ...
-
google map apiを使って自宅周...
-
onMouseOver、onMouseOutイベン...
-
【javascript】住所から郵便番...
-
GoogleMapAPIv3でルート上の座...
おすすめ情報