要想把100个不同的EXCEL文件放在同一个EXCEL里

发布网友 发布时间：2024-10-04 04:38

我来回答

共5个回答

热心网友 时间：2024-10-09 01:20

方法1.一个一个复制，粘贴。
方法2. 找高手 给你做VBA
按住 Ctrl 逐个点击你要的工作表 然后在选中的工作表上点右键，选择移动或复制到新的工作簿

补充回答
谨记：
这种方式的弊端：
如果你的工作表中有 存储超过256个字符的单元格，那么这个单元格内的字符在复制或移动到新的单元格内后就被系统自动截取为之前的256个字符。

热心网友 时间：2024-10-09 01:25

方法1:在EXCEL里面右键工作表标签出现移动工作到新的工作薄(一个一个移)
方法2:把所有的EXCEL工作薄打开在
文件/保存为工作区/文件名/保存就可以了,

热心网友 时间：2024-10-09 01:16

方法1:在EXCEL里面右键工作表标签出现移动工作到新的工作薄(一个一个移)

热心网友 时间：2024-10-09 01:22

如果有些表单在一个excel中的话你可以按ctrl或shift把你需要移动的表单的工作表标签全选中，在工作表标签的地方点鼠标右键，会出现移动工作到新的工作薄，全部一起移动，如果你的这个excel中的表单得全部都移动的话，得在建立副本前打钩！

热心网友 时间：2024-10-09 01:23

你每个EXCEL文件里面就只有一个文件么？
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer

On Error GoTo ErrHandler
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _
MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1

Wend

ExitHandler:
Application.ScreenUpdating = True
Exit Sub

ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
这个是汇总里面所有的工作表的 如果你的EXCEL 文件里面就一个文件时可以用的 但汇总后名字是按本来的名字命名的