我想把附件里的多个文档合并成一个文档，请指教。

两蛋一瓜 · 发表于 2021-12-30 15:03

啊祥发表于 2021-12-30 14:47
我下载不了，特定用户才能下载，麻烦上传一个谢谢！

你是不是没有找对，论坛的这个网址：
https://yyb.excelhome.net/download/

半温 · 发表于 2021-12-30 15:16

Sub 工作薄间工作表合并()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls*),*.xls*", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub

errhadler:
MsgBox Err.Description
End Sub

xiangbaoan · 发表于 2021-12-30 15:32

啊祥发表于 2021-12-30 14:42
我用EXCEL2010版打不开汇总表

汇总.zip (23 KB, 下载次数: 2)

啊祥 · 发表于 2021-12-31 11:21

半温发表于 2021-12-30 15:16
Sub 工作薄间工作表合并()

Dim FileOpen

用你的代码运行的时候出现这样的提示，我是2010版的，你发的附件，2010版找不到，只能用WPS，WPS我宏不能用，请指点。

啊祥 · 发表于 2021-12-31 11:24

xiangbaoan 发表于 2021-12-30 15:32

搞定非常感谢

啊祥 · 发表于 2021-12-31 11:26

半温发表于 2021-12-30 15:16
Sub 工作薄间工作表合并()

Dim FileOpen

已经搞定非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 我想把附件里的多个文档合并成一个文档，请指教。