可以使用ado直接調(diào)用EXCEL的數(shù)據(jù)，而不需要使用ACCESS。 
    Dim oConn As New ADODB.Connection 
    Dim oRS As New ADODB.Recordset 
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
     "Data Source=C:\Book1.xls;" & _ 
     "Extended Properties=""Excel 8.0;""" 
    oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic '打開Sheet1，也可以是定義的名稱，或一個Range。 
    .. 
    .. 
    .. 
    oRS.Close 
    oConn.Close 
<END>