如何用VBA批量删除CSV导入时由于格式不对产生的《*

魔天天自在　发表于：2015-08-07 16:24:25 　

复制

如何用VBA批量删除CSV导入时由于格式不对产生的《*_导入错误》表？是DROP TABLE，不是DELETE某条记录

Top

魔天天自在发表于：2015-08-07 23:30:03

我用以下sql语句查询出符合条件的表明，如何用vba实现批量DROP？

SELECT MsysObjects.Name FROM MsysObjects WHERE (((MsysObjects.Name) Like "*导入错误"));
查询的结果：

Top

网行者发表于：2015-08-09 06:38:43

Public Sub del_tbl()
On Error Resume Next
Dim tbl As TableDef

Dim dbs As Database

Dim obl As String

Set dbs = CurrentDb

For Each tbl In dbs.TableDefs
If tbl.Name Like "*导入错误" Then
If MsgBox("你确认要删除[" & tbl.Name & "]表吗？" & vbNewLine & "删除后不可恢复！", vbYesNo + vbExclamation, "提示!!!!") = vbYes Then
DoCmd.DeleteObject acTable, tbl.Name
MsgBox "[" & tbl.Name & "]已删除", vbInformation, "提示:"
End If
End If
Next
End Sub

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何用VBA批量删除CSV导入时由于格式不对产生的《*_导入错误》表