VB将EXCEL或ACCES某个表中的一列数据导入数组中

来源：百度知道 编辑：UC知道 时间：2024/05/11 19:34:26
在绘图过程中，需要调用EXCEL或ACCES中某一列的数据，并存入数组中以备绘图调用。但是又编不出程序，麻烦懂的帮一下忙。谢谢！

用ado对象,连接到excel表,下面的代码给你参考:
使用前要先引用ado对象.

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim sql As String
'On Error Resume Next
strName = App.Path & "\book.xls" 'EXCEL文件名
strSheetName = "sheet1" 'EXCEL表名
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data
Source=" & strName & ";Extended Properties='Excel 11.0;HDR=Yes'" '连接EXCEL文件
sql = "select * from [" & strSheetName & "$]" '打开EXCEL表
rs.Open sql, Conn, 3, 3
MsgBox rs.RecordCount '显示表里的记录数
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1 '读一行数据
List1.AddItem rs.Fields.Item(i).Name '读出数据,添加到list1里
If Not IsNull(rs.Fields.Item(i).Value) Then
List2.AddItem rs.Fields.Item(i).Value
Else
rs.Update
rs.Fields.Item(i).Value = i ' "peter" &