如何将多个Excel文件合并成一个且保留原有数据？
发布时间：2023-05-12 08:38:07
如何将多个Excel文件合并成一个且保留原有数据？事实上，我们可以借用Excel宏命令来处理该操作，并且保留原有数据，建立多个Sheet页，具体操作请看下文多个Excel文件合并成一个的方法。
如何将多个Excel文件合并成一个且保留原有数据？
1、将需合并的Excel文件放在同一个文件夹中，并这个文件中新建一个Excel文件。
2、打开新建的Excel文件，按 Alt + F11 键，打开宏，选择视图→代码窗口。
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
复制代码
Sub sheets2one()'定义对话框变量Dim cc As FileDialogSet cc = Application.FileDialog(msoFileDialogFilePicker)Dim newwork As WorkbookSet newwork = Workbooks.AddWith ccIf .Show = -1 ThenDim vrtSelectedItem As VariantDim i As Integeri = 1For Each vrtSelectedItem In .SelectedItemsDim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet cc = NothingEnd Sub
0
投稿猜你喜欢
细心的小伙伴在win10系统的联网区域有看到无internet，安全的提示。惹得小伙伴担心不已，可是这又没有导致无法上网，网络还是可以访问的- 通过数据透视表字段实现Excel数据的汇总据我自己说，我也是在学Excel表3年后才会用这个功能!真的汗一个!恩，很好奇，其实她的名字叫透视
- wps文字在安装后，会默认设置打开的方式，如果我们想要对其进行修改，具体要怎么做呢?下面就让小编告诉你wps文字怎样设置默认打开方式吧。wp
- 在桌面环境下，浏览器的多窗口运行功能非常重要，通常我们可以通过双击桌面图标或右键任务栏图标来运行浏览器的多个实例。目前微软已公开发布的Win
- 我们如果电脑遇到严重的问题，需要重装系统的时候，我们就需要重新安装电脑上的各类驱动，不然电脑系统没办法正常运行，但是如果遇上打印机驱动无法安
- 命令提示符即cmd.exe，它非常有用的windows的命令提示符CMD，到了win10才稍微有了变化，之前都是恒定不变。win10的CMD
- 在使用wps的时候，有时候需要文档中进行换行。怎么换行?新手不会，上网找怕麻烦，而且教程太乱没有统一的答案怎么办，哪里有更好的方法?下面小编
- WinXP系统加速开机的技巧。很多WinXP系统用户想让自己的电脑更加快速点，用了多种方法都不尽人意。那么，我们该采取哪些措施呢? &nbs
- 在制作wps幻灯片的时候，要怎么在幻灯片中添加超链接呢?不懂的朋友接下来，下面小编就为你介绍wps演示如何添加超链接的方法啦!wps演示添加
- win7系统还原打不开怎么办？如果系统出现了问题，我们可以通过系统还原功能来将系统还原到正常的状态，但是有的用户想要进行系统还原却提示还原打
- 本文介绍删除window服务命令删除window服务命令 用sc.exe这个Windows命令 开始——运行——cmd.exe，然后输入sc
- 为了避免因突发故障导致的电脑数据丢失，提前做好数据的备份工作就显得很有必要了。那么，Win10系统要怎么备份文件呢？下面小编就来介绍几种适用
- 手机版的WPS表格中，我们如何对数据进行求和呢，在手机上使用表格，虽然，没有电脑上操作方便快捷，但，也不会太麻烦。也是比较容易操作的。接下来
- 生活中网关和路由器都是和网络有关的设备，且网关和路由器都是可以连接许多子网的设备，能够发送许多数据包。因此在使用方面，网管和路由器还是有很多
- 输入公式选择好要输入公式的单元格，就可以开始输入公式了。首先需要输入一个等号，告知 Excel 这是一个公式的开始。然后输入公式中的其他内容
- 今日凌晨，苹果推出了iOS 14.5 Beta 6版本，该版本修复了一些问题，同时为iPhone 11系列用户提供了“重新校准电池”的功能。
- Win10电脑开机很慢时间很长?每次开机都要50多秒甚至一分钟，开机速度太慢了，该怎么设置才能尽量缩短开机时间呢？下面分享一个一个最为简单的
- 这篇文章主要介绍了Win11资源管理器打开空白怎么解决 资源管理器打开空白解决方法的相关资料,需要的朋友可以参考下本文详细内容。Win11资
- 昨天，大家迎来了iOS 13公测版Beta 2，今天苹果又给大家推送了iOS 12.4开发者预览版Beta 6系统更新。iOS12.4 be
- wps表格不仅能用来统计数据，还能在其中绘图呢，你知道怎么做吗?下面小编就为你介绍wps表格怎么绘图的方法啦!wps表格绘图的方法：我们首先
