MS Access VBA：创建具有多个工作表的 Excel 工作簿答案

【问题标题】：MS Access VBA: Creating Excel Workbook with multiple WorksheetsMS Access VBA：创建具有多个工作表的 Excel 工作簿
【发布时间】：2018-06-27 17:43:38
【问题描述】：

我可以使用以下代码创建一个包含单个工作表的工作簿：

'Create Custom Excel Report
Set XL = New Excel.Application
XL.Visible = True
Set WB = XL.Workbooks.Add
Set WKS = WB.Worksheets(1)
WKS.Name = "Fred"

'Set Report Headers
WKS.Cells(2, 1).value = "Name"
WKS.Cells(2, 2).value = "Address"
WKS.Cells(2, 3).value = "Hat Size"

如何创建包含 3 个工作表的工作簿？如何设置各个工作表的值？

【问题讨论】：

使用Worksheets.Add 方法。 2010 年之后，每个工作簿都至少有一个工作表（所以你从来没有添加它开始）。
那么我是否可以设置一个新变量，例如：Set WKS2 = WB.Worksheets.Add
正确。你试过了吗？
是的。这就是答案。谢谢

标签： vba ms-access ms-access-2016

【解决方案1】：

工作簿从一张纸开始。您可以附加一个工作表并通过这样的行命名它：

WB.Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Fred"

您可以在创建时分配一个变量，或者您可以引用新工作表的名称：例如，WB.Sheets("Fred")

【讨论】：