怎样把EXCEL表批量导入到ACCESS中？？

Question

我需要简单点的程序，不能太复杂。
EXCEL表结构都是一样的。

Answer 1

单个表导入(把当前目录下的Excle的Sheet1导入到当前目录下的Access的Table1)：Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim rs2 As New ADODB.Recordset
    Dim i As Integer
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.xls;Extended Properties=""Excel 8.0;"""
    rs.CursorLocation = adUseClient
    rs.Open "select * from [Sheet1$]", cn, 1, 1
    
    cn2.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\Test.mdb;Uid=Admin;Pwd=;"
    rs2.Open "select * from table1", cn2, 1, 3
    
    While Not rs.EOF
        rs2.AddNew
        For i = 0 To rs2.Fields.Count - 1
            rs2(i) = rs(i)
        Next
        rs.MoveNext
    Wend
    rs2.UpdateBatch        Set rs2 = Nothing
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    cn2.Close
    Set cn2 = Nothing
End Sub