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

Question

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

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

我已经尝试过仅使用Shell（“ excel.exe”），但是我想由于它是从我的PERSONAL.XLSB工作簿运行的，因此它询问我是只读还是通知。

我只需要CTRL + N功能，但要添加新窗口。

谢谢！

Answer 1

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

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

Answer 2

您可以使用此：

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

但是请注意，默认情况下，任何此类自动化操作都不会加载启动工作簿和加载项。