Excel：多个CSV文件合并成一个Excel文件

最新推荐文章于 2024-11-29 23:43:12 发布

最新推荐文章于 2024-11-29 23:43:12 发布 · 1.9k 阅读

文章标签：

#Excel

IT项目管理专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一段使用VBA编写的脚本，该脚本能将指定目录下的所有CSV文件合并成一个Excel文件。通过循环读取每个CSV文件，并将其内容追加到目标Excel文件中，实现了批量文件整合。

将同一目录下多个CSV文件合并为一个Excel 文件

Sub MergeCSV()
    Application.DisplayAlerts = False
    Dim WK As Workbook, CSV As Workbook, MyPath$, MyName$, i As Integer
    MyPath = ThisWorkbook.Path & "\csv\"
    MyName = Dir(MyPath & "*.csv")
    If MyName <> "" Then Set WK = Workbooks.Add
    Do While MyName <> ""    ' 开始循环。
       Set CSV = Workbooks.Open(MyPath & MyName):
        'ActiveSheet追加记录的功能
        i = WK.ActiveSheet.UsedRange.Rows.Count
        '第一次复制从row 1开始， 之后的在Count+1处开始复制
        If i <> 1 Then i = i + 1
        '复制记录到指定的位置
        CSV.ActiveSheet.UsedRange.Copy WK.ActiveSheet.Cells(i, 1)
        CSV.Close False
        MyName = Dir
    Loop
   
    WK.SaveAs MyPath & "total.xls"
End Sub

。。。