把多个工作簿中的工作表合并到一个工作簿中的vba代码_

来源：百度文库 编辑：神马文学网 时间：2024/04/20 00:38:18
把多个工作簿中的工作表合并到一个工作簿中的vba代码 http://hi.baidu.com/tgqphp/blog/item/111f037b1def83f00bd18712.html 2008-04-05 00:32

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

把多个工作簿中的工作表合并到一个工作簿中的vba代码_一分耕耘，一分收获 把多个工作簿中的工作表合并到一个工作簿中的vba代码_ 把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里 EXCEL：一个工作薄中多个工作表合并代码 如何对工作簿中的工作表排序？ 巧用宏 快速合并200个Excel工作簿 巧用宏 快速合并200个Excel工作簿-办公软件- Excel VBA之破解工作表簿保护密码 181个生活与工作中的潜规则 工作中的痛 工作中的美食定律 工作中的美食定律 工作中的定律mimi 工作中的潜规则 工作中的美食定律 工作中的人际交往 工作中的潜规则 工作中的潜规则] 工作中的技术工作总结 工作中的定律 工作中的潜规则1 工作中的幽默感 工作中的定律【20100923】 工作中的十不要