如何合并excel文件的教程
如何合并excel文件的教程
在Excel中录入好数据以后经常需要用到合并文件的功能，如果还不懂如何合并文件功能的朋友，不妨学习一下将来必有用处。下面是由学习啦小编分享的如何合并excel文件的教程，供大家阅读、学习。
如何合并excel文件的教程：
合并文件步骤1：在电脑的H盘(其它盘也行)建立“库存数据”(文件夹名称随意),文件夹的路径为:“H:库存数据”
合并文件步骤2：将大量需要整合的excel文件放于“H:库存数据”,所有文件的结构必须完全一致。
合并文件步骤3：在H盘根目录下建立".xlsm"类型的Excel文件,这里命名为“库存整合3”，打开文件，将第二步中的文件字段名结构复制到"sheet1"工作簿中。
合并文件步骤4：在“sheet2”添加activeX控件-命令按钮，如下图，选中命令按钮后，在工作表中左击并拖动鼠标，把命令按钮添加到"sheet1"区域中。
合并文件步骤5：鼠标放在“CommandButton1”右击，点击“属性”选项，并设置其属性，如下两图：
合并文件步骤6：双击“整合数据“按钮，打开“Microsoft Visual Basic”编辑器，注意：我这里是用一个已经做好的案例示范，下图中第二个红框的对象是“commandButton2”,各位的应该是“commandButton1”!然后在第四个红框和“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：完满成功!
看了如何合并excel文件的教程还看了：