用于检查MS ACCESS上是否存在表的VBA脚本，如果存在则删除

Sub DeleteTableIfExists(tableName As String)
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    
    Set db = CurrentDb
    
    ' 检查表是否存在
    For Each tbl In db.TableDefs
        If tbl.Name = tableName Then
            ' 删除表
            db.TableDefs.Delete tableName
            Exit For
        End If
    Next tbl
    
    Set tbl = Nothing
    Set db = Nothing
End Sub