Excel：多个CSV文件合并成一个Excel文件
将同一目录下多个CSV文件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?
?
。。。
