[VBA] 获取Excel文件中的全部工作表名称!
首先,我们简单了解一下想要实现这个需求,需要知识点:
1. 循环处理:FOR语句
2.工作表名称:Name属性
3.写内容:CELLS单元格
下面我们看需要如何来写这个代码:

Option Explicit '-作者:E精精 '--------------------------------- Sub 获取全部工作表名称() Dim i As Long, n As Long For i = 1 To Sheets.Count If Sheets(i).Name <> "目录" Then n = n + 1 Sheets("目录").Cells(n, 1).Value = Sheets(i).Name End If Next End Sub