excel多个文件合并的宏程序

用东华DH 3815N进行数据测试的时候，会导出许多的excel文件来，下面是一个将所有文件合并在一起的简单宏程序， 注意，限制条件：1）文件名依次按照1～114命名；2）合并的时候只选择了所有文件的第二行进行合并，如不同于这个限制条件，请自己修改。

Sub 宏1()
'
' 宏1 宏表
' Fantasy记录的宏2006-6-12
'
'ChDir "E:\1"
'Workbooks.Open FileName:="E:\1\1.xls"

For i = 2 To 114
abc = "e:\1\"
def = ".xls"
file1 = Format(i)
FileName = abc + file1 + def

Workbooks.Open FileName:=FileName
Rows("2:2").Select
Selection.Copy
Windows("1.xls").Activate

row1 = Format(i +1)
rowname = row1 + ":" + row1

Rows(rowname).Select
ActiveSheet.Paste
Next i