Excel VBA多文件合并

最新推荐文章于 2024-07-16 14:53:02 发布

潘大仙是大锤

最新推荐文章于 2024-07-16 14:53:02 发布

阅读量790

点赞数

分类专栏： Excel VBA

本文链接：https://blog.csdn.net/weixin_37964410/article/details/107300789

版权

本文介绍了如何使用VBA来合并Excel文件，无论是每个文件中只有一张表还是包含多张表。对于单表的情况，文件会被直接合并；而对于多表的情况，文件会根据工作表名分别保存，形成多个合并后的文件。

摘要由CSDN通过智能技术生成

多个文件，每个文件中一张表

将文件保存为文件名

```vbnet
Sub one()
'
' one 宏
'
' 快捷键: Ctrl+q

Application.ScreenUpdating = False  '关闭屏幕更新
Application.DisplayAlerts = False  '关闭警告



'遍历所有文件
Dim str As String
Dim wb As Workbook

str = Dir("D:\data\pre\*.*xls*")

For i = 1 To 100
    'Range("a" & i) = str
    
    Set wb