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

最新推荐文章于 2025-05-24 11:24:57 发布

iteye_12894

最新推荐文章于 2025-05-24 11:24:57 发布

阅读量1.9k

点赞数

分类专栏： IT项目管理文章标签： Excel

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

6 篇文章

订阅专栏

将同一目录下多个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

。。。