如何导出EXCEL中工作簿的名称

来源：百度知道 编辑：UC知道 时间：2024/05/02 18:28:14
我有个EXCEL表格有二十几个工作簿，现想将工作簿的名称导出到一个EXCEL或文本文件中．请问可以用什么办法？？谢谢．

是二十几个工作表吧。。。用宏就可以

Sub aa()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub

另存为
保存类型选文本文件

按ALT + F11，输入以下代码并运行。会在A1 A2。。。An 列出的有的表名。

Private Sub GetNames()

i = i + 1
For Each wb In ThisWorkbook.Sheets

Sheets(1).Cells(i, 1) = wb.Name

i = i + 1
Next

End Sub

试试这样行不行
按ALT + F11，输入以下代码并运行。