使用Excel VBA在Chrome的1个标签页中打开网址

Question

我尝试使用以下代码在Chrome的同一标签中依次打开各种链接，延迟时间为2分钟。但每次执行时，它都会在Chrome中的新标签页中打开。

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)

Sub openGenericURL()

Dim genericURL As String
Dim shellURL As String
Dim browser As Variant
Dim sSleep As Variant


        sSleep = Sheet1.Range("G2")  'Set to 2 minutes

        For i = 2 To 5
            genericURL = Sheet1.Cells(i, 12)    'Reading From Excel Cells
            Debug.Print genericURL
            shellURL = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & genericURL
            browser = Shell(shellURL, vbMaximizedFocus)

            If i <> 5 Then
                Sleep (sSleep)
            End If
        Next i

End Sub

enter image description here