ADO+读取、汇总CSV文件

Sub 总输出()  ‘’不打开CSV文件进行读取汇总

Set CNN = CreateObject("ADODB.CONNECTION")
Set RS = CreateObject("ADODB.RECORDSET")
CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
 SQL = "SELECT * FROM [KPI.CSV]'"
Set RS = CNN.Execute(SQL) '将SQL语句获得的数 
Sheets("总输出").Cells.ClearContents       '清理保存数据的区域
     For i = 0 To RS.Fields.Count - 1
       Worksheets("总输出").Cells(1, i + 1) = RS.Fields(i).Name
     Next
Sheets("总输出").Range("a2").CopyFromRecordset RS 
RS.Close
Set rs = Nothing


End Sub