代碼在同一個標​​籤中打開兩個鏈接

Question

我需要在Google chrome瀏覽器的同一標籤中打開兩個鏈接。以下是我嘗試過的代碼，但是我在Browser = Shell（Chromepath &「-url URL1」）行中收到「文件未找到」錯誤。打開第一個URL（一個登錄頁面）後，它應該導航到同一個選項卡中的第二個URL。

Sub Defects() 
Dim ExtractliveApp As Variant 
Dim Browser As Variant 
Dim URL As Variant 
URL1 = "go/ExtractliveApp" 
URL2 = "https://Extract.live.com/SelfServiceExtracts" 
Chromepath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" 
Browser = Shell(Chromepath & "-url URL1") 
Browser = Shell(Chromepath & "-url URL2") 
End Sub 

Answer 1

你在你的代碼一個錯字：

Browser = Shell(Chromepath & "-url URL1") 
Browser = Shell(Chromepath & "-url URL2") 

應該

Browser = Shell(Chromepath & " -url " & URL1) 
Browser = Shell(Chromepath & " -url " & URL2) 

您需要Chromepath後的空間，因爲否則殼牌正在尋找chrome.exe-url它可以」找到（因此錯誤）。我還修正了URL變量的用法，因爲它們需要在引號之外，以便正確引用它們。將它們留在裏面會導致它們被直接處理，Chrome會嘗試瀏覽到URL1而不是鏈接。