Microsoft Access 掲示板

Microsoft Access 掲示板

CSVファイル（文字コード：UTF-8)からデータを取得し、Accessのテーブルにデータを書き込むVBAコードが知りたい / 3

4 コメント
views
4 フォロー
3
hatena 2024/03/07 (木) 14:12:43

CSVファイルは、1行目が空白行、2行目が項目（データあり）、3行目からデータな形式になっており、実際にデータとして取得したいのは、3行目以降となります。

そのようなファイルはCSVファイルとは言えません。
どのような経緯で入手したものか分かりませんが、入手先にCSVの仕様にそった形式にできないかまずは確認してみましょう。

それが不可能なら、
2行目以降はCSVの仕様に沿っているなら、1行目を削除して上書保存して、それを前回の回答の方法でインポートするとシンプルかつ高速に処理できると思います。

テキストファイルへの書き込み方法はOffice TANAKAさんのサイトにあります。

Office TANAKA - ファイルの操作[UTF-8形式のテキストファイルに書き込む]

1行目の削除は下記のコードでできます。

    Dim pos As Long
    pos = InStr(buf, vbCrLf)
    buf = Mid(buf, pos + 2)
通報 ...