使用VBA合并多个Excel文件

今天一同学突然在Q上问起我如何将多个Excel文件合并到一个Sheet文件中，起初我是想通过编程来实现的，因为之前我用C++实现过一个Excel操作类的封装，也用该类实现过一些自动化工具。但考虑到这本来是个很简单的任务，相信Excel本身应该可以实现，于是度娘了下，找到了可以使用VBA来解决，但网上的代码要不有问题，要不操作不明白，经过摸索，决定写篇文章，让像我一样的小白用户从零来完成任务。

【过程】

         一、创建E:\test_excel目录，下面放上几个要合并的Excel文件。

      

         二、新打开一个Excel文件，先“开启开发工具”，如下图点击1，选择“Excel选项”，然后在“常用”选项卡中勾选“在功能区显示‘开发工具’选项卡”，保存后，就能看到了。

        三、开启宏，如上图所示，开发工具—宏安全性—宏设置里面。

        四、在Visual Basic里面选择"Sheet1",并编写相应的宏

  

相关代码：

'VBA for merge excel files,.just support for Excel 2007
'Excel 2003 need change the codes
'Author:naiveloafer
'Date:2012-04-29
Sub naiveloafer()
Dim fs, f, f1, fc, s, x, rowss, columnss
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("E:\test_excel\") 'Directory of excel files will be merge
Set fc = f.Files
x = 1

For Each f1 In fc

If Right(f1.Name, 4) = "xlsx" Then
Workbooks.Open (f1.Path)
rowss = Workbooks(f1.Name).Sheets(1).Range("A65536").End(xlUp).Row
columnss = Workbooks(f1.Name).Sheets(1).Columns.Count

Workbooks(f1.Name).Sheets(1).Range("A1:z" & CStr(rowss)).Copy
Workbooks(1).Activate
Workbooks(1).Sheets(1).Range("A" & CStr(x) & ":z" & CStr(x + rowss)).Select
Workbooks(1).Sheets(1).Paste
Application.CutCopyMode = False

x = x + rowss
Workbooks(f1.Name).Close savechanges:=False
End If

Next

End Sub

       五、回到刚才的Excel中，点击宏，选择刚才的宏，运行即可，如果代码没问题，那就能在当前Sheet中显示合并的结果，当然如果你有编程经验可以选择调试才定位问题，修改等。