一个excel文件按要求分成excel文件

jamieelmo

lsc900707 发表于 2017-1-8 20:33
将这句： .SaveAs Filename:=ThisWorkbook.Path & "\" & k(i), FileFormat:=xlExcel12改成：
  .SaveAs Fi ...

还有一个稍微复杂一点的
附件“ALL Test”有两张sheetAPPO、TPO，能否根据APPO中的K列，TPO中的AO列为关键字，拆分多个Excel文件。
比如说，APPO中K列为INMAAOF的记录以及TPO中AO为INMAAOF的记录也分别存在APPO sheet与TPO sheet另存为一个名为INMAAOF的excel文件，格式与总文件“ALL Test”一样，如“INMAAOF”文件所示
其实做法与之差不多，只是现在多了TPO的sheet，拆分出来，而且单独的文件都有APPO与TPO的sheet

lsc900707

jamieelmo 发表于 2017-1-10 22:52
还有一个稍微复杂一点的
附件“ALL Test”有两张sheetAPPO、TPO，能否根据APPO中的K列，TPO中的AO列为关 ...

今天太晚了，明天再看看吧。不急吧。

jamieelmo

lsc900707 发表于 2017-1-10 23:09
今天太晚了，明天再看看吧。不急吧。

不急的，谢谢

lsc900707

jamieelmo 发表于 2017-1-10 23:17
不急的，谢谢

两个表的关键字不在同一列的拆分案例没碰到过耶。

jamieelmo

lsc900707 发表于 2017-1-11 20:18
两个表的关键字不在同一列的拆分案例没碰到过耶。

如果在同一列呢？TPO那张表的AO列移动到K列，这样两张表的关键字在同一列，但是两张表的列数不一样

leiyu2203353

lsc900707 发表于 2017-1-7 13:28
Sub 保留表头拆分数据为若干新工作簿()
     Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
   ...

Hi~以前没有看到，将Range对象存入字典的用法，根据个人的经验，数据量大字典的效率会变差，您有比较过吗？

leiyu2203353

jamieelmo 发表于 2017-1-7 15:15
好的，谢谢

Selection.PasteSpecial xlPasteAll
.Sheets(1).UsedRange.WrapText = False

将粘贴代码改为这样就可以保证行高和列宽一致了。

新工作博另存的时候，如果路径下已存在同名文件，则程序会中断，需要优化一下。

lsc900707

leiyu2203353 发表于 2017-1-23 22:09
Hi~以前没有看到，将Range对象存入字典的用法，根据个人的经验，数据量大字典的效率会变差，您有比较过吗 ...

没有注意比较，谢谢提醒。

jamieelmo

lsc900707 发表于 2017-1-7 13:28
Sub 保留表头拆分数据为若干新工作簿()
     Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
   ...

新建成的文件里面，存有记录的那张表的sheet名能否改成与原文件的sheet名一样
比如说，大文件的sheet名为APPO，则拆分出来的文件sheet名都是APPO

jamieelmo

lsc900707 发表于 2017-1-23 22:41
没有注意比较，谢谢提醒。

新建成的文件里面，存有记录的那张表的sheet名能否改成与原文件的sheet名一样
比如说，大文件的sheet名为APPO，则拆分出来的文件sheet名都是APPO