※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