MS Access VBA：使用多个工作表创建Excel工作簿

Question

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

'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个工作表的工作簿？如何设置各个工作表的值？

Answer 1

工作簿以一张纸开始。您可以添加工作表并通过这样的行对其命名：

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

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