【求助】excel合并表格

vba搞起 。。。 【 在 leaf04101 (06，走好！！) 的大作中提到: 】 : 工作需要进行表格整理，有500多个格式完全相同的EXCEL表，现在的工作方式是依次打开表将其中内容复制粘贴到一总表中去，请高手传授我将表格内容批量合并的方法！ : 达人 给个详细的步骤！！

是要放到一个sheet还是多个sheet 多个sheet的话用下面这个就OK 一个sheet的话这个要改改 看我晚上有空改没 +++++++++++++++++++++ 我是传说中的分割线 ＊（＾＿＜）＊ ++++++++++++++++++++++ Sub Test() Dim n As Integer For n = 1 To 10 ChDir "C:\Documents and Settings\XiongQQ\桌面" Workbooks.Open Filename:="C:\Documents and Settings\XiongQQ\桌面\" & n & ".xlsx" Sheets("Sheet1").Copy After:=Workbooks("0.xlsm").Sheets(n) Sheets(n + 1).Name = "A" & n Windows(n & ".xlsx").Activate ActiveWindow.Close Next n Application.DisplayAlerts = False Sheets(1).Delete Application.DisplayAlerts = True End Sub 【 在 leaf04101 (06，走好！！) 的大作中提到: 】 : 工作需要进行表格整理，有500多个格式完全相同的EXCEL表，现在的工作方式是依次打开表将其中内容复制粘贴到一总表中去，请高手传授我将表格内容批量合并的方法！ : 达人 给个详细的步骤！！

【 在 xiongQQ 的大作中提到: 】 : 是要放到一个sheet还是多个sheet : 多个sheet的话用下面这个就OK : 一个sheet的话这个要改改 看我晚上有空改没 : ................... 恩 在一个表格里面分500个sheet 我试下呀

赞。。 【 在 xiongQQ (熊团掌门人|BYR首席苦力控|万熊的能能) 的大作中提到: 】 : 是要放到一个sheet还是多个sheet : 多个sheet的话用下面这个就OK : 一个sheet的话这个要改改 看我晚上有空改没 : ...................

Sub Test() Dim n As Integer Dim s As String Dim MyPath, MyName As String n = 1 '用于计数 MyPath = "C:\Documents and Settings\Administrator\桌面\" '要合并的文件的目录 MyName = Dir("C:\Documents and Settings\Administrator\桌面\*.xls") '获得该目录下后缀名为.xls的第一个文件 Do While MyName <> "" ' 开始循环。 If MyName <> "." And MyName <> ".." Then Workbooks.Open Filename:=MyPath + MyName '打开找到的xls文件 s = Left(MyName, Len(MyName) - 4) '获得该文件的文件名，不要后缀名 Sheets(1).Copy After:=Workbooks("Book1.xls").Sheets(n) '将其复制到总表的对应位置 Sheets(n + 1).Name = s '设置工作表的名字为原工作簿的文字 Windows(MyName).Activate ActiveWindow.Close '关闭该文件 n = n + 1 '计数器加一 End If MyName = Dir ' 查找下一个目录。 Loop '循环查找下一个文件 Application.DisplayAlerts = False Sheets(1).Delete '清除第一个工作表 Application.DisplayAlerts = True End Sub

咦？我不知道老大放在哪里了？我放的地方和老大放的不一样，同一个标题的想放在一起 【 在 xiongQQ (熊团掌门人|BYR首席苦力控|万熊的能能) 的大作中提到: 】 : Sub Test() : Dim n As Integer : Dim s As String : ...................

你放的地方没错 恩 【 在 mara (lpbuhuai) 的大作中提到: 】 : 咦？我不知道老大放在哪里了？我放的地方和老大放的不一样，同一个标题的想放在一起

哦，好的，呵呵 【 在 xiongQQ (熊团掌门人|BYR首席苦力控|万熊的能能) 的大作中提到: 】 : 你放的地方没错 : 恩

dir命令木用过. 受教了 【 在 xiongQQ (熊团掌门人|BYR首席苦力控|万熊的能能) 的大作中提到: 】 : Sub Test() : Dim n As Integer : Dim s As String : ...................