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

Posted 2023-05-07

【中文标题】MS Access VBA：创建具有多个工作表的 Excel 工作簿

【英文标题】：MS Access VBA: Creating Excel Workbook with multiple Worksheets

【发布时间】：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

正确。你试过了吗？

是的。这就是答案。谢谢

【参考方案1】：

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

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

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