根据关键字拆分工作表为多个工作簿

zghroanpge · 发表于 2016-8-15 10:37

非常谢谢还在网上搜代码弄了半天总是运行错误帮了大忙了

spbreeze · 发表于 2016-9-6 18:48

将原来的代码Workbooks(Workbooks.Count).SaveAs FileName:=temp & "-" & sjwk.Name加上replaace,
可以解决打开时的提醒工作簿扩展名不符与文档格式不符的问题。
代码优化为：
Workbooks(Workbooks.Count).SaveAs FileName:=Replace(temp & "-" & sjwk.Name, ".xls", "")

spbreeze · 发表于 2016-9-6 19:09

将 FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls", , "请选择要分表的工作表所在的位置！", , 0)改为 FileName = Application.GetOpenFilename("Excel 文件 (*.xlsx),*.xlsx", , "请选择要分表的工作表所在的位置！", , 0)，可解决拆分xlsx文件的问题

云開月明 · 发表于 2016-9-26 20:10

实验附件，代码咱看不明白，试运行，提示下标越界！
错误提示见附件图片

jjttjj01 · 发表于 2016-10-7 15:16

收藏下来备用，谢谢楼主

kszcs · 发表于 2016-10-7 17:34

收藏，留下记号

qzmqq · 发表于 2016-10-19 09:43

不错，收藏学习了

狮子头9 · 发表于 2016-12-25 18:54

好用，但复制代码到别的地方就不能用，有点遗憾！

云開月明 · 发表于 2016-12-26 10:43

楼主的叙述，符合我苦苦的需求，下载试试

牛啃土 · 发表于 2016-12-27 21:24

运行时报错：类型不匹配，运行时错误“13”。

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

[分享] 根据关键字拆分工作表为多个工作簿