ｖｂａｉｅ操作 新しく開いたウインドウを操作したい

質問

こんばんは。いつもお世話になっております。

新たに開いたウインドウをVBAでキャッチ（？）して、
オブジェクトの中に入れたいのですがやり方が分かりません。

OS：XP、オフィス２００３です。
http://okwave.jp/qa/q7643293.html
を参考に、

---------------------------------------------------------
Option Explicit
Sub test1()

Dim objIE As InternetExplorer

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate "http://www.goo.ne.jp/"
objIE.Visible = True

Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.Document.ReadyState <> "complete"
DoEvents
Loop

’安否情報確認サイト 【J-anpi】をクリックする
For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).href = "http://anpi.jp/" Then
objIE.Document.Links(i).Target = "_blank"
objIE.Document.Links(i).Click
Exit For
End If
Next i

objIE.Document.all("name").Value = "test" 'エラーになる

Set objIE = Nothing
End Sub
---------------------------------------------------------

を実行した時に、
http://anpi.jp/top
のページの“名前“をＶＢＡで入れたいのですが、実行時エラー91になります。

理由は、
objIEには、http://www.goo.ne.jp/が入ってるから、
http://anpi.jp/topのページは操作できないのが原因だと思うのですが
Dim objIE2 As InternetExplorer
のように新たなオブジェクトを作って、
objIE2にhttp://anpi.jp/topを入れて操作するにはどうすればいいでしょうか？

最初から、
objIE.Navigate http://anpi.jp/top
を開いたり、
objIE.Navigate2 http://anpi.jp/top　, 2048
で新たなタブを開く方法以外でお願いします。

Debug.Print objIE.LocationURL
を見ると、
http://www.goo.ne.jp/
が返ってきます。（そりゃそうか）

本当はこのサイトはサンプルで実際は、
vbaで
objIE.Document.Links(i).Target = "_blank"
objIE.Document.Links(i).Click
をクリックした場合、
新たに開いたウインドウをVBAでテキストに文字を入れたり、ボタンを押したりの操作する方法を知りたいのです。

objIE.document.Links(i).Click
このタイミングで、
objIEにhttp://anpi.jp/topがはいればいいなーって思ってます。

---------------------------------------------------------
Sub test2()
Dim objIE As InternetExplorer
Dim objIE2 As InternetExplorer

Set objIE = CreateObject("InternetExplorer.Application")
Set objIE2 = CreateObject("InternetExplorer.Application")

objIE.Navigate "http://www.goo.ne.jp/"
objIE.Visible = True

Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.Document.ReadyState <> "complete"
DoEvents
Loop

’安否情報確認サイト 【J-anpi】をクリックする
objIE2.Navigate "http://anpi.jp/top"
objIE2.Visible = True

objIE2.Document.all("name").Value = "test" 'エラーになる

Set objIE = Nothing
Set objIE2 = Nothing
End Sub
---------------------------------------------------------
これにするしかないのでしょうか？

ご回答よろしくお願いします。

回答No.1

ki-aaa · ベストアンサー

こんにちわ

すでに開いているIEに、オブジェクトをセットする

Dim myUrl As String
Dim myFlag As Boolean
Dim objIE As Object

myUrl = "http://anpi.jp/top"

For Each objIE In CreateObject("Shell.Application").Windows
If objIE.LocationURL = myUrl Then
myFlag = True
Exit For
End If
Next objIE
If Not myFlag Then
msgbox "目的のページはありません"
else
msgbox "objIEにセットされました"
End If

お礼

なるほど！すべてのブラウザをループして入れる方法ですね！
自分なりにアレンジしてうまくいきました。
ありがとうございました。勉強になりました。

回答No.2

DOUGLAS_

ご質問文を拝見しますと、随分とIEの操作にはお詳しいようですので、こちらをどうぞ。

●二つ目のタブを閉じたい
http://okwave.jp/qa/q7830049.html

お礼

実はその質問に感化され質問してしまったのです。