[发明专利]一种利用VBA实现多个EXCEL数据表合并数据的方法

摘要

本发明公开一种利用VBA实现多个EXCEL数据表合并数据的方法，属于数据表应用领域，在安装MicrosoftExcel前提下，具体步骤为：①将需要合并的所有电子表格放置在同一文件夹下；②启动EXCEL；③在文件夹下新建一个EXCEL文件；④打开新建的EXCEL文件，按快捷键alt+F11，点击“视图”-“代码窗口”，设定VBA程序拷贝到“代码窗口”下；⑤点击“运行”-“运行子过程/用户窗体”,自动合并文件夹下的数据表到新建的EXCEL文件下，合并完毕显示合并的工作表数量和文件名列表；本发明通过VBA实现将多个电子数据表格的自动化汇总，简化了多个数据表的合并，提高了工作效率。

主权项

一种利用VBA实现多个数据表合并数据的方法，在安装Microsoft Excel前提下，具体步骤为：①将需要合并的所有电子表格放置在同一文件夹下；②启动EXCEL；③在需要合并的电子表格所在的文件夹下新建一个EXCEL文件；④打开新建的EXCEL文件，按快捷键alt+F11，进入EXCEL的VBA编辑状态，点击“视图”‑“代码窗口”，设定VBA程序拷贝到“代码窗口”下；VBA程序如下：Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) ‑ 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub⑤点击“运行”‑“运行子过程/用户窗体”,VBA程序开始自动合并文件夹下的数据表到新建的EXCEL文件下，合并完毕，显示总共合并了几个EXCEL工作薄下的工作表，并显示合并的数据文件的文件名列表。