エクセルデータをAccessに取り込む時のコツ

質問

いつもお世話になっております。

Access2000（ＯＳはWindowsXP）上にボタンを作り、これをクリックするとExcelデータを自動的にインポートするプログラムを作りました。

プログラムはインターネットを調べて、下記のように書きました。

これはこれで使えるのですが、現在のプログラムの記述では、今回エクセルデータをインポートすると、前回取り込んでいたエクセルデータが一旦削除され、今回取り込んだエクセルデータに置き換わります。

これを、前回取り込んだエクセルデータに、今回取り込んだエクセルデータが追加されるような形になれば、より便利に使えるので、その記述の仕方が分かる方がおられましたら、是非教えて頂きたく思います。

どうぞ宜しくお願い致します。

（記述したプログラム）
--------------------------------------------------------------------------------
Dim strac As String
Dim strxls As String
Dim strrange As String
Dim strmsg As String

strac = "T_回収お客様情報" 'Accessテーブルを指定

strxls = "C:\回収お客様情報.xls" 'エクセルファイルを指定

strmsg = "エクセルファイル" & strxls & "を、" & strac & _
"という名前のファイルとして、データ転送を行います。" & Chr(13) & Chr(13) & _
"よろしければ、ＯＫをクリックしてください。" 'MsgBoxのメッセージ

DoCmd.DeleteObject acTable, strac 'テーブルを削除

If MsgBox(strmsg, vbOKCancel, "Microsoft Access Club") = vbOK Then

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
strac, strxls, True

MsgBox "データ入力は、正常に完了しました。"

End If

Exit Sub
--------------------------------------------------------------------------------

回答No.1

nicotinism · ベストアンサー

DoCmd.DeleteObject acTable, strac 'テーブルを削除
↑をコメント行にしてみたら？

お礼

ご指示のように変更したら、無事追加できました。

どうもありがとうございました。