問題は次の行です。
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