Excel/VBA: 在新窗口中打开新工作簿

Question

我正在使用Excel 2010，并且正在寻找一个VBA脚本，可以在新窗口中打开一个新工作簿（例如，我可以将两个工作簿分别放在两个显示器上）。

然后，我将把这个VBA /宏放在功能区上并分配一个快捷键。因此，它的工作方式类似于CTRL + N，但新工作簿会在Excel的另一个窗口/实例中打开，而不是在同一个窗口中。

我尝试使用Shell（“excel.exe”），但我想由于它是从我的PERSONAL.XLSB工作簿运行的，所以它会问我是否只读或通知。

我只想要CTRL + N的功能，但带有新窗口添加。

谢谢！

- Chase

---

使用 Workbooks.Add 方法无法提供您需要的功能吗？ - cherry_bueno

Cherry - 你说得对，而且与此同时，Rory的回答也包括了这个命令。所以谢谢你们俩！ - Chase

Answer 1

您可以使用以下内容：

Sub NewApp()
    With CreateObject("Excel.Application")
        .Workbooks.Add
        .Visible = True
    End With
End Sub

但请注意，这种自动化方式不会默认加载启动工作簿和加载项。

- Rory

Answer 2

另一种完成相同操作的方法，包括选择要打开的文件：

Sub tgr()

    Dim strFilePath As String
    Dim xlApp As Object

    strFilePath = Application.GetOpenFilename("Excel Files, *.xls*")
    If strFilePath = "False" Then Exit Sub  'Pressed cancel

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open strFilePath

End Sub

- tigeravatar

---

这对我（和其他人）肯定也很有用，非常感谢提供这个额外的功能。 - Chase