求救，来者有分！

Question

查系统表
请看例子：if not CheckTableExist(log20032) then'check the table exist
Private Function CheckTableExist(TableName As String) As Boolean
    Dim recTemp As New ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "Select name from sysobjects where name = '" & VBA.Trim(TableName) & "'"
    recTemp.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
    
    If Not recTemp.EOF Then
        CheckTableExist = True
    Else
        CheckTableExist = False
    End If
    
    Set recTemp = Nothing
     
End Function

Answer 1

要不然你就直接先做：
1.删除，2.建表，3.导入不过每一步的捕错要写的细一些

Answer 2

算了，我把时间也加上，谢谢你！