EXCEL2007合并

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:32:18
几个EXCEL文件，每个只都只有SHEET1，EXCEL自身有没有合并文件功能？不需要合并数据，只需要合并成一个文件，有SHEET1，SHEET2，SHEET3，等。
不要告诉我复制粘贴。
谢谢。

运用Excel VBA宏程序，程序代码如下，且调试通过，如果不会运用，可以Hi我。
Option Explicit

Sub Macro1()
'
' Macro1 Macro
' 合并多个EXCEL工作簿
'
' 快捷键: Ctrl+w
'
Dim FilesToOpen '缺省情况被声明为 Variant
Dim x As Integer

On Error GoTo ErrHandler
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xlsx),*.xlsx", Title:="", MultiSelect:=True) '在此导入的EXCEL2007文件,扩展名在这里可自己指定

If TypeName(FilesToOpen) = "Boolean" Then 'Boolean 数据类型,只有两种值的数据类型，这两种值分别为 True(-1) 或 False(0)。 Boolean 变量是以 16 位 ( 2 字节 ) 数字存储的。
MsgBox "没有选中文件"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
'给参数赋值时才使用:=号,比如说：expression.Copy(Before, After)，当你要给Before和After两