如何把多個excel文件合並一個文件

① 怎麼將同一個文件夾下的多個EXCEL文件合並到一個EXCEL里

怎麼將同一個文件夾下的多個EXCEL文件合並到一個EXCEL里？ 用宏可以很方便的實現如下：
Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim dirname As String
Dim nm As String
nm = ActiveWorkbook.Name
dirname = Dir("E:\123\*.xls")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:="E:\123\" & dirname
Workbooks(nm).Activate '復制新打開工作簿的第一個工作表的已用區域到當前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub
新建一個EXCEL工作簿，打開開發工具裡面的 Visual Basic 把上面的代碼復制進去，然後根據下面的提示適當修改即可。
其中的 dirname = Dir("E:\123\*.xls")
Workbooks.Open Filename:="E:\123\" & dirname
是文件夾的路徑，根據自己電腦的文件夾路徑修改就可以。
Range("A65536").End(xlUp).Offset(1, 0)
這個A65536是行數，因為考慮是03版的所以用了這個，行數也是可以自己調大的。
這個宏可以實現 匯總同一個文件夾下的所有工作薄的功能。
如何將同一文件夾下的所有Excel表格合並到一個表格中
1、新建一個文件夾、將要合並的表格放到裡面、新建一個excel工作薄、用excel打開、右擊Sheet1標簽；
2、選擇查看代碼（PS：excel有著一項，WPS沒有）
3、將下列代碼復制到文本框中：
Sub 合並搜索當前目錄下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合並了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN,vbInformation, "提示"End Sub
4、點擊運行、一段時間（取決於表格的大小和多少）後，合並完成了。
如何多個excel文件合並到一個文件多個sheet
需要用到VBA代碼。
Sub Books2Sheets() '定義對話框變數 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一個工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd 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:=newwb.Worksheets(i) '把新工作簿的工作表名字改成被復制工作簿文件名，這兒應用於xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")'關閉被合並工作簿 tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = NothingEnd Sub
具體方法請參考：

將多個excel文件合並到一個excel的多個sheet_網路經驗

:jingyan../article/6181c3e0bd6274152ef1531e.

如何快速將多個文件夾下內容合並到一個文件夾下
建一個文件夾，把其他文件夾全部考進去，然後點該文件夾選搜索，這樣所有文件都列出來了，把這些文件剪切然後到在該文件夾黏貼，這樣所有文件都在這個文件夾了，其他文件夾就會變成空文件夾，可以選擇刪除。
怎樣把多個excel文件合並到一個文件中
1、新建一個文件夾、將要合並的表格放到裡面、新建一個表格、用excel打開、右擊Sheet1
2、選擇查看代碼（PS：excel有著一項，WPS沒有）
3、將下列代碼復制到文本框中：
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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合並了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、點擊運行、一段時間（取決於表格的大小和多少）後，合並完成了。
多個txt文件合並到一個excel的不同sheet
Sub ImportingText()
Dim MyDir As Object
Dim MyDate As Object
Dim i, j, k As Integer
Const ForReading = 1
i = 1
Sheet2.UsedRange.ClearContents
Sheet3.UsedRange.ClearContents
Set MyDir = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path & "log\")
Set MyFile = MyDir.Files
For Each File In MyFile
s = File.Name
Sheet2.Cells(i, 1) = s
i = i + 1
Next
Set MyDir = Nothing
Sheet2.Select

End Sub
這個是將某個目錄下所有文件名讀取的vba，你稍微改改就好了

② 如何合並多個excel文件

合並方法如下：
1.需要把多個excel表都放在同一個文件夾裡面，並在這個文件夾裡面新建一個excel。

2.用microsoft excel打開新建的excel表，並右鍵單擊sheet1，找到「查看代碼」，單擊進去。進去之後就看到了宏計算界面。

3.然後把下面這些宏計算的代碼復制進去，然後找到工具欄上面的「運行」下的「運行子過程/用戶窗體」，代碼如下，

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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合並了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

4.運行之後，等待10秒針左右，等運行完畢，就是合並完成之後，會有提示，點確定就可以了。查看合並後的數據，有5000多行，就是同一個文件夾裡面17個excel表數據合並後的結果。

③ 怎麼合並excel多個文件為一個文件

CSV是文本，在命令提示符下執行下面的一條命令就合並了：
d:\具體文件夾\*.csv d:\生產文件名.csv

④ excel多個文件合並一個文件怎麼做

昨天分享了多個word文檔合並到單個文檔的辦法，多個word文檔合並到單個文檔該如何操作？3秒合並多個文檔的辦法

就有同學問了，Excel表格能合並嗎？小編回答是：當然可以。

在我們的實際工作中，同事分別做好的表格數據，需要匯總到一起，這樣查看起來會更方便。

多個Excel表格文件合並到一起

Excel表格合並到單個表格文件可以理解為兩種，一種是sheet表合並，一種是多個Excel表格合並。

今日主要分享多個Excel表格文件如何合並到個一個Excel表格文件里。
操作步驟

首先我們操作前，一定要把多個Excel表格文件放到一個文件夾里。

打開空白Excel文件，點擊【數據】菜單，點擊【新建查詢】

選擇【從文件】下的【從文件夾】，選擇Excel表格文件夾

然後自動識別文件夾里的Excel文件，如下圖

點擊下方【合並】下的【合並和載入】選項。

這樣基本就完成了表格的合並。

最後需要我們根據不同需求調整一下表格的樣式和內容就行了。

調整完最終效果。

多個Excel表格合並一個表格的方法分享完畢。

小編的專欄也有很多漂亮的Excel模板，自帶公式，一鍵生成漂亮的Excel表格模板。如有需要，購買專欄後私信小編獲取。

⑤ 怎麼把多個excel文件合並成一個

以WPS 2019版本為例：

如需將多個excel文件合並成一個，可使用WPS2019中已自帶的「文檔拆分合並」版功能：

操作步驟權：

1）打開其中一份「表格（Excel）」文檔；

2）點擊「特色應用-拆分合並-合並」；

⑥ 怎樣把多個excel文件合並到一個文件中

把所需合並的Excel文檔放在同一個文件夾中,再文件夾中新建一個Excel打開Excel，按ALT+F11，或x0dx0a依次點工具，宏，VB編輯器，彈出的編輯器中點插入模塊，新彈出的空白窗口中輸入以下代前告碼：x0dx0aSubCom()x0dx0aDimMyPath,MyName,AWbNamex0dx0aDimWbAsWorkbook,aApplication.ScreenUpdating=Falsex0dx0aMyPath=ActiveWorkbook.Pathx0dx0aMyName=Dir(MyPath&"\"&"*.xls")x0dx0aAWbName=ActiveWorkbook.Namex0dx0aNum=0x0dx0aDoWhileMyName<>""x0dx0aIfMyName<>AWbNameThenx0dx0aSetWb=Workbooks.Open(MyPath&"\"&MyName)x0dx0aNum=Num+1x0dx0aWithWorkbooks(1).ActiveSheetx0dx0a.Cells(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)x0dx0aForG=1ToWb.Sheets.Countx0dx0aWb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)x0dx0aNextx0dx0aWbN=WbN&Chr(13)&Wb.Namex0dx0aWb.=Dirx0dx0aLoopx0dx0aRange("A1").Selectx0dx0aApplication.ScreenUpdating=Truex0dx0aMsgBox"共合並了"&Num&"個清攔工作薄下的全部工作表答悔胡。如下："&Chr(13)&WbN,vbInformation,"提示"x0dx0aEndSubx0dx0a保存---點執行鍵OK

⑦ 如何將多個excel文件快速合並到一個excel中呢

操作設備：戴爾電腦中臘

操作系統：win10

操作軟體：Excel2016

1、將需合並的Excel文件放在同一個文件夾中。

⑧ 怎樣把多個excel文件合並到一個文件中

以WPS 2019版本為例：

如需把多個excel文件合並到一個文件中，可使用WPS2019中已自帶的「文檔拆分合並」功能：

操作步驟：

1）打開其中一份「表格（Excel）」文檔；

2）點擊「特色應用-拆分合並-合並」；