Dim rs As New Excel.Workbook '创建xls文件对象
Dim ds As New Excel.Worksheet ‘创建sheet表对象
Set rs = Workbooks.Open("c:\a.xls") '打开xls文件
For j = 1 To rs.Worksheets.Count '逐个打开所有sheet表
Set ds = rs.Worksheets(j) ‘操作相应的sheet表
For Row = 1 To 13
For col = 1 To 8 ‘操作相应的sheet表中的单元格,row为行,col为列
aa= ds.Cells(Row, col) ‘读出后将aa放到db(access)相应的表中的字段中即可。
next
next
next
以上就是对excel的基本操作,如需详细的说明,请查阅msdn2002版本。