写了一段
引用
microsoft activex data object 2.6 library
添加控件microsoft chart control 6.0
Option Explicit
Function Read_Text_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 [test#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
End Function
Private Sub Command1_Click()
Dim Values() As Variant
Dim NumPoints As Integer
Dim i As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set rs = Read_Text_File()
'Set MSChart1.DataSource = rs '或者直接帮丁
NumPoints = rs.RecordCount
ReDim Values(1 To NumPoints, 1 To 2)
' 加载数据
rs.MoveFirst
For i = 1 To NumPoints
Values(i, 1) = CStr(rs!时间)
Values(i, 2) = CStr(rs!气压)
rs.MoveNext
Next i
rs.Close
Public Function Read_Text_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 [test#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
End Function
Private Sub cmdReadTXT_Click()
Set dgData.DataSource = obj.Read_Text_File
Set obj = Nothing
End Sub