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
联系客服