滦南县铭晟电脑商城

技术文档

联系方式

滦南县铭晟电脑商城

1469959198222431.jpg

联系电话:0315-4125998

电子邮箱:lnmsdn@163.com

地      址:滦南县中大街以北团结路以东金诚华苑A-44

当前位置: 网站首页 > 技术文档 > 文案办公
文案办公

多个XLS合并成一个工作薄

使用方法:
1、新建一个工作薄,将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键,选择“查看代码”。
4、在打开的VBA编辑窗口中粘贴以下代码:

如果是excel2007及更新的版本,则需要把代码中的xls修改为xlsx即可

=============我是分割线,不要复制我===============

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

====================我是分割线,不要复制我================

如果不想复制代码,可直接下载我编辑好的

滦南县铭晟电脑商城合并工作薄代码.zip


祝大家工作顺利!


点击次数:  更新时间:2018-04-27  【打印此页】  【关闭