1. 首頁 > 生活百科 > >

如何將多個Excel文件合并成一個且保留原有數據？

excel

如何將多個Excel文件合并成一個且保留原有數據？事實上 ， 我們可以借用Excel宏命令來處理該操作 ， 并且保留原有數據 ， 建立多個Sheet頁 ， 具體操作請看下文多個Excel文件合并成一個的方法 。
如何將多個Excel文件合并成一個且保留原有數據？
1、將需合并的Excel文件放在同一個文件夾中 ， 并這個文件中新建一個Excel文件 。

如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

2、打開新建的Excel文件 ， 按 Alt + F11 鍵 ， 打開宏 ， 選擇視圖→代碼窗口 。
如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

3、將下面的代碼拷貝進去：
    01Sub sheets2one()
    02'定義對話框變量
    03Dim cc As FiLEDialog
    04Set cc = Application.FileDialog(msoFileDialogFilePiCKer)
    05Dim newwork As Workbook
    06Set newwork = Workbooks.Add
    07With cc
    08If .Show = -1 Then
    09Dim vrtSelectedItem As Variant
    10Dim i As Integer
    11i = 1
    12For Each vrtSelectedItem In .SelectedItems
    13Dim tempwb As Workbook
    14Set tempwb = Workbooks.Open(vrtSelectedItem)
    15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
    16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
    17tempwb.Close SaveChanges:=False
    18i = i + 1
    19Next vrtSelectedItem
    20End If
    21End With
    22Set cc = Nothing
    23End Sub
復制代碼
Sub sheets2one()'定義對話框變量Dim cc As FileDialogSet cc = Application.FileDialog(msoFileDialogFilepicker)Dim newwork As WorkbookSet newwork = Workbooks.AddWith ccIf .Show = -1 ThenDim vrtSelectedItem As VariantDim i As Integeri = 1For Each vrtSelectedItem In .SelectedItemsDim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet cc = NothingEnd Sub
如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

4、點擊運行選項運行宏命令 。
如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

5、之后彈出選擇對話框 ， 選擇要批量合并的Excel名 ， 確定即可 。
如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

6、程序運行完畢后 ， 會自動生成一個工作簿 ， 工作簿內包含所有需合并的Excel文件 ， 將工作簿另存為即可 。
如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

如何將多個Excel文件合并成一個且保留原有數據？

文章插圖

【如何將多個Excel文件合并成一個且保留原有數據？】 以上步驟便是 ， 合并后的Excel文檔會獻出多個Sheet頁 ， 我們可以很方便的切換了解 。

    推薦閱讀