如何用脚本实现excel所表sheet页的读取

1、如下所示，表里面有很多表单。我们希望获取表单的名字。

2、运行宏时，如果出现如下提示，则需要启用宏。

3、如果对内容了解，可以点击左上角的【启用宏】按钮实现快速启用。

4、为了获取表格中所有表单名称，需要添加一个按钮。

5、打开VBA编辑器，输入如下代码：

Sub 按钮1_Click()

Dim sht As Worksheet, arr(), i%

For Each sht In Worksheets

i = i + 1

ReDim Preserve arr(1 To i)

arr(i) = sht.Name

Next

Range("a1").Resize(i) = WorksheetFunction.Transpose(arr)

End Sub

6、点击按钮执行，就能够达到我们想要的结果了。