Question

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

我正在使用的代码是：

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

检查工作表是否已存在Access

1 个答案: