多個excel文件怎麼放到多個文件夾

㈠ 如何快速合並多個excel文件

使用interop的workbook.addsheet來合並就好了。

㈡ 請問用Excel或批處理怎樣將多個指定文件放到指定的多個文件夾中

不說對應或規律，你就手工。

㈢ 如何把多個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、點擊運行、一段時間（取決於表格的大小和多少）後，合並完成了。

㈣ 怎麼把100多個EXCEL文件合並成一個

可以通過更改excel代碼來合並多個文件。

詳細步驟：

1、新建一個文件夾。

網路-Microsoft Office Excel

㈤ 怎樣把很多個excel文件批量統一放到一個文件

通用的方法，特別是文件名、sheet表數量、sheet表名沒有規律的時候適用。
先打開目標excel文件，再打開一個要包含的源excel文件，右鍵點擊表名標簽，比如是「sheet1」，選擇「移動或復制工作表」；
在對話框中「工作簿」選擇目標文件，下面的「建立副本」要選中；
然後確認就OK了。
關閉第一個源文件後，再依次操作下一個文件。
這個方法比拷貝、粘貼方便些，准確性有保證。
如果有多於一個工作表要被復制，可以按住Shift選中全部要復制的表，然後同樣按照上面的操作。
要注意的是，如果選中了幾個工作表，千萬不要再去更改表格裡面的內容，否則所有選中的表格都會變的。
如果你的源表格多而且無規律，就算是用程序也解決不了。

㈥ 有大量EXCEL文件，我想把所需要的部分文件，方便的移動到其他文件夾里，或者找出來

把需要移動或者復制的文件名粘貼到一個空白EXCEL表的A列，在B1裡面輸入下面的公式：

="COPY D:舊文件夾"&A1&" D:新文件夾"

下拉公式後如下圖：

現在可以復制B列內容，粘貼到命令提示符後面即可。如果是移動需要把COPY修改為MOVE

㈦ office2016怎麼把多個excel文件合並到一個文件中

新建一個工作表，命名後保存到和與合並的100個文件同一個文件文件夾，摁 alt + f11,雙擊工程資源管理器裡面的sheet1(sheet1),在右側的代碼區粘貼如下代碼。運行。等候一會就OK了。

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

㈧ excel如何包含多個文件夾

.......
1
........................
打開excel軟體，新建一個excel工作表，在第一列中輸入"md "，在md後面加入一個空格，需要多少個文件夾，復制多少個即可

........................
2
........................
在第二列中輸入需要創建文件夾的地址，如果是同一個地址下，可以直接復制為相同的

........................
3
........................
第三列需要輸入創建文件夾的名稱，如我在這個目錄下，創建有15個文件夾，在第三列就分別輸入這個文夾名稱

........................
4
........................
在第四列中，把前面一的內容疊並起來，用&符號，如第一行就用公式「=A1&B1&C1」，得到結果為如圖所示

........................
5
........................
新建一個文本文件，把最後的結果復制到文本中，一行一個，進行保存

........................
6
........................
把這個文本文件的擴展名更改為.bat格式的文件，雙擊運行後就可以在所指定的目錄下，生成需要的文件夾了