在没有任何工作表的情况下启动空的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 method as it applies to the Workbooks object.)

完整代码:

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'