如何合并excel文件的教程
如何合并excel文件的教程
在Excel中錄入好數(shù)據(jù)以后經(jīng)常需要用到合并文件的功能，如果還不懂如何合并文件功能的朋友，不妨學(xué)習(xí)一下將來必有用處。下面是由學(xué)習(xí)啦小編分享的如何合并excel文件的教程，供大家閱讀、學(xué)習(xí)。
如何合并excel文件的教程：
合并文件步驟1：在電腦的H盤(其它盤也行)建立“庫存數(shù)據(jù)”(文件夾名稱隨意),文件夾的路徑為:“H:庫存數(shù)據(jù)”
合并文件步驟2：將大量需要整合的excel文件放于“H:庫存數(shù)據(jù)”,所有文件的結(jié)構(gòu)必須完全一致。
合并文件步驟3：在H盤根目錄下建立".xlsm"類型的Excel文件,這里命名為“庫存整合3”，打開文件，將第二步中的文件字段名結(jié)構(gòu)復(fù)制到"sheet1"工作簿中。
合并文件步驟4：在“sheet2”添加activeX控件-命令按鈕，如下圖，選中命令按鈕后，在工作表中左擊并拖動鼠標(biāo)，把命令按鈕添加到"sheet1"區(qū)域中。
合并文件步驟5：鼠標(biāo)放在“CommandButton1”右擊，點擊“屬性”選項，并設(shè)置其屬性，如下兩圖：
合并文件步驟6：雙擊“整合數(shù)據(jù)“按鈕，打開“Microsoft Visual Basic”編輯器，注意：我這里是用一個已經(jīng)做好的案例示范，下圖中第二個紅框的對象是“commandButton2”,各位的應(yīng)該是“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 '導(dǎo)入數(shù)據(jù)前測試原有數(shù)據(jù)非空單元格
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 '清除舊數(shù)據(jù)
DoEvents
UserForm1.Label4.Caption = "清除舊數(shù)據(jù) :"
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:庫存數(shù)據(jù)"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldPath)
wjs = fld.Files.Count
lj = "H:庫存數(shù)據(jù)"
s = Dir("H:庫存數(shù)據(jù)*.xls")
Workbooks.Open Filename:=lj & s
For i = 1 To 30000 '測試第一個導(dǎo)入數(shù)據(jù)的非空單元格
If ActiveWorkbook.Worksheets(1).Cells(i, 1) = "" Then
GoTo x
End If
Next
x:
For l = 2 To i '開始導(dǎo)入第一個數(shù)據(jù)
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 '測試導(dǎo)入位置的非空單元格
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 '測試每一個導(dǎo)入數(shù)據(jù)的非空單元格
If ActiveWorkbook.Worksheets(1).Cells(e, 1) = "" Then
GoTo e
End If
Next
e:
For b = r To r + e - 3 '正式導(dǎo)入數(shù)據(jù)
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：程序還設(shè)計到顯示工作進度的窗體-進度窗體，如下圖：
合并文件步驟8：進度窗體的添加方法如下，請各位務(wù)必看清每一個細節(jié)，否則程序運行出錯!
合并文件步驟9：上圖中的“進度窗體”為已經(jīng)設(shè)計好的，以下教大家如何制作上圖的青色和紫色的窗體，如下圖，在窗體中添加4個“Label”空間，并按順序排序。
合并文件步驟10：“Label2”屬性設(shè)置：
合并文件步驟11：“Label4”屬性設(shè)置將“Caption”屬性設(shè)為“ ”，其它屬性和“Label4”同。
合并文件步驟12：“Label4”屬性設(shè)置如下圖：
合并文件步驟13：“Label3”屬性設(shè)置如下圖：
合并文件步驟14：至此顯示窗體效果如下圖：
合并文件步驟15：添加"Textbok1",并按下圖設(shè)置屬性
合并文件步驟16：并將"Textbox1”移動到綠色條的位置，完全重合，效果如下：
合并文件步驟17：然后添加"Textbox2"，其屬性設(shè)置和“Textbox1”完全一樣，并移動至“Label3”下面，完全重合。
合并文件步驟18：至此進度條效果如下：
合并文件步驟19：插入模塊，如下圖：
合并文件步驟20：將程序模塊命名為“CL”,代碼入校如下：
Sub CL()
Unload UserForm2
End Sub
合并文件步驟21：大功告成!點擊保存按鈕!
合并文件步驟22：返回"sheet1"工作區(qū)，如下圖：
合并文件步驟23：點擊“整合數(shù)據(jù)”按鈕，運行數(shù)據(jù)整合程序：程序首先檢查是否存在舊數(shù)據(jù)，如果存在舊數(shù)據(jù)則清除完舊數(shù)據(jù)后啟動數(shù)據(jù)導(dǎo)入功能，如下圖：
合并文件步驟24：完滿成功!
看了如何合并excel文件的教程還看了：