华企商城欢迎您! 登录 注册 总站[切换城市]
中国优秀的企业全生态服务平台 我的购物车0

咨询热线: 010-85755626

售后服务: 010-85779318

首页 >华企学院 >软件动态 > 如何将多个Excel文件合并成一个且保留原有数据的方法?

如何将多个Excel文件合并成一个且保留原有数据的方法?

作者:华企商城 阅读次数:118次 发布时间:2018-04-15 17:40:44评论:0

  如何将多个Excel文件合并成一个且保留原有数据的方法?

  事实上,我们可以借用Excel宏命令来处理该操作,并且保留原有数据,建立多个Sheet页,具体操作请看下文多个Excel文件合并成一个的方法。

  如何将多个Excel文件合并成一个且保留原有数据?

  1、将需合并的Excel文件放在同一个文件夹中,并这个文件中新建一个Excel文件。

如何将多个Excel文件合并成一个且保留原有数据?

  2、打开新建的Excel文件,按 Alt + F11 键,打开宏,选择视图→代码窗口。

如何将多个Excel文件合并成一个且保留原有数据?
如何将多个Excel文件合并成一个且保留原有数据?

  3、将下面的代码拷贝进去:

  01Sub sheets2one()

  02'定义对话框变量

  03Dim cc As FileDialog

  04Set cc = Application.FileDialog(msoFileDialogFilePicker)

  05Dim newwork As Workbook

  06Set newwork = Workbooks.Add

  07With cc

  08If .Show = -1 Then

  09Dim vrtSelectedItem As Variant

  10Dim i As Integer

  11i = 1

  12For Each vrtSelectedItem In .SelectedItems

  13Dim tempwb As Workbook

  14Set tempwb = Workbooks.Open(vrtSelectedItem)

  15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)

  16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

  17tempwb.Close SaveChanges:=False

  18i = i + 1

  19Next vrtSelectedItem

  20End If

  21End With

  22Set cc = Nothing

  23End Sub

  复制代码

如何将多个Excel文件合并成一个且保留原有数据?

  4、点击运行选项运行宏命令。

如何将多个Excel文件合并成一个且保留原有数据?

  5、之后弹出选择对话框,选择要批量合并的Excel名,确定即可。

如何将多个Excel文件合并成一个且保留原有数据?

  6、程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的Excel文件,将工作簿另存为即可。

如何将多个Excel文件合并成一个且保留原有数据?
如何将多个Excel文件合并成一个且保留原有数据?

  以上步骤便是,合并后的Excel文档会献出多个Sheet页,我们可以很方便的切换了解。

华企商城更多商品介绍:青岛网站建设公司     益阳手机wap网站建设    陇南网站建设公司

文章转载请注明出处:http://www.netshop168.com/article-64294.html

有好的文章希望华企帮您分享推广,猛戳这里我要投稿

【版权声明】本文内容由互联网用户自发贡献,本站不拥有所有权,不承担相关法律责任。如果发现本站有涉嫌抄袭的内容,欢迎发送邮件至 1324939756@qq.com 举报,并提供相关证据,一经查实,本站将立刻删除涉嫌侵权内容。

我来说两句 0条评论

最新评论

栏目最新文章

找到您想要的文章

快速发布任务

  • 频道热点
  • 全站热点