问题描述:如下有三个Excel工作簿,分别为:手机银行.xlsx 、网上银行.xlsx 、信用卡.xlsx ,且每个工作簿里面均有多个工作表,现需要将这三个工作簿进行合并到一个工作簿中。
(若为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键,弹出打开文件对话框,并选中需要合并的三个文件,点击【打开】,即开始合并
—————————————————————————
【版权申明】
如非注明,本站文章均为 数据小雄 原创,转载请注明出处:数据小雄博客,并附带本文链接,谢谢合作!
本文地址:http://www.zhangzhengxiong.com/?id=94。
—————————————————————————
流泪
0人
打酱油
2人
开心
7人
鼓掌
2人
恐怖
2人
发表评论
已有2位网友发表了看法: