从 Excel vba 将记录集写入文本文件

Question

下面的代码可以正确工作并将记录集写入文本文件：

  Set rs = cnn.Execute(Sql)
  Dim objFSO As Object
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set txtfile = objFSO.CreateTextFile("d:\Test.txt", True)
  txtfile.Write rs.GetString

但是，文本文件中的输出是制表符分隔的。因为我希望文本文件中的字段用“|”分隔符号，上面最后一行替换为

txtfile.Write (rs.GetString(adClipString, , "|", , ""))

它显示运行时错误 3001，并显示参数类型错误、超出可接受范围、冲突等消息。如何解决该问题。

Answer 1

txtFile.Write rst.GetString(2, , "|") 解决了问题。

adClipString=2 根据文档。