AccessVBA CSVファイルの1行目に不要な文字列がある為、2行目からインポート

   

※1行目を削除すると、2行目にある見出しの行がそのままフィールド名として使えるようにしたい。

方法はいくつかあるけど、FileSystemObject (MSDN) を使う例だと、

    Dim fso, fromFile, toFile
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set fromFile = fso.OpenTextFile(“C:\hoge\text1.csv”, ForReading)
    Set toFile = fso.OpenTextFile(“C:\hoge\text2.csv”, ForWriting, True)
    fromFile.SkipLine ’ ここで1行進める
    toFile.Write fromFile.ReadAll
    fromFile.Close
    toFile.Close

FYI

ReadAll メソッド (MSDN) 

 - AccessVBA開発

AccessVBA CSVファイルの1行目に不要な文字列がある為、2行目からインポート | ちびrobo

在庫管理•販売管理•経理システム(AccessVBA、ExcelVBA)や簡単なアプリの作成もしています。同じ悩みを持つ方と情報を共有したいと思います。

Copyright© ちびrobo , 2021 All Rights Reserved.

WordPress Theme " Giraffe "