無法使用VBA在多個選項卡中輸入文本

Question

我是VBA新手！ 我正在嘗試自動化一個特定的過程，即“從excel工作表中復制客戶詳細信息，然后打開IE並轉到特定的URL，然后粘貼信息並單擊“搜索”按鈕並進入客戶記錄”，我已經成功完成了流程，但是它在多個窗口中打開，因為我必須為許多客戶執行此操作，這不是很好，所以我在線搜索並成功在IE的同一窗口中的多個TABS中打開了客戶的記錄頁面。

現在真正的問題是我無法在每個窗口中分別輸入客戶的信息，它只是在“第一窗口”中輸入詳細信息並進行搜索

以下是我使用的代碼：

Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate ThisWorkbook.Sheets("Sheet4").Range("Link")
Do
If IE.ReadyState = 4 Then
Exit Do
Else
DoEvents
End If
Loop
On Error Resume Next
IE.document.all("admin_name").Value = ThisWorkbook.Sheets("Sheet4").Range("User")
IE.document.all("admin_pass").Value = ThisWorkbook.Sheets("Sheet4").Range("Pass")
Set ElementCol = IE.document.getElementsByTagName("button")
For Each link In ElementCol
If link.innerHTML = "LOGIN" Then
link.Click
Exit For
End If
Next
Application.Wait (Now + TimeValue("0:00:04")) ' Utill this line the IE opens the URL (and it is password protected)
' From here on the code opens the customer's records page
x = Range("J1").CurrentRegion.Rows.Count
Y = x - 1
For i = 1 To Y
ActiveCell.Offset(1, -1).Select
Dim navi As String
navi = "Sample URL"
IE.Navigate navi, CLng(2048) ' This is code which i used to open webpages in multiple TABS
Application.Wait (Now + TimeValue("0:00:04"))
Dim Firstname As Variant
Firstname  = ActiveCell.Value
IE.document.getelementsbyname("cc_first_six").Item.innertext = Firstname  
ActiveCell.Offset(0, 1).Select
Dim Lastname As Variant
Lastname = ActiveCell.Value
IE.document.getelementsbyname("cc_last_four").Item.innertext = Lastname 
Set ElementCol = IE.document.getElementsByTagName("a")
For Each link In ElementCol
If link.innerHTML = "Show Results" Then
link.Click
End If
Next
Next i

結束子

該代碼運行良好，但是它只使用第一個TAB並搜索所有客戶，我想做的是，它應該對excel文件中的第一個客戶使用第二個TAB，對excel中的第二個客戶使用第三個TAB文件等....（如果我使用多個窗口選項，則可以滿足我的需要，但是，我想在同一個窗口中同時使用多個TABS）

Answer 1

我做了很多研究，但找不到適合該問題的解決方案。 但是您可以使用sendkey從一個選項卡移動到另一選項卡。

SendKeys "^{TAB}", True
Application.Wait (Now() + TimeValue("00:00:10"))