[發明專利]一種利用VBA實現多個EXCEL數據表合并數據的方法

在審

• 申請號: 201410656067.0
• 申請日: 2014-11-18
• 公開（公告）號: CN104391832A
• 公開（公告）日: 2015-03-04
• 發明（設計）人: 孟繁蕓
• 申請（專利權）人: 浪潮電子信息產業股份有限公司
• 主分類號: G06F17/24
• 分類號: G06F17/24
• 代理公司: 濟南信達專利事務所有限公司 37100
• 代理人: 姜明

技術領域

本發明公開一種多個數據表合并數據的方法，屬于數據表應用領域，具體地說是一種利用VBA實現多個數據表合并數據的方法。

背景技術

Microsoft?Excel?由Microsoft為使用Windows和Apple?Macintosh操作系統的電腦而編寫和運行的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的微機數據處理軟件。Excel?是?Microsoft?Office?system的電子表格程序。您可以使用?Excel?創建工作簿并設置工作簿格式，以便分析數據和做出更明智的業務決策。特別是，您可以使用?Excel?跟蹤數據，生成數據分析模型，編寫公式以對數據進行計算，以多種方式透視數據，并以各種具有專業外觀的圖表來顯示數據。簡而言之：Excel是用來更方便處理數據的辦公軟件，Excel?的用途還包括：會計專用、預算、帳單和銷售、報表、計劃跟蹤?、使用日歷等?，F實生活中經常會有需要將各個分散的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