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