excel2007宏

实例：通过宏来实现选取多张Excel文件中的固定列的字段合成到一个新的Excel文件中。
比如现在又excel1到excel5，5个文件，我需要分别提取这5个文件中的产品型号以及零售价格还有采购人员姓名等数据(假设这些数据都分别存放在A到C列中，而且5个文件的字段的排列顺序相同)，我需要新建一个excel6文件，将excel1到excel5中所有需要的数据整合到excel6文件文件中。 假如excel1-excel6的文件存在D盘根目录下。

一、可以的，很简单。
1，在EXCEL6中，A,B,C三列做好列头，注明型号，售价，姓名。
2，在EXCEL6中的A列第一行，输入等号，
然后用鼠标点你的EXCEL1，当前显示即为EXCEL，然后鼠标点击你要提取的数据所在单元格，然后按回车就可以啦！
这里你的EXCEL6中的A2单元格的公式为=EXCEL1!A2
也就是把表6中的A2单元与表1中的A2单元格内容对等起来！
3，B/C列的操作方法相同，然后选好A1~C1，公式直接拖下来就可以了！

二、如果要用宏来解决的话，编制如下的代码：
Sub Main()
Dim L(5)
K = Workbooks("excel6.xls").Sheets(1).UsedRange.Rows.Count
For i = 1 To 5
    L(i) = Workbooks("excel" & i & ".xls").Sheets(1).UsedRange.Rows.Count - 1
   For m = 1 To L(i)
       For j = 1 To 3
           Workbooks("excel6.xls").Sheets(1).Cells(m + K, j).Value = Workbooks("excel" & i & ".xls").Sheets(1).Cells(m + 1, j).Value
       Next j
   Next m
   K = K + m - 1
Next i
End Sub