奇怪抄ykcbf1100老师代码拆分到工作簿打开提示错误

ykcbf1100

我试了下，代码本身没有错，可以运行并得到正确结果。
文件另存的标准写法是：
wb.SaveAs Filename:=p & k & ".xls", FileFormat:=56  '//（xls格式保存）
wb.SaveAs Filename:=p & k & ".xlsx", FileFormat:=51 '//（xlsx格式保存）
简写就是：
wb.SaveAs p & k & ".xls"       '//（xls格式保存）
wb.SaveAs p & k                  '//（xlsx格式保存）

lizhipei78

ykcbf1100 发表于 2023-12-28 18:50
你代码应该没有抄错吧，主要是适用场合不同造成的。
要不，我等下看看。

保留原格式拆分工作表，原来我也是用你这种方式，效率真的很低下。
后来我用筛选模式删除不等于k的项，效率能提升100倍。

ykcbf1100

lizhipei78 发表于 2023-12-28 23:53
保留原格式拆分工作表，原来我也是用你这种方式，效率真的很低下。
后来我用筛选模式删除不等于k的项， ...

这么牛吗？向你学习。

lizhipei78

ykcbf1100 发表于 2023-12-29 06:59
这么牛吗？向你学习。

我向你学习还差不多

你试试这样子写，是不是效率会高很多

ykcbf1100

lizhipei78 发表于 2023-12-29 08:18
我向你学习还差不多

你试试这样子写，是不是效率会高很多

思路不错。
不过，你这个是拆分成多表，不是拆分成多工作簿。

ykcbf1100

lizhipei78 发表于 2023-12-29 08:18
我向你学习还差不多

你试试这样子写，是不是效率会高很多

你的代码拆分不成功，你上个实例？

lizhipei78

ykcbf1100 发表于 2023-12-29 09:02
你的代码拆分不成功，你上个实例？

保留原格式拆分成工作表工作簿1.rar (49.24 KB, 下载次数: 10)

2023-12-29 10:20 上传

点击文件名下载附件

请多指教

ykcbf1100

lizhipei78 发表于 2023-12-29 10:20
请多指教

我试了一下你的代码，感觉筛选法拆分和字典嵌套拆分，速度上基本一致，差别不大，不过，比我原代码速度应该快一些。

上传二段代码，你可以测试一下。

lizhipei78

ykcbf1100 发表于 2023-12-29 10:44
我试了一下你的代码，感觉筛选法拆分和字典嵌套拆分，速度上基本一致，差别不大，不过，比我原代码速度应 ...

感谢指导
其实你这个不是原格式拆分工作表，如果原表格中有公式或者批注，你这个就是无效的了
如果是单纯的数据，在大数据的情况下，建议先复制总表，清除内容后再进行填写内容，这样子效率会更高。

ykcbf1100

lizhipei78 发表于 2023-12-29 11:29
感谢指导
其实你这个不是原格式拆分工作表，如果原表格中有公式或者批注，你这个就是无效的了
如果是单 ...

你说的有一定道理啊，我再试一下。
谢谢。