[VBA] 获取Excel文件中的全部工作表名称!

作者:E精精 发布时间: 2022-12-30 20:33 阅读(831)  

首先,我们简单了解一下想要实现这个需求,需要知识点:

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

 

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注