excel导入access

'excel导入access ,引用ADO
Private Sub Command1_Click()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    On Error Resume Next
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "/dbemp.mdb;" & "Persist Security Info=False"
    conn.Open
    conn.Execute "Drop Table [Emptable]"
    conn.Close
    ExportExcelSheetToAccess "Sheet1", "D:/Test.xls", "Emptable", "D:/dbemp.mdb"
End Sub

Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
    Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$]")
    MsgBox "导入成功！", vbInformation, "提示"
    'ReShow
End Sub

原帖地址:

http://topic.csdn.net/u/20091125/20/210a5287-3079-4e4d-9a08-02c9895154cc.html

见1楼我的回答

http://topic.csdn.net/u/20091126/18/b971a84f-72e0-48c8-b3e8-f2701354018a.html

参考6-7楼我的回答