如何提取excel表中的几列数据并生成新的exel文件

lyonly

求助大神，如图，希望提取一个excel文件中的d，e，f，g，h列的全部数据，按新的表头顺序排列，生成一个新的excel文件
并在新的excel文件c列后面插入一列单位，由于有很多个表格，所以希望借助vb程序来实现批量操作。不知道如何实现？
原始的excel：
生成新的excel：
20160603134743.rar (9.56 KB, 下载次数: 133)

2016-6-3 15:02 上传

点击文件名下载附件

学生甲1

请点击试试。

Chip_Kenny

Try this:

1. Sub zz()
   
2. Dim ar, a(), b(), br()
   
3. ar = [a1].CurrentRegion
   
4. a = Array(6, 4, 5, 8, 7)
   
5. b = Array(1, 2, 3, 5, 6)
   
6. ReDim br(1 To UBound(ar), 1 To 6)
   
7. For i = 1 To UBound(ar)
   
8.     For j = 0 To UBound(a)
   
9.         br(i, b(j)) = ar(i, a(j))
   
10.     Next
    
11. Next
    
12. br(1, 4) = "Unit"
    
13. Workbooks.Add
    
14. [a1].Resize(UBound(br), UBound(br, 2)) = br
    
15. End Sub

复制代码

lyonly

学生甲1 发表于 2016-6-3 15:41
请点击试试。

感谢您的回复，试了一下好像有点问题，是excel版本的问题吗？
原始文件是没有单位这一列，就是想在新文件中能不能自动插入这一列？如果不能实现的话，能提取几列重新按表头排列也是很不错的，谢谢

lyonly

Chip_Kenny 发表于 2016-6-3 15:49
Try this:

thank you very much Chip_Kenny，well done

lyonly

Chip_Kenny 发表于 2016-6-3 15:49
Try this:

按照您的方法可以生成筛选之后的表格，能否再帮我修改一下代码，想根据原始表格第二列的订单号分开生成新的excel，如下：
2016041902331622023.xls 2016051316551424430Y.xls
....一次类推。再次感谢

Chip_Kenny

lyonly 发表于 2016-6-3 16:46
按照您的方法可以生成筛选之后的表格，能否再帮我修改一下代码，想根据原始表格第二列的订单号分开生成新 ...

你兩個圖基本標題相同,不明你的要求,請模擬效果檔來說明一下。

lyonly

Chip_Kenny 发表于 2016-6-3 20:37
你兩個圖基本標題相同,不明你的要求,請模擬效果檔來說明一下。

感谢您的回复，可能我没说明白。之前的代码实现了提取列，并排序，但是所有数据都是在一个表里的，现在是想能不能根据原始数据表中的B列里面的订单号来分组提取生成不同的表格，也就是说同一个订单号的生成一个表。效果如下图：

Chip_Kenny

lyonly 发表于 2016-6-3 21:15
感谢您的回复，可能我没说明白。之前的代码实现了提取列，并排序，但是所有数据都是在一个表里的，现在是 ...

仍未能看到你要的效果。

banolee

你估计是2013以上版本
Conn.Open "provider=microsoft.ace.oledb.12.0; extended properties='excel 12.0;hdr=yes;imex=2';data source=" & ThisWorkbook.FullName