[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

