工作簿拆分出现的问题

3190496160

完全保留原工作表所有格式，包括页面设置等拆分，
其实，拆分问题，可以到我的主题里面去看看，好几个拆分工具，如果想学习的话，对你应该会有很多启发吧

chj6533

ykcbf1100 发表于 2022-12-29 08:43
简单改一下就行。

貌似没有解决问题，我列的问题一样存在。请老师方便再测试下。
关闭文件后重新打开，就出现。手动在过程中加断点一步步运行就没问题。这是最急人的！自己就不好找出问题。
因此请教万能的EXCELhome中的老师。

chj6533

3190496160 发表于 2022-12-29 10:49
完全保留原工作表所有格式，包括页面设置等拆分，
其实，拆分问题，可以到我的主题里面去看看，好几个拆分 ...

谢谢你。暂时还没有工作需求。只是在学习过程中，运用瑞有知识做一个测试。
另，请在我的代码中找出问题所在。
我的主要问题是：关闭文件后重新打开，就出现。手动在过程中加断点一步步运行就没问题。这是最急人的！自己就不好找出问题。
因此请教万能的EXCELhome中的老师。

chj6533

3190496160 发表于 2022-12-29 10:28
Set sht = wbk.ActiveSheet

Set sht = wbk.ActiveSheet

四两拨千斤。完美！！！

3190496160

chj6533 发表于 2022-12-29 12:03
谢谢你。暂时还没有工作需求。只是在学习过程中，运用瑞有知识做一个测试。
另，请在我的代码中找出问题 ...

10楼给你的代码，没有看，没有测试？？无论是代码的效率还是结果都比你目前的要行吧？

chj6533

3190496160 发表于 2022-12-29 10:28
Set sht = wbk.ActiveSheet

Set sht = wbk.ActiveSheet
药到病除。完美！

3190496160

chj6533 发表于 2022-12-29 12:03
谢谢你。暂时还没有工作需求。只是在学习过程中，运用瑞有知识做一个测试。
另，请在我的代码中找出问题 ...

目前的代码，一切的问题，按8楼的代码来修改应该就可以解决了吧

chj6533

3190496160 发表于 2022-12-29 12:57
10楼给你的代码，没有看，没有测试？？无论是代码的效率还是结果都比你目前的要行吧？

试了。连这个Set sht = wbk.ActiveSheet测试了，发现了完美。

chj6533

3190496160 发表于 2022-12-29 12:59
目前的代码，一切的问题，按8楼的代码来修改应该就可以解决了吧

是的。谢谢你，谢谢EXCELHOME
另我的代码加 你的

Set sht = wbk.ActiveSheet

药到病除，完美！

chj6533

3190496160 发表于 2022-12-29 12:59
目前的代码，一切的问题，按8楼的代码来修改应该就可以解决了吧

是的。谢谢你，谢谢EXCELHOME   另，加了个 WBK 完美解决