VBA遍历当前工作簿所有工作表名

vba想要遍历访问当前工作簿获取所有工作表名，有以下两种方法：

第一种，利用Sheets.Count获得工作簿中的工作表最大序号，从1访问到最大，通过表序号获取表名属性：

Sub 遍历当前工作簿所有工作表名1()
For i = 1 To Sheets.Count
    MsgBox Sheets(i).Name
Next
End Sub

第二种，定义工作表对象，遍历工作簿的工作表，通过对象返回表名属性：

Sub 遍历当前工作簿所有工作表名2()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    MsgBox ws.Name
Next
End Sub

以上内容对您有帮助可以分享或转藏，避免以后找不到。想要了解更多VBA相关知识，欢迎到http://moqingyan.360doc.com我的个人图书馆查看。