ループの最後の最初の行にファイルに書き込み

Question

私は簡単な質問をしています。レコードセットから読み込み、ループの最後にtiファイルを書き込んだ後、次のように最初の行（行数）コードに書きます：

私は「C：\ filename.csv」ファイルの1行目にヘッダを追加する方法を

sFileName = "C:\filename.csv" 

RowCount = 0 
Open sFileNameFor Output As #1 
Do While Not rst.EOF 
    'Print #1, rst!Name 
    Print #1, rst.Fields(0).Value & "|" & rst.Fields(1) ... rst.Fields(n).Value 
    RowCount = RowCount + 1 
    rst.MoveNext 
Loop 
    '--header and rowcount 
     Print #1, "Header Line" & RowCount 

を見つけるわけではない事前

Answer 1

私は仕事をしていません。このコードは見つから - ちょうどループ命令の下にそれを追加する：

Dim sFileContents As String 

Close #1 
Open sFileNameFor For Binary As 1 
sFileContents = Space$(LOF(1)) 
Get #1, 1, sFileContents 
Put #1, 1, "Header Line " & RowCount & vbCrLf 
Put #1, , sFileContents 
Close #1 

出典： http://www.pcreview.co.uk/threads/how-write-into-text-file-at-first-and-last-line-with-excel-vba.4046562/

Answer 2

私の知る限りで

おかげで、レコードセット内のすべてのField.Nameのないコレクションはありません。代わりに、コレクションFieldsをループに持っているので、などの各項目.Name -propertyを得る：

For i = 1 To rst.Fields.Count 
    Debug.Print rst.Fields(i - 1).Name 
Next i 

は持つことのうち、文字列を生成する、のは言わせて、このような何か：

Dim strHeader as String 
strHeader = rst.Fields(0).Name 
For i = 1 To rst.Fields.Count - 1 
    strHeader = strHeader & "|" & rst.Fields(i).Name 
Next i 

カウンティングiは明らかにちょっと変わっていますが、ご存知のように、VBAの配列は0-basedです。

希望に役立ちます。