一種利用vba實現(xiàn)多個excel數(shù)據(jù)表合并數(shù)據(jù)的方法
【專利摘要】本發(fā)明公開一種利用VBA實現(xiàn)多個EXCEL數(shù)據(jù)表合并數(shù)據(jù)的方法，屬于數(shù)據(jù)表應(yīng)用領(lǐng)域，在安裝MicrosoftExcel前提下，具體步驟為：①將需要合并的所有電子表格放置在同一文件夾下；②啟動EXCEL；③在文件夾下新建一個EXCEL文件；④打開新建的EXCEL文件，按快捷鍵alt+F11，點擊“視圖”-“代碼窗口”，設(shè)定VBA程序拷貝到“代碼窗口”下；⑤點擊“運行”-“運行子過程/用戶窗體”,自動合并文件夾下的數(shù)據(jù)表到新建的EXCEL文件下，合并完畢顯示合并的工作表數(shù)量和文件名列表；本發(fā)明通過VBA實現(xiàn)將多個電子數(shù)據(jù)表格的自動化匯總，簡化了多個數(shù)據(jù)表的合并，提高了工作效率。
【專利說明】—種利用VBA實現(xiàn)多個EXCEL數(shù)據(jù)表合并數(shù)據(jù)的方法

【技術(shù)領(lǐng)域】
[0001]本發(fā)明公開一種多個數(shù)據(jù)表合并數(shù)據(jù)的方法，屬于數(shù)據(jù)表應(yīng)用領(lǐng)域，具體地說是一種利用VBA實現(xiàn)多個數(shù)據(jù)表合并數(shù)據(jù)的方法。

【背景技術(shù)】
[0002]Microsoft Excel 由 Microsoft 為使用 Windows 和 Apple Macintosh 操作系統(tǒng)的電腦而編寫和運行的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的微機數(shù)據(jù)處理軟件。Excel是Microsoft Officesystem的電子表格程序。您可以使用Excel創(chuàng)建工作簿并設(shè)置工作簿格式，以便分析數(shù)據(jù)和做出更明智的業(yè)務(wù)決策。特別是，您可以使用Excel跟蹤數(shù)據(jù)，生成數(shù)據(jù)分析模型，編寫公式以對數(shù)據(jù)進行計算，以多種方式透視數(shù)據(jù)，并以各種具有專業(yè)外觀的圖表來顯示數(shù)據(jù)。簡而言之:Excel是用來更方便處理數(shù)據(jù)的辦公軟件，Excel的用途還包括:會計專用、預(yù)算、帳單和銷售、報表、計劃跟蹤、使用日歷等?，F(xiàn)實生活中經(jīng)常會有需要將各個分散的EXCEL電子數(shù)據(jù)表匯總到一起的情況，而逐一拷貝匯總費時又費力，為更好解決這一問題，本發(fā)明提供一種利用VBA實現(xiàn)多個EXCEL數(shù)據(jù)表合并數(shù)據(jù)的方法，簡單易操作，將多個EXCEL數(shù)據(jù)表的數(shù)據(jù)快速合并到一個EXCEL數(shù)據(jù)表中，保證數(shù)據(jù)的整合的準確率，確保數(shù)據(jù)不缺失。


【發(fā)明內(nèi)容】

[0003]本發(fā)明針對現(xiàn)有技術(shù)存在的不足和問題，提供一種利用VBA實現(xiàn)多個數(shù)據(jù)表合并數(shù)據(jù)的方法，，提出的具體方案是:
一種利用VBA實現(xiàn)多個數(shù)據(jù)表合并數(shù)據(jù)的方法,在安裝Microsoft Excel前提下,具體步驟為:
①將需要合并的所有電子表格放置在同一文件夾下；
②啟動EXCEL;
③在需要合并的電子表格所在的文件夾下新建一個EXCEL文件；
④打開新建的EXCEL文件，按快捷鍵alt+Fll，進入EXCEL的VBA編輯狀態(tài)，點擊“視圖“代碼窗口”，設(shè)定VBA程序拷貝到“代碼窗口”下；VBA程序如下:
Sub合并當前目錄下所有工作簿的全部工作表O
Dim MyPathj MyNamej AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Applicat1n.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName O ""
If MyName O AWbName Then
Set Wb = Workbooks.0pen(MyPath & 〃\" & MyName)
Num = Num + I
With Workbooks(I).ActiveSheet
?Cells (.Range ("A65536").End (xlUp).Row + 2，I) = Left (MyNamej Len (MyName)-
4)
For G = I To Sheets.Count
Wb.Sheets (G).UsedRange.Copy.Cells (.Range ("A65536").End (xlUp).Row + 1，I)
Next
WbN = WbN & Chr (13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("Al").Select
Applicat1n.ScreenUpdating = True
MsgBox 〃共合并了〃 & Num & 〃個工作薄下的全部工作表。如下:〃 & Chr(13) & WbNjvblnformat1n, 〃 提不〃
End Sub
⑤點擊“運行“運行子過程/用戶窗體”，VBA程序開始自動合并文件夾下的數(shù)據(jù)表到新建的EXCEL文件下，合并完畢，顯示總共合并了幾個EXCEL工作薄下的工作表，并顯示合并的數(shù)據(jù)文件的文件名列表。
[0004]本發(fā)明的有益之處是:本發(fā)明通過EXCEL下的VBA編程，實現(xiàn)將多個電子數(shù)據(jù)表格的自動化匯總，簡化了多個數(shù)據(jù)表的合并，提高了工作效率。

【具體實施方式】
[0005]對本發(fā)明以具體實例進行說明:
一種利用VBA實現(xiàn)多個數(shù)據(jù)表合并數(shù)據(jù)的方法,在安裝Microsoft Excel前提下,具體步驟為:
將8個工資報表的電子表格放置在同一文件夾下；例如文件夾名為工資報表；
②啟動EXCEL;
③在工資報表這個文件夾下新建一個EXCEL文件；命名為匯總工資表；
④打開匯總工資表，按快捷鍵alt+Fll，進入EXCEL的VBA編輯狀態(tài)，點擊“視圖“代碼窗口 ”，設(shè)定VBA程序拷貝到“代碼窗口 ”下；VBA程序如下: Sub合并當前目錄下所有工作簿的全部工作表O
Dim MyPathj MyNamej AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Applicat1n.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName O ""
If MyName O AWbName Then
Set Wb = Workbooks.0pen(MyPath & 〃\" & MyName)
Num = Num + I
With Workbooks(I).ActiveSheet
?Cells (.Range ("A65536").End (xlUp).Row + 2，I) = Left (MyNamej Len (MyName)-
4)
For G = I To Sheets.Count
Wb.Sheets (G).UsedRange.Copy.Cells (.Range ("A65536").End (xlUp).Row + 1，I)
Next
WbN = WbN & Chr (13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("Al").Select
Applicat1n.ScreenUpdating = True
MsgBox 〃共合并了〃 & Num & 〃個工作薄下的全部工作表。如下:〃 & Chr(13) & WbNjvblnformat1n, 〃 提不〃
End Sub
⑤點擊“運行”-“運行子過程/用戶窗體”，VBA程序開始自動合并工資報表這個文件夾下的數(shù)據(jù)表到匯總工資表下，合并完畢，顯示總共合并了 8個EXCEL工作薄下的工作表，并顯示合并的數(shù)據(jù)文件的文件名列表為I月工資表，2月工資表，3月工資表，4月工資表，5月工資表，6月工資表，7月工資表，8月工資表。
【權(quán)利要求】
1.一種利用VBA實現(xiàn)多個數(shù)據(jù)表合并數(shù)據(jù)的方法,在安裝Microsoft Excel前提下,具體步驟為: ①將需要合并的所有電子表格放置在同一文件夾下； ②啟動EXCEL; ③在需要合并的電子表格所在的文件夾下新建一個EXCEL文件； ④打開新建的EXCEL文件，按快捷鍵alt+Fll，進入EXCEL的VBA編輯狀態(tài)，點擊“視圖“代碼窗口”，設(shè)定VBA程序拷貝到“代碼窗口”下；VBA程序如下: Sub合并當前目錄下所有工作簿的全部工作表O
Dim MyPathj MyNamej AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Applicat1n.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0 Do While MyName O "" If MyName O AWbName Then
Set Wb = Workbooks.0pen(MyPath & 〃\" & MyName)
Num = Num + I
With Workbooks(I).ActiveSheet
? Cells (.Range ("A65536").End (xlUp).Row + 2，I) = Left (MyNamej Len (MyName)-4)
For G = I To Sheets.Count
Wb.Sheets (G).UsedRange.Copy.Cells (.Range ("A65536").End (xlUp).Row + 1，I)
Next
WbN = WbN & Chr (13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("Al").Select
Applicat1n.ScreenUpdating = True MsgBox 〃共合并了 〃 & Num & 〃個工作薄下的全部工作表 如下:"& Chr (13) & WbNj vblnformat1n, 〃提不"
End Sub ⑤點擊“運行”-“運行子過程/用戶窗體”，VBA程序開始自動合并文件夾下的數(shù)據(jù)表到新建的EXCEL文件下，合并完畢，顯示總共合并了幾個EXCEL工作薄下的工作表，并顯示合并的數(shù)據(jù)文件的文件名列表。
【文檔編號】G06F17/24GK104391832SQ201410656067
【公開日】2015年3月4日 申請日期:2014年11月18日 優(yōu)先權(quán)日:2014年11月18日
【發(fā)明者】孟繁蕓 申請人:浪潮電子信息產(chǎn)業(yè)股份有限公司