Accessへのエクセルデータインポート
環境：Access2000/WinXP
アクセス2000の特定テーブルへ、エクセルデータをインポートするよう組んだのですが、新しくデータを追加すると、これより前に入っていたデータがレコードを残して消えてしまいました。
新規データを追加した際にただの追加としたいのですがどこがおかしいのでしょうか。
Private Sub データ登録_Click()
Dim objExcel As Object
Dim varFilePath As Variant
Dim bln As Boolean
Dim varac As Variant
Dim varxls As Variant
Dim strrange As String
Dim strmsg As String
varac = "受講者情報一覧"
Set objExcel = CreateObject("Excel.Application")
varFilePath = objExcel.GetOpenFilename("Microsfot Exel (*.xls), *.xls", , "xls選択")
If varFilePath <> False Then
varxls = varFilePath
Else
Exit Sub
End If
Set objExcel = Nothing
varxls = varFilePath
strrange = ""
strmsg = "Excelファイル" & varxls & " を、Accessテーブル " & varac & "へ、インポートします。"
DoCmd.DeleteObject acTable, varac
If MsgBox(strmsg, vbOKCancel) = vbOK Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, varac, varxls, True
MsgBox "正常にインポート完了しました。"
End If
Exit Sub
エラー:
MsgBox "予期せぬエラーが発生しました。" & Chr(13) & "エラー番号：" & Err.Number & Chr(13) & _
"エラー内容：" & Err.Description, vbCritical
Exit Sub
End Sub
お礼
例文そのまま使っていたので見落としてました； ありがとうございます。