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
 

 

。。。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值