将数据附加到 CSV 文件的开头

Question

我正在开发 Access 应用程序，但遇到了以下问题。目前，我正在通过将查询导出为 CSV 文件来编写输出文件，但是该文件需要由较旧的数据库系统读取，并且需要包含一些标识数据的标题行。

我可以在 VBA 中毫无问题地构造此标题行的字符串，但我不太确定如何将其插入 CSV 文件的第一行，而不是附加在末尾。我怎样才能做到这一点/达到预期的结果？

Answer 1

打开文件，读取它，写入文件头，写回数据：

Dim data As String
Dim hF As Integer: hF = FreeFile()

Open "c:\path\foo.csv" For Input As #hF
   data = Input$(LOF(hF), #hF)
Close #hF

Open "c:\path\foo.csv" For Output As #hF
   Print #hF, "Header data here" & vbCrLf & data
Close #hF