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

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

然后，我将这个VBA /macros放在function区上，并为其分配一个快捷键。 因此，它可以像CTRL + N一样工作，但新的工作簿将在Excel的单独窗口/实例中打开，而不是相同。

我试过使用壳牌（“excel.exe”），但我想因为它是从我的PERSONAL.XLSB工作簿运行，它会询问我是否只读或通知。

我只想要CTRL + Nfunction，但用新的窗口添加。

谢谢！

Answer 1

你可以使用这个：

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

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

Answer 2

备选方法做同样的事情，包括select你想打开的文件：

 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