VBA ado 把CSV文件当做数据源进行 查询操作
Sub F_Sample006() 'Microsoft ActiveX Data Objects 2.X Library 'F_Data.csv Dim myCon As New ADODB.Connection Dim myRst As New ADODB.Recordset Dim myCnc As String Dim myCmd As String Dim myFileName As String Dim i As Long myFileName = "F_Data.csv" myCnc = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "DBQ=" & ThisWorkbook.Path & "\;" myCmd = "SELECT * FROM " & myFileName myCon.Open "Provider=MSDASQL;" & myCnc myRst.Open Source:=myCmd, ActiveConnection:=myCon Worksheets.Add With myRst For i = 1 To .Fields.Count Cells(1, i).Value = .Fields(i - 1).Name Next Range("A2").CopyFromRecordset myRst ActiveSheet.Cells.Font.Name = "宋体" .Close End With myCon.Close Set myRst = Nothing Set myCon = Nothing End Sub
我学习JAVA的母校