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

说明书

技术领域

本发明公开一种多个数据表合并数据的方法，属于数据表应用领域，具体地说是一种利用VBA实现多个数据表合并数据的方法。

背景技术

Microsoft Excel 由Microsoft为使用Windows和Apple Macintosh操作系统的电脑而编写和运行的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的微机数据处理软件。Excel 是 Microsoft Office system的电子表格程序。您可以使用 Excel 创建工作簿并设置工作簿格式，以便分析数据和做出更明智的业务决策。特别是，您可以使用 Excel 跟踪数据，生成数据分析模型，编写公式以对数据进行计算，以多种方式透视数据，并以各种具有专业外观的图表来显示数据。简而言之：Excel是用来更方便处理数据的办公软件，Excel 的用途还包括：会计专用、预算、帐单和销售、报表、计划跟踪 、使用日历等。现实生活中经常会有需要将各个分散的EXCEL电子数据表汇总到一起的情况，而逐一拷贝汇总费时又费力，为更好解决这一问题，本发明提供一种利用VBA实现多个EXCEL数据表合并数据的方法，简单易操作，将多个EXCEL数据表的数据快速合并到一个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