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

AccessVBA開発

※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) 

おススメのSQL本はこちら

タイトルとURLをコピーしました