怎么把多个excel的数据汇总到一个excel里
发布网友
发布时间：2022-06-02 20:17
共3个回答
热心网友
时间：2024-11-20 18:54
1、打开要插入Word文档的Excel电子表格文件。
2、单击要插入Word文档的单元格，然后选择菜单命令“插入”→“对象”。
3、“对象”对话框“新建”选项卡中，选择对象类型“Microsoft Office Word文档”，并单击“确定”按钮。
4、这时有Excel中会出现一个Word文档编辑框，在里面直接输入内容，方法与在Word中编辑文档完全相同。
5、根据需要拖动Word文档对象四周的控点，可以调整Word文档对象的大小，也可以将鼠标移动到边缘，通过拖动改变其位置。编辑完毕可以在对象之外的单元格上单击鼠标，退出编辑状态。
此时如果单击Word文档对象，则会看到四周的控点变成了圆形，可以象拖动绘图对象一样拖动Word对象的位置，及改变其大小，操作起来非常方便。双击该对象可以再次进入编辑状态。
6、除了上述新建一个Word文档对象的方法之外，可以在进行到第3步时，选择“由文件创建”，然后在对话框中单击“浏览命令”，找到已经存在的Word文档，选择完毕，回到该对话框，单击“确定”按钮。插入到Excel文档中的Word文档，可以随时双击打开进行编辑。
热心网友
时间：2024-11-20 18:54
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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。
热心网友
时间：2024-11-20 18:55
1、复制法。即将原来的数据直接复制后，在word中进行粘贴，这样数据就直接导入到word文档中了。
2、邮件合并法。在word中启用邮件合并，按向导的过程分别制作好需要插入的需要，数据源，对应关系，最后执行合并就可以了。
3、程序法。在word中插入合并域（如果是有规律的表格，可以不用这一步），然后编写vba程序，从excel文件中读取数据，然后写入到word中指定的位置。
上面三个方法中，方法1简单快捷，但是每次都需要操作，如果数据不是连续的块，需要复制粘贴多次，相对来说麻烦一点。方法2，一次设置可以多次使用，但不够灵活。方法3方便可以多次重复使用，但需要有一定的编程基础，可以根据工作的实际选择一个最适合的完成这个工作。
