如何用代码将当前工作簿全部表名导出到文本文件中？

作者：绿色风分类：时间：2022-08-17 浏览：109

楼主
kevinchengcw

Q: 如何用代码将当前工作簿全部表名导出到文本文件中？
A: 利用如下代码可以将当前工作簿中的工作表名导出到当前工作簿所在文件夹下的"表名.txt"文件中，代码如下：

Sub test()
Dim FSO, TxtFile
Dim Ws As Worksheet
Set FSO = CreateObject("scripting.filesystemobject") '创建FSO对象用于处理文本输出
Set TxtFile = FSO.createtextfile(ThisWorkbook.Path & "\表名.txt", 2) '设定输入文本文件为当前工作簿所在文件夹下的"表名.txt"
For Each Ws In Worksheets '循环当前工作簿各个工作表
TxtFile.writeline Ws.Name '将当前表名写入文本文件中
Next Ws
TxtFile.Close '关闭文本文件
Set TxtFile = Nothing '清空文件项目
Set FSO = Nothing '清空FSO项目
End Sub

以此为基础，其他应用请酌情修改

2楼
事后诸葛亮

回帖，为了升级别。怎么升级啊。郁闷，别删我的回帖，只要升级了我就不乱回了。谢谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表