[已解决]完善拆分代码

l00l00 · 发表于 2017-8-7 22:14

改一句代码即可

ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "" & k(i) & ".xls"

复制代码

YUANXMJYPX · 发表于 2017-8-7 22:41

“l00l00” 老师你试了吗？注释 'ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & k(i) & ".xls", xlExcel8 换成ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & k(i) & ".xls" 倒是没有出现人工保存了，可是，拆分出来的文件在哪里呐？我没有找到哦？！

l00l00 · 发表于 2017-8-7 22:46

chaifen.xls 在哪里，就在那里。

l00l00 · 发表于 2017-8-7 22:53

附件上传了。看你那么急，也顾不得别人做过了。

YUANXMJYPX · 发表于 2017-8-7 23:04

“l00l00” 老师你好！我下载你刚传上来的文件，运行代码结束后还是没有找到拆分后工作簿啊，你也试试吧，我的文件放在：D:\桌面上的文件\调试数据\最新文件\chaifen-2017.08.07-2.xls ,我在此目录下没有找到拆分后工作簿哟。请你也试试吧。

l00l00 · 发表于 2017-8-7 23:09

我可是用2003编辑的，测试结果有很多文件呀！需要我截图给你？

l00l00 · 发表于 2017-8-7 23:10

你仔细看看吧

YUANXMJYPX · 发表于 2017-8-7 23:19

我是2010版本及2007版本确实没有啊！我又运行了一次了，还是没有哦

qdwfjmqj · 发表于 2017-8-8 22:28

办公室用没有问题就好，总算没有白做。

YUANXMJYPX · 发表于 2017-8-8 23:13

“qdwfjmqj” 谢谢老师！

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