Access(アクセス)でCSVファイルの2行目からインポートする方法

[asin:B01BM829D4:title]

CSVファイルの一行目のみをスキップして新しいファイルを作成して、

そのファイルを読み込むことで、元のファイルはそのままの状態で残すことが可能です。

 Sub CSV2VAL()

     Dim fSo As Object

     Dim buf As Variant

     Dim f As Object

     ' ファイルオブジェクト

     Set fSo = CreateObject("Scripting.FileSystemObject")

      ' 読み込み

     With fSo.GetFile("C:\work\元.csv").OpenAsTextStream

          .SkipLine

          buf = .readall

          .Close

     End With

     ' 書き込み　※ここで作成されたCSVファイルをインポートします。

     Set f = fSo.OpenTextFile("C:\work\新.csv", 2, True)

     f.Write buf

     f.Close

End Sub