1

問題は次の行です。

Set TrackID2 = oIE.document.getelementbyid("main-search-box")

基本的に、サイトの 2 つのインスタンス (2 つのタブ) を開き、検索ボックスを見つけて文字列を入力して送信するには、VBA が必要です。

タブを開くことができましたが、VBA が IE のインスタンス内の 2 番目のタブに正しい文字列を入力する方法が見つかりません。そうです、2 つのタブが開きますが、両方の文字列を最初のタブに入力してそこで 2 回検索し、2 番目のタブはアドレスを開くだけです。

現在のように、VBA が最初のタブではなく 2 番目のタブを指すようにコードを編集するにはどうすればよいですか?

事前に助けてくれてありがとう!

Sub TestIE() 

Dim IE As Object 
Dim TrackID As Object 
Dim TrackID2 As Object 
Dim address As String 

address = "https://www.google.com/" 

Const navOpenInNewTab = &H800 
Set oIE = CreateObject("InternetExplorer.Application") 
oIE.Visible = True 


oIE.Navigate address 
Do Until oIE.readystate = 4: 
    DoEvents: Loop 
    Set TrackID = oIE.document.getelementbyid("main-search-box") 
    TrackID.Value = ActiveSheet.Range("a1") 
    TrackID.form.submit 

    oIE.Navigate2 address, CLng(navOpenInNewTab) 
Do Until oIE.readystate = 4: 
        DoEvents: Loop 
        Set TrackID2 = oIE.document.getelementbyid("main-search-box") 
        TrackID2.Value = ActiveSheet.Range("A2") 
        TrackID.form.submit 

    End Sub 
4

1 に答える 1