Question

我需要在Google Chrome浏览器的相同标签中打开两个链接。下面是我尝试过的代码，但我得到了＃34;文件未找到＆＃34;行中的错误Browser = Shell（Chromepath＆amp;＆＃34; -url URL1＆＃34;）。打开第一个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而不是您的链接。

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

1 个答案: