在导入excel表时，想判断以前是否导入某表名，想删除已经有的表名

Dim ip As New  Importer
Dim tTable As  DataTable=DataTables("tmpx")
If ttable IsNot Nothing Then
  \'ttable.delete
End If
ip.SourcePath = "D:\\ProcStock\\数据库追加.xls"  \'指定数据文件
ip.SourceTableName = "20160718"  \'指定要导入的表
ip.NewTableName="tmpx" \' & tdate \'导入后的表名
ip.Format =  "Excel" \'指定导入格式
ip.Import()
Dim twin As WinForm.Form = Forms("excel导入")
Tables("excel导入_TableExcel").DataSource =DataTables("tmpx")

删除表，参考代码

If DataTables.Contains("表A") Then
    Dim Builder As New ADOXBuilder
    Builder.Open()
    With Builder
        .DeleteTable("表A")
    End With
    Builder.Close()
    DataTables.Unload("表A")
End If

http://www.foxtable.com/webhelp/scr/2122.htm