excel 合并工作表的方法，用VBA代码实现合并工作表
发布时间：2023-08-06 14:03:45
下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。
现在的问题，如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。
一般的做法，通过“移动或复制”实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。
合并工作表操作步骤：
新建一个excel文件，按ALT+F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。
Sub 合并工作簿()
Dim FilesToOpen, wb As Workbook, sht As Worksheet
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
If FilesToOpen(x) <> ThisWorkbook.FullName Then
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
For Each sht In wb.Sheets
sht.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
End If
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
说明：上面代码是合并xlsx文件，如果是合并excel2003的文件，需要将：FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx"，xlsx改为.xls。
excel 合并工作表的方法，用VBA代码实现合并工作表的下载地址：
0
投稿猜你喜欢
- 本文教你如何强制把硬盘设置为DMA模式.从而达到最大的速度大家都知道，硬盘必须打开DMA模式才会跑得快。而开启各种硬件设备的DMA模式的条件
- Excel2016“最近使用的文档 ”显示个数如何设置?第一步.打开任意一个excel文档 或者新建一个空白文档。第二步.点击左上角的 “文
Win10怎样清除电脑使用痕迹？系统使用过是会留下记录的，如果不想让别人知道自己的使用操作的话那么就需要将使用记录清除，那么如何删除win1- 很多在使用win10系统的用户，还不知道xbox商店叫什么，其实它我们系统中自带的Microsoft Store商店，那么接下来让我们一起看
- Macbook中在网上下载的APP一般在访达程序应用程序文件里就可以找到，但有些用户想把应用程序的图片放到桌面上，就像Win系统的一样，下面
- 如何在wps ppt中制作一个动作按钮呢?下面小编就为你提供wps ppt如何制作动作按钮的方法啦!wps ppt制作动作按钮的方法：1：按
- Excel的特殊符号具体该如何输入呢?下面是由小编分享的excel2003特殊符号的输入教程，以供大家阅读和学习。excel2003特殊符号
- 在Windows 10 May 2019功能更新（Version 1903）中，微软引入了一项名为“保留的存储”（Reserved Stor
- 相信所有的小伙伴在使用电脑的时候，都会下载一些应用程序。但是不少用户反应，自己的电脑在网页上下载东西的时候提示没有访问目录的权限问题，这要怎
- 昨天，小梦到一个小城市里出差，因为没有星级酒店，只能住普通酒店。但是她听过有些酒店有 * ，为了个人安全，她问我有没有鉴别 * 的方
- Excel表格中大于某一数值的如何显示为一个颜色？请看下面方法。方法1、打开Excel。2、点击条件格式。3、选择突出显示单元格规则。4、选
- 很多小伙伴在完成了自己的思维导图之后想要将思维导图分享给朋友，却不知道该如何进行操作，还有的小伙伴想邀请朋友与自己一起对思维导图进行编辑却不
- 电脑硬盘是我们存储文件信息的地方，同时也是一个很脆弱的地方，用户不小心的操作都很容易损害电脑中的硬件，所以对电脑硬盘的保护和保养是非常重要的
- 由于MacBook屏幕的限制，很多工作无法完成，所以用户经常将MacBook连接到电视上，但是很多刚涉足Mac领域的新手用户，还不知道Mac
- 如何在wps文字中设置文本的页脚呢?下面小编就为你提供wps文字怎么设置页脚的方法啦，希望小编收集的资料对大家有用，不懂的朋友会请多多学习哦
- 对于内容比较丰富的文档，我们一般都需要为其添加页码，对于新手可能不知道如何在wps中文为文档添加页码，下面就让小编告诉你wps文字如何为文档
- 大多数使用Windows7电脑的朋友都知道Windows7有个放大镜,但是都知
- 在wps文字中插入在线图片的方法：打开WPS文字这款办公软件，进入WPS文字的操作界面，如图所示： 在该界面下，找
- 我们在使用Word进行办公时，可能会需要对段落设置编号，但是对相连的几个段落设置编号总是从初始值重新开始，有什么办法可以让word多级编号怎
- 升级win8.1之后，每次开机都需要连接两次才能正常上网，有时候还会遇上错误651，这个问题该怎么解决呢？下面有个不错的教程，遇到类似情况的
