excel - 启动没有任何工作表的空 Excel 工作簿

Question

创建一个新的 Excel 工作簿，如下所示:

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Set xl = New Excel.Application
xl.Visible = False
Set wb = xl.Workbooks.Add

是否有一种简单的方法可以阻止 Excel 自动创建 Sheet1、Sheet2、Sheet3？

事后我总是可以删除这些不需要的工作表，但这感觉像是一个笨拙的解决方案。

Answer 1

xl.SheetsInNewWorkbook = 1

有关 MSDN 的更多信息(向下滚动到Add 方法，因为它适用于 Workbooks 对象。)

完整代码:

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim restoreSheetsInNewWorkbook As Long

Set xl =  New Excel.Application
restoreSheetsInNewWorkbook = xl.SheetsInNewWorkbook
xl.SheetsInNewWorkbook = 1

Set wb = xl.Workbooks.Add
xl.SheetsInNewWorkbook = restoreSheetsInNewWorkbook 'or just set it to 3'