vbs宏：excel读取多个文件并合并为一个文件

最新推荐文章于 2024-08-22 06:38:28 发布

w57w57w57

最新推荐文章于 2024-08-22 06:38:28 发布

阅读量1.7k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：设计/管理

本文链接：https://blog.youkuaiyun.com/w57w57w57/article/details/43346739

设计/管理专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一段使用VBA编写的代码，该代码能够帮助用户将指定路径下的所有CSV文件合并到当前工作表中。首先，这段代码会清除当前工作表的所有内容，然后遍历指定路径下的所有CSV文件，并将其内容逐一复制粘贴到当前工作表中。第一次粘贴时，内容会被放置在A1单元格；之后每次粘贴都会紧接着上次粘贴的内容下方进行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub MergeFiles()
Dim p$, f$, m&, sh As Worksheet
Set sh = ActiveSheet
Application.ScreenUpdating = False
sh.UsedRange.ClearContents
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.csv")
While f > ""
With GetObject(p & f)
m = m + 1
If m = 1 Then
.ActiveSheet.UsedRange.Copy sh.Range("a1")
Else
.ActiveSheet.UsedRange.Copy sh.Range("a" & sh.Rows.Count).End(3).Offset(1)
End If
.Close False
End With
f = Dir()
Wend
Application.ScreenUpdating = True
End Sub