多个相同工作表的工作簿如何快速拆分后组合成新的工作簿？

cqlpjxx · 发表于 2016-5-20 17:45

.............................................................

yschaizhen · 发表于 2016-5-20 17:50

cqlpjxx 发表于 2016-5-20 17:11
Sub zz()
Dim myPath$, myFile$, Aiv As Workbook, i, n, m, sh, Aiv2 As Workbook
Applicatio ...

老师，经测试，代码运行结束后，打开4个工作簿，每个里没有数据，也不自动关闭，结果文件夹中也是空的，没有新生成工作薄，麻烦老师再看看，谢谢！！！！

yschaizhen · 发表于 2016-5-20 17:53

cqlpjxx 发表于 2016-5-20 17:45
.............................................................

老师辛苦了，这个测试达到目的。有问题再和你联系。

cqlpjxx · 发表于 2016-5-20 18:10

同时汇总上百个工作簿,每个工作簿又是多张工作表,如果电脑差了点,肯定死机

yschaizhen · 发表于 2016-5-20 18:31

cqlpjxx 发表于 2016-5-20 18:10
同时汇总上百个工作簿,每个工作簿又是多张工作表,如果电脑差了点,肯定死机

老师周末愉快，下周再来向你请教。

1lanyf · 发表于 2017-4-2 22:05

cqlpjxx 发表于 2016-5-20 09:45
'在数据目录下，新一个excel文件，执行如下代码
Sub zz()
Dim myPath$, myFile$, Aiv As Workbook, s ...

office小白鼠 · 发表于 2018-7-17 19:11

我今天研究了一下午，没有任何收获。表格还是没拆分成功··继续努力

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

[求助] 多个相同工作表的工作簿如何快速拆分后组合成新的工作簿？