为Excel工作表添加Index属性及按位置识别索引可行性咨询

当然可以通过工作表的位置索引来识别它们，Excel的对象模型本身就自带了基于位置的索引机制，甚至不需要额外添加新的Index属性。

直接使用内置位置索引 #

Excel里的Worksheets集合支持通过数字索引访问工作表，索引从1开始计数（第一个工作表对应索引1，第二个对应2，依此类推）。用VBA代码示例：

' 获取第2个位置的工作表
Dim targetWs As Worksheet
Set targetWs = ThisWorkbook.Worksheets(2)

给工作表添加自定义Index属性（可选） #

如果需要给每个工作表绑定一个和位置对应的自定义Index属性，可以通过VBA的自定义属性功能实现：

Sub 给工作表添加自定义索引()
    Dim ws As Worksheet
    Dim idx As Integer
    idx = 1
    For Each ws In ThisWorkbook.Worksheets
        ' 添加名为"MyIndex"的自定义属性，值为当前工作表的位置序号
        ws.CustomProperties.Add Name:="MyIndex", Value:=idx
        idx = idx + 1
    Next ws
End Sub

读取自定义属性的代码示例：

' 读取指定工作表的自定义索引
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("销售数据")
MsgBox "该工作表的自定义索引：" & ws.CustomProperties("MyIndex").Value

Worksheet对象属性弹窗内容（中文翻译） #

• Name：工作表名称
• Index：内置位置索引（Excel原生属性，对应工作表的位置顺序）
• Visible：可见状态
• UsedRange：已使用单元格区域
• Parent：所属的工作簿对象

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