![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
ユーザーフォームに最小化・最大化ボタンを付ける
Access(アクセス)
-
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
Excel:入力規制で選択された値によって他のセルの入力規制リストを変更する方法
Excel(エクセル)
-
-
4
エクセルで文字列検索の関数
その他(Microsoft Office)
-
5
excel シート上のボタンが動かない
Visual Basic(VBA)
-
6
VBAでアプリを自動操作したい
Excel(エクセル)
-
7
ユーザーフォーム スクロールバー 非表示にしたい
Excel(エクセル)
-
8
セルをクリックすると付箋のようなものが表示されるのだが。
Excel(エクセル)
-
9
Excel VBA 2次元配列を使った具体サンプル
その他(Microsoft Office)
-
10
クイックアクセスツールバーに登録されたマクロについて
Excel(エクセル)
-
11
*?"の意味は?"
Excel(エクセル)
-
12
VBAユーザーフォームのチェックボックスについて
Excel(エクセル)
-
13
VBAのエラーについて、”実行時エラー424オブジェクトが必要です”
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
郵便番号で検索⇒距離順に結果リ...
-
入力した住所の画面内でグーグ...
-
Google Maps API v2 現在位置か...
-
Rでの散布図の要素をマーカーで...
-
Google マップにマーカーと同心...
-
GoogleMapApi GoogleMap のカス...
-
ホームページビルダー16 地図...
-
google map の画面サイズを小さ...
-
アイフォンの位置を検索する
-
GoogleMapsでルート表示
-
デジタル時計の時刻合わせの方...
-
マイページはどこを開くの
-
エクセルのシート上に別のシー...
-
ウインドウを毎回同じ位置、大...
-
Javascript_submit()完了後に処...
-
一定時間おきにアラームやポッ...
-
エクセルVBAでフォームのListbo...
-
リストビューをスクロールさせ...
-
同じページをブラウザで複数開...
-
ポップアップウィンドウがブロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Yahoo地図でマーカーを表示した...
-
WordのVBAについて
-
onMouseOver、onMouseOutイベン...
-
aspのセレクトボックスにDBのデ...
-
googlemapで複数条件絞り込みで...
-
VBAでオブジェクトがありません...
-
google map マーカをブリンク...
-
google map の画面サイズを小さ...
-
iPhoneサイトにgooglemapを掲載...
-
アイフォンの位置を検索する
-
Google マップにマーカーと同心...
-
map = new google.maps.Mapで作...
-
JavaScriptでGoogleMAPの表示を...
-
googlemapsとjavascriptの勉強...
-
GMap Api V3で中心マーカーを表...
-
グーグルマップ(Googlemap)を...
-
【javascript】住所から郵便番...
-
LightWindowのサイズがおかしい...
-
GoogleMapsでルート表示
-
ホームページ上に大きな表を1ペ...
おすすめ情報