五张表格制成文件夹

A. 如何将多个EXCEL表格组成一个工作薄，表格都是存放在同一个文件夹下的子文件夹里（有多个子文件夹）

新建一个sheet来做目录，在里面做超链接（插入——超链接）可以连接到其它文件也可以打开其它表。也可以连接到sheet中某一位置。做好了就像一本书的目录。你的文件不管在那个文件夹，一点就到你想要的位置。很方便。祝你成功！

B. excel如何几个excel表格放在一个文件里面

1、新建一份表格，点击工具栏上面的数据，新建查询-从文件-从文件夹路径点击打开。

C. 如何用Excel表格大量创建指定名字的文件夹

操作步骤：

1、打开Excel，在A列中输入“ren+空格”；

2、在B列中输入“旧文件名+空格”；

3、在C列中输入“新文件名+空格”；

4、在D列中输入函数“=A1&B1&C1”；

5、然后选择D列并复制；

6、打开新记事本并粘贴该内容；

7、把该文本文档保存为bat文件，并移动到该文件夹下，双击运行即可。

D. EXCEL表格过多，如何分层，做成文件夹形式

这问题能引起无数联想啊~ 是指同一张excel表中的内容太多吗？那就选中相似的内容点“创建组”来缩短吧。 是指同一张工作薄里面的sheet工作表太多吗？点右键选“移动和复制”拆分成多个工作薄吧。 是指工作薄太多吗？同样移动复制整理到一个或多个工作薄吧。或者新建文件夹，全部放进去……

E. 如何把多个表格合并到一个表格文件

1. Ctrl + C, Ctrl + V
做数据的搬运工，理论上也是没有问题的。可在这全名编程的时代，你还苦逼的复制粘贴、挑灯夜战就显得太没水平了。

2. VBA for Excel
同样是复制粘贴，不过前者自己动手，后者让机器动手。

3.Power Query for Power BI

既然咱们这是PB的专栏，那肯定要介绍它的功能了，恰巧其中的Power Query就是处理“多表合并”的利器。

那么废话不多说，我们直接上步骤：

假设现在有三张销售记录表，其中每个表的字段结构是相同的，我们想要将它们合并成一个表，方便后续的分析操作。

下面介绍两种方法：

01

多表合并1

首先，分别将三张表导入到Power BI中：

然后，点击主页选项卡下的追加查询按钮，在弹出的对话框中选择三个或更多表，将“销售数据表1”和“销售数据表2”添加到右侧框中，点击确定：

这样就将所有数据存储在“销售记录表”中了。

当然上面这个方法应对表格数量较少的还是比较方便，但要是碰到极端的情况，比如有一百张表要合并，那这种方法的效率可能就没那么高了，所以下面再为大家介绍一种方法。

02

多表合并2

这次我们先将所要加载的数据存入一个文件夹中，比如取名为“销售数据”。

然后在Power BI中点击获取数据按钮下的更多选项：

F. 如何把多个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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

G. 如何将excel里的多个表格，保存成一个表格一个的单独文件

将excel里的多个表格，保存成一个表格一个的单独文件的具体步骤如下：

需要准备的材料分别是：电脑、Excel表格。

1、首先打开需要编辑的Excel表格，进入到编辑页面中。

H. 请问多张EXCEL表格怎么合并成一个文件

如果文件不多的话，可以点表格名称上，按鼠标右键——移动复制工作表，把他们移动到一个文件中去。如果很多文件（但不能多于256个因为工作簿最多只能有256个工作表），不管每个文件的格式，那么用以下的办法：
具体步骤：
1、下面是代码。
Private Sub CommandButton1_Click()
Dim Sh As Worksheet, MyName$, n%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
If ThisWorkbook.Sheets.Count > 1 Then
If MsgBox("重新导入报表将删除原来报表，继续吗？ ", 52, "警告") = 7 Then Exit Sub
End If
On Error Resume Next
For Each Sh In Worksheets
If Sh.Name <> ActiveSheet.Name Then
Sh.Delete
End If
Next
n = 1
MyName = Dir(ThisWorkbook.Path & "\*.xls")
Range("a2:b65536").ClearContents
Range("a2:b65536").Hyperlinks.Delete
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & MyName
ActiveWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(n)
n = n + 1
ThisWorkbook.Sheets(n).Name = Left(MyName, InStr(MyName, ".") - 1)
Range("a" & n) = n - 1
Me.Hyperlinks.Add Range("b" & n), Address:="", SubAddress:="'" & ThisWorkbook.Sheets(n).Name & "'!A1", ScreenTip:=ThisWorkbook.Sheets(n).Name, TextToDisplay:=ThisWorkbook.Sheets(n).Name
ActiveSheet.Hyperlinks.Add ActiveSheet.Range("p1"), Address:="", SubAddress:=Sheets(1).Name & "!A1", ScreenTip:="返回首页", TextToDisplay:="返回"
Workbooks(MyName).Close
End If
MyName = Dir
Loop
Me.Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
2、新建Excel文档，创建一个按钮，将上面的代码放到按钮上。
3、将文档保存，和那些要合并的文件存放到同一个文件夹。
4、点击刚才创建的按钮，即可将这些表格合并到当前这个文档里（工作簿）。

I. 怎样将几个excel表格合并成一个文件夹

1、将需合并的excel文件放在同一个文件夹中，并这个文件中新建一个excel文件
2、打开新建的excel文件，按alt + f11建，打开宏，选择视图——代码窗口
3、将下面分割线内的的代码拷贝进去，并保存。
======我是分割线======
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、程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的excel文件，将工作簿另外即可

J. 怎样把几个表格压缩成一个文件

可以把几个表格放到一个word里或者一个文件夹里，甚至可以直接选中这几个表格后进行压缩，都可以压缩为一个文件。