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

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