如何导出指定工作表（不含隐藏的工作表）到TXT... 工作表名以指定单元格提取字符并...

lucasmnp

如何导出指定工作表（不含隐藏的工作表）到TXT... 工作表名以指定单元格提取字符并命名TXT文件名

各位前辈，老师们好，

小生在实际工作中，每日需要处理数百个如此文件，身体不堪负荷，还望名老师，前辈支招，否则饭碗不保，小生先行拜谢，祝大家工作顺利，财源滚滚，工作顺利，心想事成，万事如意，路路畅通！


1..运行环境，需要在建立d:\报表文件夹
2..我在VBA属性窗口隐藏了另外三个工作表 VISIBLE = 2
3..上面的宏，遍历工作表后，可以导出所有工作表的TXT格式到D:报表这个文件夹，但我只想导出前三个，也就是只导出指定工作表名的工作表，隐藏的不要导出
4..导出的TXT文件，文件名如何以     SHEET1中的B3格内容-再加上各自工作表本身的名字如下面,…因为B3格的内容是针对不同的厂商，会随时变动

上海化工原料制品厂-SHEET1
上海化工原料制品厂-出厂名单
上海化工原料制品厂-验收名单

lucasmnp

各位前辈，老师早上好，自已顶一下，谢谢

lucasmnp

朱荣兴 发表于 2018-8-7 08:30
Private Sub CommandButton1_Click()
Dim p$, sht, s$, fullp$
Application.ScreenUpdating = False

小生拜谢朱版主，祝朱版主身体健康，财源广进，工作顺利，！！！！！！！小生在此谢过！！！！

lucasmnp

朱荣兴 发表于 2018-8-7 08:30
Private Sub CommandButton1_Click()
Dim p$, sht, s$, fullp$
Application.ScreenUpdating = False

小生拜谢朱版主，祝朱版主身体健康，财源广进，工作顺利，！！！！！！！小生在此谢过！！！！