EXCEL VBA 跨表合并多个文件
发布时间：2022-05-19 02:58:30
‘选择一个目录，将目录中的所有EXCEL文件导入当前工作表
‘这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式
Sub 批量()
Dim FD, str$, arr
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
If FD.Show = -1 Then t = FD.SelectedItems(1) Else Exit Sub ‘如果没选择文件夹则退出
Application.ScreenUpdating = False
Cells.NumberFormatLocal = "@"
str = Dir(t & "\*.xl*") ‘查找格式为EXCEL的文件
While Len(str) > 0 ‘文件名不为空时
Workbooks.Open (t & IIf(Right(t, 1) = "", "", "") & str) ‘打开工作簿
With ActiveWorkbook.ActiveSheet
.Range(.Cells(2, "l"), .Cells(.[a65536].End(3).Row, "l")) = "’" & Left(str, Len(str) – IIf(Right(str, 1) = "x", 5, 4))
arr = .UsedRange
Workbooks(str).Close False ‘关闭工作薄
Kill (t & IIf(Right(t, 1) = "", "", "") & str) ’删除工作薄（如果不删除，省去这一步）
End With
With ActiveSheet
rw = .[a65536].End(3).Row + 1
.Cells(rw, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr ‘将数据写入当前工作表
End With
str = Dir() ‘查找下一个文件
Wend
If [a1] = "" Then Rows(1).Delete ‘如果A1为空，删除第一行
Application.ScreenUpdating = True
End Sub
0
投稿猜你喜欢
作为一款多功能、个性化、多标签的浏览器产品，傲游浏览器不仅能够有效减少浏览器对系统资源的占用率，还内置了大量的贴心功能，其中便包括浏览器语言- 在WPS Excel表格中有一个“单元格”功能，使用该功能我们可以批量清除单元格中的内容，比如批注，内容，格式，全部，特殊字符等等。我们在使
- 为防止刚刚曝光的 Zombieload v2 攻击，微软 Windows 和 Linux 内核团队都引入了方法关闭英特尔 TSX（Trans
- 操作步骤动画是演示文稿的精华，在画中尤其以“进入动画”最为常用。下面我们就在PowerPoint中设置“渐变式缩放”的进入动画为例，看看具体
- 原因分析：可能是设置中将这个功能关闭了。解决方法：大家只要开启功能即可1、双击打开计算机图标，点击工具下面的“文件夹选项”;2、在文件夹选项
- QQ输入法怎么快捷输入HTML语言代码？安装好QQ拼音，在输入法状态条点右键----属性设置;QQ输入法进入高级设置----自定义短语设置;
- 今天微软推送了Win10秋季创意者更新16257，这个版本更新以后会有哪些新的bug出现呢？下面我们就来看看详细的内容介绍，本文主要发现了四
- 幂果万能播放器是一款使用便捷的多媒体播放器，软件支持音频，视频播放，也提供多种语言，用户可以选择适合自己的语言进行使用，刚接触的用户可能还不
- 在Word2010文档中进行邮件合并时，可以直接将信函合并到电子邮件，即将信函直接发送到收件人的电子邮箱中，操作步骤如下所述：第1步，打开W
- ①启动WPS表格2013，单击菜单栏--视图--冻结窗格按钮，鼠标移动到图标上面可以了解该功能的作用。 ②启用冻结
- 打开文件夹提示拒绝访问怎么办？电脑文件夹拒绝访问该如何解决？下面就给大家介绍文件夹拒绝访问的修复教程。操作步骤：1、以管理员身份登录XP系统
- 如何使用activation lock?activation lock就是iPhone的“启动锁”，也就是“查找我的iPhone”功能。要关
- oppo手机是一款非常受欢迎的手机，很多用户在使用的过程中出现了自拍模糊的情况，但是都不知道怎么解决，我们可以通过设置的方法进行解决，下方教
- 在WPS演示文稿中插入WPS图表数据，听起来有些难度哦，其实不难。打开演示文稿，随后插入对象选择WPS图表。以下是小编为您带来的关于在WPS
- 想必应该所有使用win7 64位旗舰版笔记本电脑的用户都有这样的无奈吧?因为win7旗舰版笔记本电脑的独立性，咱们笔记本电脑自带的就有触控的
- Excel如何利用函数求出时间段，并具体进行操作的呢?今天，小编就教大家在Excel中进行利用函数求出时间段的操作方法。Excel中进行利用
- 很多小伙伴觉得win10系统重装很复杂，今天小编带来360重装大师，重装win10系统方便快捷，不需要光驱，不需要制作启动盘。下面跟小编一起
- 我们在日常办公的时候，经常会用到表格，今天给大家讲一下，Excel如何隐藏工资额，快一起来学习一下吧！我们接下来将会把工资一栏隐藏数据：现在
- 在Excel中气泡图是一种常用的图表类型，在目前一些信息可视化的图中，如果excel表格中的数据想要以气泡的形式显示，那么应该如何制作气泡图
- 双屏幕显示是由一台主机控制的，同时外接两台显示器并显示不同画面的效果。双屏显示可以更好的提高用户的工作效率，那么还在使用win7系统的小伙伴
