PR
キーワードサーチ
▼キーワード検索
EXCEL VBA TIPS
わたしのブログへようこそ
カレンダー
コメント新着
フリーページ
2008.08.07
テーマ： パソコン講師(288)
カテゴリ： カテゴリ未分類
使い方：EXCELの任意のセルに住所を入力、”東京都新宿区歌舞伎町”てな感じで
動作：セルの住所からgoogleの地図を表示します
以下マクロのソースです
Dim objIE0 As Object 'ルートのオブジェクト、操作コードではこの名称を使用します
Dim objIE1 As Object, objIE2 As Object 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください
Dim s As String
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
If Window.Document.url = "http://maps.google.co.jp/maps?hl=ja&tab=wl" Then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s = True
Exit For
End If
End If
Next
If win_s = False Then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Navigate "http://maps.google.co.jp/maps?hl=ja&tab=wl"
Do While objIE0.busy = True
DoEvents
Loop
Do While objIE0.Document.readyState <> "complete"
Loop
End If
objIE0.Document.all.tags("INPUT").Item(5).Value = ActiveCell.Value ' text index=5
objIE0.Document.all.tags("INPUT").Item(6).Click ' submit btnG 地図を検索 or tags("INPUT").item(6)
動作：セルの住所からgoogleの地図を表示します
以下マクロのソースです
Dim objIE0 As Object 'ルートのオブジェクト、操作コードではこの名称を使用します
Dim objIE1 As Object, objIE2 As Object 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください
Dim s As String
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
If Window.Document.url = "http://maps.google.co.jp/maps?hl=ja&tab=wl" Then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s = True
Exit For
End If
End If
Next
If win_s = False Then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Navigate "http://maps.google.co.jp/maps?hl=ja&tab=wl"
Do While objIE0.busy = True
DoEvents
Loop
Do While objIE0.Document.readyState <> "complete"
Loop
End If
objIE0.Document.all.tags("INPUT").Item(5).Value = ActiveCell.Value ' text index=5
objIE0.Document.all.tags("INPUT").Item(6).Click ' submit btnG 地図を検索 or tags("INPUT").item(6)
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
