2

これに対する解決策を見つけるのに苦労しています。Visual Basic (より具体的には Excel の VBA) から、次を使用してタイトルで Internet Explorer ウィンドウを呼び出すことができます。

AppActivate ("My Page Title - Windows Internet Explorer")

そして毎回大活躍です。

新しいウィンドウを開いて、..

Dim ie As Object
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://websiteurl"

それも問題なく動作しますが、毎回新しいブラウザーが開き、常に同じウィンドウを呼び出すようにしたいです。

ieそのため、毎回同じページに等しくなるように設定できます。だから代わりに

Set ie = New InternetExplorer

それは次のようなことをします

Set ie = ACTIVE InternetExplorer

（それは存在しないようですが）。ieと同じになるように設定する方法はありAppActivate ("My Page Title - Internet Explorer")ますか？

ありがとう

完全なコードはこちら:

Sub Find_Recordings()
Dim MyAppID, ReturnValue

AppActivate ("My Page Title - Windows Internet Explorer")

SendKeys ("^a")
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys ("^c")
Application.Wait (Now + TimeValue("0:00:01"))

AppActivate ("Microsoft Excel")
Sheets("DataSearcher").Select
Range("K1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon: = False

Range("A1").Select

Dim ie As Object
Set ie = New InternetExplorer
ie.Visible = True     ie.Navigate "http://wwwmyurl"

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

ie.Document.getElementById("searchdata1").Value = Range("J1")
ie.Document.getElementById("library").Value = "RECORDINGS"
ie.Document.searchform.Submit



End Sub
4

1 に答える 1

1

Internet Explorer COM オートメーション オブジェクトを再利用して、探している特定の Web ページがアクティブな IE のインスタンスを特定することで、このようなことを試すことができます。


strURL = "http://www.theage.com.au/"
に変更

必要に応じて「マイページタイトル - Windows Internet Explorer」

VBA

Sub Test()
Dim ShellApp As Object
Dim ShellWindows As Object
Dim IEObject  As Object
Dim strURL As String
strURL = "http://www.theage.com.au/"
Set ShellApp = CreateObject("Shell.Application")
Set ShellWindows = ShellApp.Windows()
Dim i
For i = 0 To ShellWindows.Count - 1
    If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
        If ShellWindows.Item(i).LocationURL = strURL Then
            Set IEObject = ShellWindows.Item(i)
            MsgBox "IE instance with " & strURL & " found"
            Exit For
        End If
    End If
Next
End Sub
于 2012-03-15T12:17:09.113 に答える