如何將多個Excel文件合并成一個且保留原有數(shù)據(jù)？
時間：2023-06-26 14:15:40
作者：quers
來源：系統(tǒng)之家
1. 掃描二維碼隨時看資訊
2. 請使用手機瀏覽器訪問：
https://m.xitongzhijia.net/xtjc/20170608/99667.html
手機查看
評論
反饋
如何將多個Excel文件合并成一個且保留原有數(shù)據(jù)？事實上，我們可以借用Excel宏命令來處理該操作，并且保留原有數(shù)據(jù)，建立多個Sheet頁，具體操作請看下文多個Excel文件合并成一個的方法。
如何將多個Excel文件合并成一個且保留原有數(shù)據(jù)？
1、將需合并的Excel文件放在同一個文件夾中，并這個文件中新建一個Excel文件。
2、打開新建的Excel文件，按 Alt + F11 鍵，打開宏，選擇視圖→代碼窗口。
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
復(fù)制代碼
Sub sheets2one()
'定義對話框變量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
4、點擊運行選項運行宏命令。
5、之后彈出選擇對話框，選擇要批量合并的Excel名，確定即可。
6、程序運行完畢后，會自動生成一個工作簿，工作簿內(nèi)包含所有需合并的Excel文件，將工作簿另存為即可。
以上步驟便是，合并后的Excel文檔會獻出多個Sheet頁，我們可以很方便的切換了解。以上就是系統(tǒng)之家小編為你帶來的關(guān)于“如何將多個Excel文件合并成一個且保留原有數(shù)據(jù)？”的全部內(nèi)容了，希望可以解決你的問題，感謝您的閱讀，更多精彩內(nèi)容請關(guān)注系統(tǒng)之家官網(wǎng)。
發(fā)表評論
共0條
評論就這些咯，讓大家也知道你的獨特見解
立即評論以上留言僅代表用戶個人觀點，不代表系統(tǒng)之家立場