Excel 创建未保存的空白工作簿

我正在尝试在单独的实例中打开工作簿。当前，此工作簿保存在桌面上。我想打开一个未保存或未位于系统任何位置的新工作簿。下面是我拥有的当前代码。请告知

Sub New_Excel()
  'Create a Microsoft Excel instance via code 
  'using late binding. (No references required)
  Dim xlApp As Object
  Dim wbExcel As Object

  'Create a new instance of Excel
  Set xlApp = CreateObject("Excel.Application")

  'Open workbook, or you may place here the 
  'complete name and path of the file you want 
  'to open upon the creation of the new instance
  Set wbExcel = xlApp.Workbooks.Open("C:\Users\PRASHPRA\Desktop\Book.xls") 

  'Set the instance of Excel visible. (It's been hiding until now)
  xlApp.Visible = True

  'Release the workbook and application objects to free up memory
  Set wbExcel = Nothing
  Set xlApp = Nothing
End Sub

---

如果要创建新的空白工作簿，请停止尝试打开现有工作簿。换线就行了

Set wbExcel = xlApp.Workbooks.Open("C:\Users\PRASHPRA\Desktop\Book.xls") 

到

---

有关更多信息，请参阅（该链接适用于Excel 2003，因为这是我通过Google找到的第一个链接，但它仍然适用，如果您需要更新的链接，您可能可以使用与我相同的方式找到它）。

欢迎使用Stackoverflow。请花时间正确格式化您的代码；它使它更容易阅读。您可以通过粘贴、选择全部内容、然后单击

{}

工具栏按钮或按Ctrl+K组合键对其进行格式化，或者只需将其缩进四个或更多空格即可。您可以在文本区域的正下方预览它，您可以在所见即所得视图中键入它，以便在发布之前查看它。如果需要更多格式帮助，可以单击文本区域右上角上方显示的橙色

？

按钮。如果我们能读懂你的代码，你就有更好的机会得到帮助。：-）

'Add a new, empty workbook
Set wbExcel = xlApp.Workbooks.Add