如何写vb代码把数据库表的内容格式化输出到word中？

Question

我要做一个课表，
数据库中已经有了相应的记录了，
我如何把数据库中的内容格式化为一个 7×5 的表格到word中？

Answer 1

怎么不用Excel呢？
1.从数据库取得数据集recordset
引用excel object library
2. dim book as excel.workbook
   set book = getobject("c:\test.xls);
book.worksheets(1).range("A1").value = recordset.field().value用循环遍历所有记录，用上面的办法写到excel指定的单元格中 

Answer 2

我要输出到word是为了方便打印，我要求的格式化效果如图下图所示，如果在excel中好像不能这么安排版面http://www.kuaiyi.cn/lyz/course.bmp

Answer 3

用HTML生成一个表格,用CSS设置格式
文件名另存为".doc"

Answer 4

给你部分代码，应该能够解决你的问题
前提是做一个word的模版，其中有你要的格式和表格中的book下列代码实现把数据库中的内容输入到word的表格中，每输入一行后，
程序自动添加新的一行,程序中右移的目的就是切换表格，重新填充AdoRs.Open strSQl, gadoConn, adOpenKeyset, adLockOptimisticWordTemps.Documents.Add App.Path + "\财务核算表.dot", False '开始模板 ""
 WordTemps.Selection.MoveDown Count:=2 '下移2行
 WordTemps.Selection.MoveLeft unit:=wdCharacter, Count:=4 '左移4格
 '移到第一格
 Do While AdoRs.EOF = False
     i = i + 1
 WordTemps.Selection.TypeText i
 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移1
 WordTemps.Selection.TypeText AdoRs2!合同编号
 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移1
 WordTemps.Selection.TypeText "1"
 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移1
 WordTemps.Selection.TypeText AdoRs2!单位名称 & ""
           
 AdoRs.MoveNext
        
 WordTemps.Selection.InsertRowsBelow 1
Loop

Answer 5

能不能发给我一个完整的例子的vb源代码，
我的信箱 [email protected]多谢了