用ado来读csv文件 Public Function Read_CSV_File() As ADODB.Recordset Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _ "DBQ=" & App.Path & ";", "", "" rs.Open "select * from [CSV_Sample_File#csv]", conn, adOpenStatic, _ adLockReadOnly, adCmdText Set Read_Text_File = rs Set rs = Nothing Set conn = Nothing End Function Private Sub cmdReadCSV_Click() Set dgData.DataSource = Read_CSV_File() End Sub
Public Function Read_CSV_File() As ADODB.Recordset Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & App.Path & ";", "", "" rs.Open "select * from [CSV_Sample_File#csv]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
End Function
Private Sub cmdReadCSV_Click()
Set dgData.DataSource = Read_CSV_File()
End Sub