如何合并excel文件的教程-英雄云拓展知识分享

　　在Excel中录入好数据以后常常需要用到合并文件的功能，如果还不懂如何合并文件功能的朋友，无妨学习一下将来必有用途。下面是由小编分享的如何合并excel文件的教程，供大家浏览、学习。

　　如何合并excel文件的教程：

　　合并文件步骤1：在电脑的H盘(其它盘也行)建立“库存数据”(文件夹名称随便),文件夹的路径为:“H:库存数据”

　　合并文件步骤2：将大量需要整合的excel文件放于“H:库存数据”,所有文件的结构必须完全一致。

　　合并文件步骤3：在H盘根目录下建立".xlsm"类型的Excel文件,这里命名为“库存整合3”，打开文件，将第2步中的文件字段名结构复制到"sheet1"工作簿中。

　　合并文件步骤4：在“sheet2”添加activeX控件-命令按钮，以下图，选中命令按钮后，在工作表中左击并拖动鼠标，把命令按钮添加到"sheet1"区域中。

　　合并文件步骤5：鼠标放在“CommandButton1”右击，点击“属性”选项，并设置其属性，以下两图：

　　合并文件步骤6：双击“整合数据“按钮，打开“Microsoft Visual Basic”编辑器，注意：我这里是用一个已做好的案例示范，下图中第2个红框的对象是“commandButton2”,各位的应当是“commandButton1”!然后在第4个红框和“End Sub”之间插入以下代码：

　　Application.ScreenUpdating = False

　　Application.DisplayAlerts = False

　　Dim s, lj As String

　　Dim fso, fldPath, fld

　　Dim wjs, i, j, k, l, y, t, r, e, w, b, n, m As Integer

　　m = 2

　　For j = 2 To 300000 '导入数据前测试原有数据非空单元格

　　If ThisWorkbook.Worksheets("sheet1").Cells(j, 1) = "" Then

　　GoTo u

　　End If

　　Next

　　u:

　　If j = 2 Then

　　GoTo yy

　　End If

　　UserForm1.Show 0

　　For k = 2 To j '清除旧数据

　　DoEvents

　　UserForm1.Label4.Caption = "清除旧数据 :"

　　UserForm1.Label3.Width = (k / (j – 2)) * 400

　　If ThisWorkbook.Worksheets("sheet1").Cells(k, 1) = "" Then

　　GoTo y

　　End If

　　ThisWorkbook.Worksheets("sheet1").Rows(k).Delete

　　Next

　　y:

　　yy:

　　On Error Resume Next

　　fldPath = "H:库存数据"

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set fld = fso.GetFolder(fldPath)

　　wjs = fld.Files.Count

　　lj = "H:库存数据"

　　s = Dir("H:库存数据*.xls")

　　Workbooks.Open Filename:=lj & s

　　For i = 1 To 30000 '测试第一个导入数据的非空单元格

　　If ActiveWorkbook.Worksheets(1).Cells(i, 1) = "" Then

　　GoTo x

　　End If

　　Next

　　x:

　　For l = 2 To i '开始导入第一个数据

　　For y = 1 To 11

　　ThisWorkbook.Worksheets("sheet1").Cells(l, y) = ActiveWorkbook.Worksheets(1).Cells(l, y)

　　Next

　　Next

　　ActiveWorkbook.Close

　　UserForm1.Show 0

　　For t = 1 To wjs – 1

　　s = Dir

　　DoEvents

　　UserForm1.Label4.Caption = s

　　UserForm1.Label1.Width = (t / (wjs – 1)) * 200

　　For r = 2 To 300000 '测试导入位置的非空单元格

　　If ThisWorkbook.Worksheets("sheet1").Cells(r, 1) = "" Then

　　GoTo w

　　End If

　　Next

　　w:

　　m = r

　　Workbooks.Open Filename:=lj & s

　　For e = 1 To 30000 '测试每个导入数据的非空单元格

　　If ActiveWorkbook.Worksheets(1).Cells(e, 1) = "" Then

　　GoTo e

　　End If

　　Next

　　e:

　　For b = r To r + e – 3 '正式导入数据

　　DoEvents

　　UserForm1.Label3.Width = ((b – r) / e) * 200

　　For n = 1 To 11

　　ThisWorkbook.Worksheets("sheet1").Cells(b, n) = ActiveWorkbook.Worksheets(1).Cells(b – m + 2, n)

　　Next

　　Next

　　ActiveWorkbook.Close

　　Next

　　UserForm1.Label4.Caption = "成功了!"

　　Application.OnTime Now() + TimeValue("00:00:02"), "CL"

　　合并文件步骤7：程序还设计到显示工作进度的窗体-进度窗体，以下图：

　　合并文件步骤8：进度窗体的添加方法以下，请各位务必看清每个细节，否则程序运行出错!

　　合并文件步骤9：上图中的“进度窗体”为已设计好的，以下教大家如何制作上图的青色和紫色的窗体，以下图，在窗体中添加4个“Label”空间，并按顺序排序。

　　合并文件步骤10：“Label2”属性设置：

　　合并文件步骤11：“Label4”属性设置将“Caption”属性设为“ ”，其它属性和“Label4”同。

　　合并文件步骤12：“Label4”属性设置以下图：

　　合并文件步骤13：“Label3”属性设置以下图：

　　合并文件步骤14：至此显示窗体效果以下图：

　　合并文件步骤15：添加"Textbok1",并按下图设置属性

　　合并文件步骤16：并将"Textbox1”移动到绿色条的位置，完全重合，效果以下：

　　合并文件步骤17：然后添加"Textbox2"，其属性设置和“Textbox1”完全一样，并移动至“Label3”下面，完全重合。

　　合并文件步骤18：至此进度条效果以下：

　　合并文件步骤19：插入模块，以下图：

　　合并文件步骤20：将程序模块命名为“CL”,代码入校以下：

　　Sub CL()

　　Unload UserForm2

　　End Sub

　　合并文件步骤21：大功告成!点击保存按钮!

　　合并文件步骤22：返回"sheet1"工作区，以下图：

　　合并文件步骤23：点击“整合数据”按钮，运行数据整合程序：程序首先检查是不是存在旧数据，如果存在旧数据则清除完旧数据后启动数据导入功能，以下图：

　　合并文件步骤24：完满成功!