代码在同一个标​​签中打开两个链接

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而不是链接。