エクセルテーブルをアクセステーブル取込む
エクセルで作成したテーブルデータを取り込むときに余分に空白のレコードが取り込まれてしまうんですが原因が分かりません。
下記コードで処理してます。
Dim strac As String
Dim strxls As String
Dim strrange As String
Dim strMsg As String
strac = "T_障害票マスタ" 'Accessテーブルを指定します。
strxls = テキスト0 'エクセルファイルを指定します。
strrange = "T_障害票!" 'データ入力のシート名とセル範囲を指定します。
strMsg = "エクセルファイル" & strxls & " を、Accessファイル " & strac & _
"として、データ入力を行います。" & _
"よろしければ、OKをクリックして下さい。" 'MsgBoxのメッセージ
If strxls = "" Then
MsgBox "ファイルを選択して下さい。" 'テキストボックスの確認
Exit Sub
End If
'DoCmd.DeleteObject acTable, strac 'テーブルを削除します。
If MsgBox(strMsg, vbOKCancel, "import") = vbOK Then
'最初のデータをフィールド名として使います。
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
strac, strxls, True, strrange
MsgBox "インポートは、正常に完了しました。"
End If
Exit Sub
なお取り込むテーブルデータはフィールド行を抜かして常に１レコードだけです。
アクセスでは既存のテーブルに保存してます。
詳しい方お願いします。
お礼
迅速な回答ありがとうございます。 助かりました。 こういうピンポイントな細かいことを知りたいときって、本当にこのサービスは便利で助かってます。