请问，EXCEL表导入ACCESS后，说表以存在怎么办

Question

Private Sub ExtoAc(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, True, "Excel 5.0")
    Call db.Execute("select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]")
    MsgBox "数据导入成功.", vbInformation, "Yams"
End Sub
导入后说表以存在，能不有强治复制法   

Answer 1

Set   db   =   OpenDatabase(sExcelPath,   True,   True,   "Excel   5.0 ") 
换成
Set   db   =   OpenDatabase(sExcelPath,   True,   false,   "Excel   5.0 ") 
或者
Set   db   =   OpenDatabase(sExcelPath,   false,   True,   "Excel   5.0 ") 
、
具体我记不清了~！
大概这个意思

Answer 2

删除这个表,然后再导入
    With db
        .Execute "drop table 表", , adCmdText
    End With

Answer 3

是哦,如果嫌枚举麻烦,就设一个 On Error RESUME NEXT ,这样在删除时如果没有这个表名也不会有问题.
hoho...