小弟求救了！如何将多个文件合并成一个？？

菊花牌

由于有很多个ＥＸＣＬＥ文件，格式也是相同的，但要将多个ＥＸＣＬＥ文件一次性合并成一个ＥＸＣＬＥ，高手们帮手解答，，偶也知道复制。。但真的太多了。。。。眼和头都很晕啊。。。。。。

菊花牌

试过录制宏，，不行啊。。。。。。。

qq89486841

是将所有的表放到一张表还是放到一个book里头阿

LangQueS

请参考下帖11楼eq800的代码：

http://club.excelhome.net/dispbbs.asp?boardid=1&replyid=900613&id=249319&page=1&skin=0&Star=2

菊花牌

是将所有数据复制到一个sheet里啊。。。

菊花牌

不用代码。。。行不行啊。。。。5555偶不懂代码。。。

LangQueS

建议楼主给下帖11楼的eq800先生发个论坛短信，再将你的文件“样品”上传到本帖，供eq800先生参考。

http://club.excelhome.net/dispbbs.asp?boardid=1&replyid=900613&id=249319&page=1&skin=0&Star=2

他在该帖的代码是：

Sub 合并数据()
   '合并指定目录中所有文件中相同格式工作表的数据
   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   myPath = ThisWorkbook.Path & "\分表\"          '把文件路径定义给变量
  
   myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
          For i = 1 To AK.Sheets.Count
         aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
         tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1

            'AK.Sheets(i).Select
         AK.Sheets(i).Range("a3:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)  '取得第3行以后的数据
         Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
     
   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成，请查看！", 64, "提示"

End Sub

菊花牌

版主，我上传一个例子的附件，麻烦帮我看一看。。。 C8r4v2OD.rar (4.48 KB, 下载次数: 13)

2007-7-15 15:05 上传

点击文件名下载附件
小弟求救了！如何将多个文件合并成一个？？

LangQueS

建议楼主将实际应用的文件上传部分数据，请eq800或其他朋友帮助一下。

各表的数据区一定要有相同的标题行。

LangQueS

“样品”：

9K8gw8OM.zip (13.65 KB, 下载次数: 76)

2007-7-15 15:23 上传

点击文件名下载附件
小弟求救了！如何将多个文件合并成一个？？