excel多个文件读入SAS合并成一个文件问题(VBA解决了)-经管之家官网！

现在有4000+个excel文件，这些文件在一个文件夹中，命名没有规则，命名是中文长语句
excel文件内部是完全一样的，也就是表头一样，变量名称一样等，但是观测数不一样
现在需要从4000多个文件中将观测值合并为一个数据集。
现在我的办法是用pipe获得所有文件名后，用import读入，
但是这样子存在两个致命的问题：
1.太慢，要运行好几个小时
2.变量的长度读入的时候不能统一
求该问题好的解决方案！！！
该问题尝试用SAS解决，但是效果不好、
找到一段VBA程序，合并表格速度要快很多。共享一下
。
在工具-宏-宏中

1. Sub huizong()
   
2. mypath = ThisWorkbook.Path & "\"
   
3. myfile = Dir(mypath & "*.xls")
   
4. On Error Resume Next
   
5. Do While myfile <> ""
   
6. If myfile <> ThisWorkbook.Name Then
   
7. Workbooks.Open mypath & myfile
   
8. Workbooks(myfile).Sheets("第一部分").Activate
   
9. Range("B3:R7").Select
   
10. Selection.Copy
    
11. Workbooks(ThisWorkbook.Name).Sheets("sheet1").Activate
    
12. count2 = Range("A65536").End(xlUp).Row + 1
    
13. Cells(count2, 1).Select
    
14. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
15. :=False, Transpose:=False
    
16. Workbooks(myfile).Close True
    
17. End If
    
18. myfile = Dir
    
19. Loop
    
20. End Sub

复制代码
介绍几个主要的参数：
"第一部分" 是要合并的很多表格的sheet名字
("sheet1").是合并之后的sheet名字
("B3:R7是需要合并的格子 区间
("A65536"). 是从该格子向上判断，非空