在同一选项卡中打开两个链接的代码

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 之后需要一个空格，否则 Shell 正在寻找它无法找到的 chrome.exe-url（因此出现错误）。我还修复了 URL 变量的使用，因为它们需要在引号之外，以便正确引用它们。将它们留在里面会导致它们被逐字处理，Chrome 将尝试浏览到 URL1 而不是您的链接。