【Access VBA】CSVファイルをAccessへインポートするコードを進化させたい

Question

1つのCSVファイルをAccessの1つのテーブルとしてコード内で特定したテーブル名でインポートする以下コードを改編したいと思っています。

同じフォルダ内に保存されている複数のCSVファイルを最初にまとめて選択し、１つのCSVファイルは１つのテーブルとして、また、テーブル名はCSVのファイル名でAccessへインポートされるようにしたいと思っています。

どうぞよろしくお願いいたします。

---

Private Sub コマンド0_DblClick(Cancel As Integer)

On Error GoTo エラー

Dim strpass As Variant
Dim intRslt_del As Integer
Dim intRslt_imp As Integer

strpass = GetFile("")
   
intRslt_del = MsgBox("データを消去します。", vbOKCancel)

If intRslt_del = 1 Then
    'OKボタンクリックの場合はデータ削除
    DoCmd.RunSQL "DELETE * FROM データ"
Else
    'キャンセルボタンクリックの場合は処理中止
    MsgBox ("処理を中止しました。")
    
    Exit Sub
End If

intRslt_imp = MsgBox(strpass + "をインポートします。", vbOKCancel)

If intRslt_imp = 1 Then
    '#OKボタンクリックの場合
    '#######################
    'エラーテーブルの削除
    Call Delete_ErrTable
    
    '#テキスト形式#
    DoCmd.TransferText acImportDelim, "データインポート定義", "データ", strpass
    
    'エラーテーブルチェック
    Call Check_ErrTable
    
    MsgBox ("ｲﾝﾎﾟｰﾄが終了しました。")

Else
    'キャンセルボタンクリックの場合は処理中止
    MsgBox ("処理を中止しました。")
    
End If

Exit Sub

エラー:

If Err.Number = -2147352567 Or Err.Number = 3315 Then
    MsgBox "パスを特定する処理を取り消します。", , "管理者"
Else
    MsgBox "何か予期せぬエラーが発生しました。" & vbNewLine & _
            Err.Number & vbNewLine & _
            Err.Description, 16, "管理者"
End If

Exit Sub

End Sub

Comments

[Y.H.]

質問に記載されているコードでは「したいと思って」おられる事のどこまで実現できていて、何が実現できていないのでしょうか？また実現できていないのは何が問題となっていて実現できていないのでしょうか？

Answer 1

仕様が曖昧です。
まずは細かい仕様を明確に決めましょう。
曖昧のままではコードは書けません。
詳細な仕様を提示してください。

「同じフォルダ内に保存されている複数のCSVファイル」の同じフォルダとは何と同じなのか。
実行中のデータベースファイル(Accdb or MDB)と同じフォルダという意味でしょうか。

「最初にまとめて選択し」とは、具体的にどのように選択するのでしょうか。
ファイルダイアログでユーザーに複数選択させるのか、
リストボックスに表示させて選択させるのか、
それとも該当フォルダのCSVファイルすべてを対象とするのか、、、

呈示のコードでは事前にテーブルデータを削除しているが、
今回の場合は、インポートするCSVと同じ名前のテーブルのデータを削除してから、
インポートするのか。

複数のファイルを選択した後、ファイルごとにデータ削除、インポートの確認メッセージは必要か、
それとも一気に削除、インポートしていいのか。

などなど、もうすこし仕様を煮詰めてください。

Comments

[OORAN]

仕様に関して詳細記入できておらず、分かりにくく申し訳ありません。
詳細は以下の通りです。
どうぞよろしくお願い致します。

１）現在のコードですと「インポート」ボタンをダブルクリックするとファイルを選択するダイアログボックスが表示されるので、そこで対象データが保存されているフォルダを指定し、その指定したフォルダ内にあるインポートしたい複数のファイルを選択したいです。

２）元のテーブルデータの削除に関してですが、現在はテーブルはそのまま中のデータのみを削除して良いかのメッセージダイアログを表示させて確認しOKかキャンセルかを選択するようになっておりますが（OKを選択するとテーブルデータの削除が実行）、できれば削除したいテーブルを選択できるダイアログを表示させ、削除したいテーブルを選択し（複数ある場合は複数選択できるようにしたい）、OKすると選択したテーブル自体が（テーブルの構造を残して中のデータのみではなくテーブルごと）削除し、１）で選択した複数のファイルのデータをファイル毎に１つのテーブルとしてファイル名＝テーブル名としてインポートしたいです。