VBA获取工作簿所有工作表名称

VBA获取所有工作表名称，存放在数组：

Sub 获取工作簿所有工作表名()
Dim sheet_name_array() As Variant     '建立数组
iCounter = 0    '数组的待用下标
For i = 1 To Sheets.Count
    ReDim Preserve sheet_name_array(iCounter)      '重新定义动态数组大小
    sheet_name_array(iCounter) = Worksheets(i).Name        '给数组元素赋值
    iCounter = iCounter + 1
Next
MsgBox sheet_name_array(0)      '输出数组内第一个工作表名称
End Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。