我想写一个查询输出到文本文件使用文件系统对象。访问VBA无效的过程调用或参数
这是到目前为止我的代码:
Sub CreateAfile()
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
Dim objFile As Object, TextFile As Object
Set rs = CurrentDb.OpenRecordset("qryOutput")
Set objFile = CreateObject("Scripting.FileSystemObject")
Set TextFile = objFile.CreateTextFile("C:\Users\Documents\Test.txt", True)
rs.MoveFirst
Do Until rs.EOF
TextFile.WriteLine rs.Fields("field1").Value
rs.MoveNext
Loop
rs.Close
TextFile.Close
End Sub
我得到一个错误: “无效的过程调用或参数” 在行:TextFile.WriteLine rs.Fields( “字段1”)值
我在这里错过了什么?
请参阅http://stackoverflow.com/questions/9468488/writing-a-query-output-to-text-file-using-filesystemobject – Fionnuala 2012-02-27 21:20:30