For i = 0 To CurrentDb.TableDefs.Count - 1
  If "EXPORT" = CurrentDb.TableDefs(i).Name Then   '如果EXPORT真的存在了，这一句就会报错！
    DoCmd.DeleteObject acTable, "EXPORT"
  End If
Next

拜托各位

For i = 0 To CurrentDb.TableDefs.Count - 1
  If "EXPORT" = CurrentDb.TableDefs(i).Name Then   '如果EXPORT真的存在了，这一句就会报错！
    DoCmd.DeleteObject acTable, "EXPORT"
    exit for      ‘加上这句就好了
  End If
Next

可以不用遍历,直接用on Error语句更直接.

Sub main_DeleteTab调用示例()
Dim t1 As String, result As Boolean

t1 = "档期定义"   '要删除的表名
result = DropTable(t1)  '返回逻辑值

End Sub

Public Function DropTable(ByVal tabName As String) As Boolean
On Error GoTo err1:
DoCmd.DeleteObject acTable, tabName
DropTable = True

err1:
Exit Function

End Function

如果不是删除表,只是单纯想知道表是否存在,可以这样:

Public Function FindTable(ByVal tabName As String) As Boolean
Dim tab1 As TableDef
On Error GoTo err1:
Set tab1 = CurrentDb.TableDefs(tabName)
FindTable = True

err1:
Exit Function

End Function

我是初学，您写的代码我没看明白