Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Access 2016)
CSVファイルをインポートしたいです。
投稿日時: 21/06/02 12:11:26
投稿者: やっほー

Access VBAで.CSVファイルをインポートしたいのですが、上手くできません。
ご指導をよろしくお願いいたします。
    Dim FileName As String
   
    With Application.FileDialog(1) 'msoFileDialogOpen
        .Title = "ブックの選択"
        .Filters.Clear
        .Filters.Add "Excel ブック", "*.xlsx; *.xlsm; *.xls"
    If .Show = 0 Then
        Exit Sub
    End If
        FileName = .SelectedItems(1)
    End With
   
    DoCmd.TransferSpreadsheet acImport, , "T_データ", FileName, True, ""

回答
投稿日時: 21/06/02 13:25:55
投稿者: sk

引用:
Access VBAで.CSVファイルをインポートしたい

引用:
.Filters.Add "Excel ブック", "*.xlsx; *.xlsm; *.xls"

.Filters.Add "CSV ファイル", "*.csv"
 
引用:
DoCmd.TransferSpreadsheet acImport, , "T_データ", FileName, True, ""

DoCmd.TransferText acImportDelim, "インポート定義名", "インポート先テーブル名", FileName, True
 
--------------------------------------------------------------------
 
テーブル/インポート定義の名前は適宜修正して下さい。

投稿日時: 21/06/02 13:42:00
投稿者: やっほー

>DoCmd.TransferText acImportDelim, "インポート定義名", "インポート先テーブル名", FileName, True
インポート定義名はどの様な名前を付ければ良いのでしょうか?無くても良いのでしょうか?
非常に恐縮です。
先頭行からデータ始まりなので、先頭行をフィールド名として使用したくない設定をしたいのですが、
どの様なにすれば宜しいでしょうか?

回答
投稿日時: 21/06/02 14:48:39
投稿者: sk

引用:
インポート定義名はどの様な名前を付ければ良いのでしょうか?

テキストインポートウィザードの実行中に作成した
インポート定義に付けた名前を記述して下さい。
(「保存済みのインポート操作」のことではない
 
インポート定義をまだ作成していない場合は、
以下の記事の「定義ファイルの保存とその活用」の項で
示されている手順に従い、適切なインポート定義を
作成して下さい。
 
初心者のための Office 講座 より:
https://hamachan.info/access2019-textimport/
 
引用:
先頭行からデータ始まりなので、先頭行をフィールド名として使用したくない

TransferText メソッドの第 5 引数 HasFieldNames に
True ではなく False を渡すようにして下さい。

投稿日時: 21/06/02 15:00:09
投稿者: やっほー

ありがとうございました!
解決しました。