多个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格式的文件，双击运行后就可以在所指定的目录下，生成需要的文件夹了