怎么将一个Excel数据文件批量导入Access数据库的一个表中

如何将一个Excel数据文件批量导入Access数据库的一个表中
各位有这样有关的实例吗？要选择路径的
[最优解释]
’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String
    
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"
    
    sPath = App.Path + "\backup.xls"
    If Dir(sPath) <> "" Then
        Kill sPath
    Else
    
    Call db.Execute("select * into Sheet1  In '" & sPath & "' 'excel 8.0;' from 表1")
        MsgBox "导出成功", vbOKOnly, "提示"
    End If
    
    db.Close
    Set db = Nothing
End Sub

Private Sub Command2_Click()
    '从excel导出到 access
   Dim db As New ADODB.Connection
    Dim sPath As String
    
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"
    
    sPath = App.Path + "\backup.xls"
    Call db.Execute("select * into Table4 From [Sheet1$]  In '" & sPath & "' 'excel 8.0;'")
        
    db.Close
    Set db = Nothing
End Sub

[其他解释]
朋友，能不能把实例文件发到我邮箱 6906937@qq.com,我的工程差这一部才能往下做，很着急，万分感激
百分百送分加谢谢
[其他解释]
怎么我 Command1_Click()
之后\backup.xls就没有了
[其他解释]
 Command2_Click()
有问题
[其他解释]
有啥问题？
[其他解释]
Table4已存在