ms-access - 检查工作表是否已存在 Access

Question

我正在尝试使用 vba 脚本自动将一些 Excel 工作表导入访问。但是，如果有人执行脚本两次，则数据将添加到已经存在的表中。

我正在使用的代码是这样的：

DoCmd.TransferSpreadsheet _
acImport, _
acSpreadsheetTypeExcel9, _
"DB_AlarmTest", _
"C:\Data\PLC_MOBZ\Test\Import\DB_AlarmTest.xlsx", _
True

有没有办法检查这个表是否已经存在，如果存在，删除或覆盖现有表并用新表替换它，而不是只添加值？

Answer 1

您可以在运行导入之前删除表：

On Error Resume Next
CurrentDb.Execute "DROP TABLE DB_AlarmTest"
On Error GoTo 0

DoCmd.TransferSpreadsheet _
    acImport, _
    acSpreadsheetTypeExcel9, _
    "DB_AlarmTest", _
    "C:\Data\PLC_MOBZ\Test\Import\DB_AlarmTest.xlsx", _
    True