Vba 写入循环末尾第一行中的文件

我有一个简单的问题，在读取记录集并在循环结束时写入ti文件后，我需要在第一行（行计数）代码中写入，如下所示：

   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

我不知道如何在文件“C:\filename.csv”的第一行添加头

---

提前感谢

Afaik，记录集中没有每个

字段的集合。Name

。相反，您必须循环遍历集合

字段

，并获得每个项

.Name

-属性，如下所示：

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

显然有点奇怪，bc，你知道，VBA中基于

0的

数组

---

希望有帮助。

好的，记录集中没有每个

字段的集合。Name

。相反，您必须循环遍历集合

字段

，并获得每个项

.Name

-属性，如下所示：

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

显然有点奇怪，bc，你知道，VBA中基于

0的

数组

---

希望对您有所帮助。

我找到了执行此任务的代码-将其添加到Loop命令下面：

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

资料来源：

---

我找到了执行此任务的代码-将其添加到Loop命令的正下方：

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

资料来源：

---

您是否可以先移到记录集的末尾，再移回到前面（

rst.MoveLast

，然后再移到

rst.MoveFirst

），然后获取

rst.RecordCount

—然后可以先添加标题。您是否可以先移到记录集的末尾，再移回到前面（

rst.MoveLast

后接

rst.MoveFirst

）然后得到

rst.RecordCount

-你可以先添加标题。你好，Darren，上面的代码工作得很好。它只是在请求第一行时创建了一些特殊字符，你知道如何删除它吗！谢谢，我不确定-我试着用记事本、记事本++和写字板打开我的测试文件，但没有在上面看到任何特殊字符他第一行。你好，达伦，上面的代码工作得很好。它只是在第一行乞讨时创建了一些特殊字符，知道如何删除它吗！谢谢教授，我不确定-我试着用记事本、记事本++和写字板打开我的测试文件，但在第一行没有看到任何特殊字符。