[已解决]求一工作表导出程序

hwc2ycy · 发表于 2014-6-26 16:49

yjwdjfqb 发表于 2014-6-26 14:58
我是想，选择几个工作表，后，导出来生成一个文件

晚上帮你改。

yjwdjfqb · 发表于 2014-6-26 17:01

hwc2ycy 发表于 2014-6-26 16:49
晚上帮你改。

好的老师！非常的感谢！

yjwdjfqb · 发表于 2014-6-26 18:36

hwc2ycy 发表于 2014-6-26 16:49
晚上帮你改。

老师你好，在帮我改时，弹出的选择框中，中显示有数据的工作表，保存路径，默认是当前路径，也可以选择路径，谢谢老师了！
无标题.jpg

hwc2ycy · 发表于 2014-6-26 20:23

求一工作表导出程序.rar (16.37 KB, 下载次数: 17)

yjwdjfqb · 发表于 2014-6-26 20:32

hwc2ycy 发表于 2014-6-26 20:23

谢谢老师，是这样的，选择框中，可以只显示有数据的工作表吧，没有数据的工作，也没有导出的必须
所以在这个地方想，只显示出有数据的工作表，再次麻烦老师了!

yjwdjfqb · 发表于 2014-6-26 22:23

hwc2ycy 发表于 2014-6-26 20:23

strSheet = strSheet & .List(i) & "?"

Worksheets(Split(strSheet, "?")).Copy

版主你好，感谢你的帮助，关于，不显示空表的问题，已经解决了

想请教下老师，上面二句中，加的　"?"　是什么意思呀，有什么目的呢。

hwc2ycy · 发表于 2014-6-26 23:08

yjwdjfqb 发表于 2014-6-26 22:23
strSheet = strSheet & .List(i) & "?"

Worksheets(Split(strSheet, "?")).Copy

分隔工作表名用的，然后生成数组。

yjwdjfqb · 发表于 2014-6-27 08:19

hwc2ycy 发表于 2014-6-26 23:08
分隔工作表名用的，然后生成数组。

老师

我改成了

strSheet = strSheet & .List(i) & "︱"

Worksheets(Split(strSheet, "︱")).Copy

　把问号改成　"︱"　，其它地方有需要改动的吗！

hwc2ycy · 发表于 2014-6-27 09:31

不需要。

yjwdjfqb · 发表于 2014-6-28 01:09

hwc2ycy 发表于 2014-6-27 09:31
不需要。

导出功能问题.rar (16.32 KB, 下载次数: 5)

		自动登录	找回密码
密码			注册