能否用Excel去把Access的某列统计

xhjczx

能否用Excel的某一单元格（如A1）去把Access的某列（如字段1）里的数字求和。教教我吧！谢谢！

红池坝

Sub suma()
Dim conn As New ADODB.Connection, connstr As String, db As String, rs As New ADODB.Recordset,

db = "C:\db1.mdb"
connstr = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
rs.Open "select * from 表1", conn, 1, 3

If rs.EOF And rs.BOF Then
    MsgBox "无记录"
Else
    Do Until rs.EOF
    Worksheets("Sheet2").Cells(1, 1).Value = Worksheets("Sheet2").Cells(1, 1).Value ＋rs.files(1)
    rs.MoveNext
    Loop
End If

End sub

tanjh

如果在EXCEL2000中，用SQL.REQUEST函数即可实现，不必写代码。[em05]