VB操作Excel：如何向多个自定义Sheet批量写入列数据？

当前代码无法达成目标的原因 #

• 全程没有给oSheet对象绑定具体要操作的工作表，默认写入会落到系统自动生成的初始空白表上
• 缺少遍历工作表的循环流程，只能执行单次写入，没法对所有自定义表重复执行相同的写入操作

实现思路 #

1. 先完成所有自定义名称工作表的创建，顺手清理掉Excel默认生成的冗余初始表，避免出现无关的空白表
2. 循环遍历工作簿内的每一个自定义工作表，把原来仅执行一次的列头、固定内容写入逻辑，放到循环体中逐表运行即可

完整可运行代码 #

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
' 预定义需要创建的自定义工作表名称
Dim customSheetNames As Variant
customSheetNames = Array("Sounds", "Colors", "Animals", "Forms")

' 启动Excel实例，新建空白工作簿
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True ' 不需要显示界面时可设为False，实现后台静默运行
oBook = oExcel.Workbooks.Add

' 清空工作簿默认生成的所有初始工作表
Do While oBook.Worksheets.Count > 0
    oBook.Worksheets(1).Delete
Loop

' 批量创建自定义名称的工作表
Dim sheetName As Variant
For Each sheetName In customSheetNames
    oBook.Worksheets.Add.Name = sheetName
Next

' 遍历每一个自定义工作表，执行统一的写入逻辑
For Each oSheet In oBook.Worksheets
    oSheet.Range("A1").Value = "Date"
    oSheet.Range("A2").Value = Now
    oSheet.Range("B1").Value = "Category"
    oSheet.Range("C1").Value = "Correct"
    oSheet.Range("D1").Value = "Answer"
    oSheet.Range("E1").Value = "Time"
Next

' 后续可根据需求添加保存文件、退出Excel进程等逻辑

可选效率优化 #

如果后续要处理的工作表数量较多，逐单元格赋值的运行效率偏低，可以将固定列头存入数组，一次性完成整块区域的写入：

' 替换循环体内的逐单元格写入逻辑
Dim headerContent As Variant
headerContent = Array("Date", "Category", "Correct", "Answer", "Time")
' 一次性写入A1到E1的列头
oSheet.Range("A1:E1").Value = headerContent
' 写入A2单元格的当前时间
oSheet.Range("A2").Value = Now

内容的提问来源于stack exchange，提问作者ImJP