1

vbaスクリプトを使用して、いくつかのexcellワークシートを自動的にアクセスにインポートしようとしています。ただし、誰かがスクリプトを2回実行すると、データは既存のテーブルに追加されます。

私が使用しているコードは次のとおりです。

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

このテーブルがすでに存在するかどうかを確認する方法はありますか？存在する場合は、値を追加するだけでなく、既存のテーブルを削除または上書きして、新しいテーブルに置き換えますか？

4

1 に答える 1

2

インポートを実行する前に、テーブルをドロップするだけです。

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
于 2013-02-25T12:14:34.343 に答える