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

 

 

。。。