使用VB.NET创建多工作表Excel的工作表声明操作方法

不需要为每个工作表单独声明独立变量，根据使用场景可选以下几种实现方式，各有适用范围：

1. 单变量复用（可优化的轻量方案） #

你当前反复给同一个oSheet变量赋值不同工作表对象的逻辑本身成立，适合按顺序创建工作表、创建后立刻写完该表所有内容、后续不需要回头修改该表的场景。
但你的现有代码存在一个易触发的bug：Worksheets.Add()方法默认会把新工作表插入到当前活动工作表前面，而非追加到所有工作表末尾，会导致工作表索引错位——比如创建第二个表时，新插入的表会变成索引1，原来的第一个表会变成索引2，后续取Worksheets(2)拿到的其实是第一个创建的表，会出现内容写串的问题。
优化后的写法不需要提前判断工作表数量，直接指定新表追加到末尾即可：

' 追加新工作表到所有表的最后
oSheet = CType(oBook.Worksheets.Add(After:=oBook.Worksheets(oBook.Worksheets.Count)), Excel.Worksheet)
oSheet.Name = "Requisition_Vendors"
' 写入该表所有表头、数据...

' 继续追加下一个表
oSheet = CType(oBook.Worksheets.Add(After:=oBook.Worksheets(oBook.Worksheets.Count)), Excel.Worksheet)
oSheet.Name = "Requisition_Detail_Opt__Fields"
' 写入该表所有表头、数据...

这种写法不需要额外声明变量，代码最简洁，但如果后续需要在写完后续表之后回头修改之前的表，oSheet变量已经指向最新的表，需要重新获取引用。

2. 按表名随用随取 #

不需要提前存储工作表引用，创建完所有表之后，任何时候需要操作某个表，直接通过表名从工作簿的Worksheets集合中获取即可，不受工作表顺序、索引变化的影响，适合工作表数量不多（3-5个）、需要反复跨表操作的场景：

' 任意位置需要操作指定表时，直接通过表名取引用
Dim vendorSheet As Excel.Worksheet = CType(oBook.Worksheets("Requisition_Vendors"), Excel.Worksheet)
vendorSheet.Range("J1").Value = "新增列名"

这种方式不需要提前声明一堆工作表变量，只要表名正确就不会出现引用错误。

3. 字典统一管理（表多场景推荐） #

如果工作表数量超过5个，推荐用字典统一存储所有工作表对象，创建一个就存入字典一个，后续通过表名索引即可，比单独声明变量更易维护，也比每次从Worksheets集合取引用更方便：

' 需要先引入命名空间：Imports System.Collections.Generic
Dim sheetDic As New Dictionary(Of String, Excel.Worksheet)()

' 创建第一个表并存入字典
Dim vendorSheet = CType(oBook.Worksheets.Add(After:=oBook.Worksheets(oBook.Worksheets.Count)), Excel.Worksheet)
vendorSheet.Name = "Requisition_Vendors"
sheetDic.Add(vendorSheet.Name, vendorSheet)
' 写入该表内容...

' 创建第二个表并存入字典
Dim detailOptSheet = CType(oBook.Worksheets.Add(After:=oBook.Worksheets(oBook.Worksheets.Count)), Excel.Worksheet)
detailOptSheet.Name = "Requisition_Detail_Opt__Fields"
sheetDic.Add(detailOptSheet.Name, detailOptSheet)
' 写入该表内容...

' 后续任意位置操作表，直接从字典取即可
sheetDic("Requisition_Vendors").Range("J1").Value = "新增列"
sheetDic("Requisition_Detail_Opt__Fields").Range("U1").Value = "新增列"

额外注意事项 #

• 尽量不要用数字索引取工作表，一旦插入/删除工作表导致索引变化，很容易出现内容写串的问题，优先用表名引用。
• 操作完Excel之后记得按顺序释放COM对象（先释放工作表、再释放工作簿、最后释放Excel应用对象），否则Excel进程会残留在后台占用内存。

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