如何将数据库查询的结果输出到word文档中，或是普通文本中

Question

我用这样的方法往文件里面写
fnum = FreeFile()
openfile = "d:\test.txt"
Open openfile For Append As #fnum
Print #fnum, rst.Fields.Item(0)
为什么第一次执行时只建了一个空的文件，第二次执行后才写进了内容？
另外怎样输出才能使test.txt具备一定的格式

Answer 1

是不是可以试试增加一个richtextbox控件，将查询内容保存到临时文件，然后用richtextbox打开。richtextbox的保存格式可为*.rtf，*.rtf是可以用word打开的。
——我是菜鸟，笨方法。

Answer 2

用VBA,具体方法参阅“问专家”网站，或者自己直接在Word下的工具下的宏去试一下，
用录制宏的方法，查看某种Word操作的脚本，
再在VB工程菜单中引用Microsoft Word Library 9.0，用创建对象方法CreateObject()，
将宏中的语句Copy过来，几乎直接就可以用了。

Answer 3

推荐一个表格控件VSflex Grid,支持将表格中的内容保存到文本文件及Excel文件.