VBA代码提取EXCEL指定列值另存为xlsx文件

[Piter_333]

如图，请大神帮忙如何将左图的订单中指定列值另存为xlsx文件。即A列，E列，D列（备注：每个订单的行数可能都有变化）

[舉杯邀明月]

主要流程：
1.　打开“原始数据”工作簿；
2.　新建一个工作簿；
3.　把“需要”的列从原始数据表中，依次复制到新工作簿的表（比如Sheet1）中；
4.　调用新工作簿的 .SaveAs接口函数，保存到“合理的位置”（路径、文件名）。

Office2007及更高版本的 Excel，在“另存为”时默认格式就是 .xlsx ；
　如果你要保存为.xls格式，才必须指定相应格式参数。

[Piter_333]

如果用宏按钮，如何实现呢？

[舉杯邀明月]

如何实现？
　不就是“按合理的处理流程，写VBA代码实现”吗！！！

[ZHRXJR]

    Sheet1.Columns("E:E").SpecialCells(2, 19).SpecialCells(12).Copy Sheet2.[B1]
      '将Sheet1的E列的2至19行拷贝到Sheet2的B列，注意是二个不同的表，不是二个不同的Excel

    Sheet1.Columns("D:D").SpecialCells(2, 19).SpecialCells(12).Copy Sheet2.[C1]
      '将Sheet1的D列的2至19行拷贝到Sheet2的C列，注意是二个不同的表，不是二个不同的Excel
     '这是将原来表中的数据拷贝到新表中，不是新的Excel

至于二个不同的Excel之间拷贝你可以依照此思路不难实现吧。