指定文件夹合并多个工作薄到同一个工作表

240180944

求助问题：有多个表格格式相同的工作薄，每个工作薄中只有一个工作表是有数据的。现在需要把写一个VBA把数据合并成一个工作表：
1、可以提示选择需要合并哪些文件；
2、只复制一次表头。
注意：
1、合并后的数据需在新建的工作薄中；
2、合并后的数据格式需与原数据格式一样；
3、合并的数据区域是工作表中的有效区域。（因为有时工作系统会更新，提取出来的数据会增加列）

在求助之前已经在论坛上搜索了一个小时的相关问题，但都只能实现部分要求，因为实在看不懂代码，所以只好自己发帖求助。
先感谢各位的帮助。

SycoVictor

1. Sub test()
   
2.     Dim MyPath$, MyName$
   
3.     MyPath = ThisWorkbook.Path & ""
   
4.     MyName = Dir(MyPath & "*.xls")
   
5.     Application.ScreenUpdating = False
   
6.     Range(Cells(2, 1), Cells(65536, 14)).Delete
   
7.     Do While MyName <> ""
   
8.         If MyName <> ThisWorkbook.Name Then
   
9.             With GetObject(MyPath & MyName)
   
10.                 If .Sheets(1).Cells(2, 1) <> "" Then
    
11.                     .Sheets(1).Range(.Sheets(1).Cells(2, 1), .Sheets(1).Cells(65536, 14).End(3)).Copy Cells(65536, 1).End(3).Offset(1, 0)
    
12.                 End If
    
13.                 .IsAddin = True
    
14.                 .IsAddin = False
    
15.                 .Close True
    
16.             End With
    
17.         End If
    
18.         MyName = Dir
    
19.     Loop
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

试试这样行不行。

SycoVictor

将需要合并的文件和“合并结果”放到同一目录下

240180944

SycoVictor 发表于 2015-5-6 23:38
将需要合并的文件和“合并结果”放到同一目录下

感谢你的帮助。不过没有实现：可以提示选择需要合并哪些文件；以及自动只复制一次表头的功能...

LMY123

多薄单表合并成一薄一表

源远鸢

多薄单表合并成一薄一表，学习