CSVをテーブルにインポートしたあと、いくつかの項目を削除したデータを新規テーブルとしたい

Question

accessVBA超初心者です。

Private Sub btn取込_Click()
DoCmd.TransferText acImportDelim, , "テーブル１", "○○○.csv", True
End Sub

上記でCSVをいったんまるごとテーブル１に読み込むことはできました。

テーブル１には
[店コード][受付日][商品名][金額][発送先]の項目があるとして、
[受付日][商品名][金額]だけにしたデータを
テーブル２として新規で作りたいです。

クリックだけでここまで動いてくれるものなのかさえわからず…。

お恥ずかしいのですが、「○○で調べてみては」などでも構いませんので、
アドバイスいただけたらと思います。

↓↓↓ここから追記です↓↓↓----------------------

'---クリック時にCSVを新規テーブルに読込---
Private Sub Importcsv_Click()
On Error Resume Next
'変数定義

Dim dlg As Object, boolResult As Boolean
 
'オブジェクト変数にFileDialogオブジェクトを代入
Set dlg = Application.FileDialog(msoFileDialogOpen)

'FileDialogオブジェクトの各種プロパティを設定
With dlg
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "csvファイル", "*.csv"
    .Title = "取り込みたいCSVデータを選択してください"
    .ButtonName = "読み込む"
    .InitialFileName = "c:\temp\"
End With
    
'[ファイルを開く]ダイアログボックスを表示する
boolResult = dlg.Show

If boolResult Then
    MsgBox "読み込みました。"
    DoCmd.TransferText acImportDelim, , "テーブル1", dlg.SelectedItems(1), True

----＜このあたりに命令を書けばいいのでしょうか？＞----

Else
    MsgBox "キャンセルされました。"
End If

End sub

Answer 1

テーブル1からクエリを作成して、必要なフィールドだけ追加します。
そのクエリをテーブル作成クエリにして実行すればご希望のテーブルが作成できます。

ただ、あえてテーブル作成クエリにしなくても、必要なフィールドだけにしたクエリを保存しておいて、それを開けばご希望の結果はいつても得られます。クエリはテーブルと同じに扱えますので。

Comments

[romchro]

Dim Qdf As QueryDef, SQL As String
SQL = "SELECT 受付日,商品名,金額 FROM テーブル1"
Set Qdf = CurrentDb.CreateQueryDef("テーブル2", SQL)
Set Qdf = Nothing

こちらを使って、テーブルではなくクエリを作成しました。
ありがとうございます。わざわざテーブルにしなくてもよかったんですね！
賢くなりました！

Answer 2

テーブル２をあらかじめ作成しておいて、DoCmd.TransferTextの後で

    CurrentDb.Execute ("DELETE * FROM テーブル２")
    CurrentDb.Execute ("INSERT INTO テーブル２ SELECT 受付日, 商品名, 金額 FROM テーブル１")

でいかがでしょうか。

Comments

[romchro]

こちらについても調べさせてもらいました！
結果、テーブルにしなくてもよかったということに落ち着きました。
でも、クエリを作らずにこちらの方法もあると知れてよかったです。
ありがとうございました！

[romchro]

後学のために自分で試したメモです。

Dim dB As Database
Set dB = CurrentDb
dB.Execute "DELETE FROM テーブル2", dbFailOnError
dB.Execute "INSERT INTO テーブル2" & _
" SELECT 受付日,商品名,金額 FROM テーブル1", dbFailOnError
Set dB = Nothing

この記述でテーブル作成もできました。
※項目は残ってしまいますが、セルの中身は空白。