如何将多个Excel工作簿合并成一个新工作簿?(Excel 2010)

作者:数据小雄 , 分类:Excel , 浏览:11627 , 评论:2

问题描述:如下有三个Excel工作簿,分别为:手机银行.xlsx 、网上银行.xlsx 、信用卡.xlsx ,且每个工作簿里面均有多个工作表,现需要将这三个工作簿进行合并到一个工作簿中。

多工作簿合并.rar


操作步骤:
1、在当前文件夹中新建一个工作簿:合并.xlsx
2、鼠标右键点击sheet1,并点击【查看代码】,弹出VBA窗口


3、将下面代码复制到VBA窗口中

VBA代码如下:

(若为xls格式,则将代码中xlsx改为xls)

Sub 工作薄间工作表合并()   
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", 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
End Sub


4、点击运行或按F5键,弹出打开文件对话框,并选中需要合并的三个文件,点击【打开】,即开始合并


5、合并结果如下:



—————————————————————————

【版权申明】

如非注明,本站文章均为 数据小雄 原创,转载请注明出处:数据小雄博客,并附带本文链接,谢谢合作!

本文地址:http://www.zhangzhengxiong.com/?id=94。

—————————————————————————

亲!有什么想法呢?
  • 流泪

    0

  • 打酱油

    2

  • 开心

    7

  • 鼓掌

    2

  • 恐怖

    2

 

发表评论

必填

选填

选填

必填

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

已有2位网友发表了看法:

1#访客  2018-02-03 17:27:01 回复该评论
a1s2d3f4g5h6j7k8l9z1x2c3v4b5n6m9
2#访客  2018-02-03 17:31:13 回复该评论
【查看代码】,弹出VBA窗口
新浪微博
米店
标签列表
@数据小雄 | 专注于数据分析、挖掘、可视化案例分享