将数据输出到word文档形式,如何实现?

xzjxu 2010-03-12 08:15:20
最好能具体点,给个例子
...全文
146 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinaboyzyq 2010-04-01
  • 打赏
  • 举报
回复
up~
LWMWORK 2010-03-13
  • 打赏
  • 举报
回复
sqlstr = "select * from table1"
Set rs = Cnn.Execute(sqlstr)
For i = 0 To 2
.Cell(1, i + 2).Range.Text = rs.fields(0)
.Cell(2, i + 2).Range.Text = rs.fields(1)
.Cell(3, i + 2).Range.Text = rs.fields(2)
rs.movenext
Next
LWMWORK 2010-03-13
  • 打赏
  • 举报
回复

Set wdTab = wdDoc.Tables.Add(wdDoc.Bookmarks("table1").Range, 4, 10, DefaultTableBehavior:=1, AutoFitBehavior:=0)
With wdTab
.Range.Font.name = "宋体"
.Range.Font.Size = 7.5
.Range.ParagraphFormat.LineSpacingRule = 4
.Range.ParagraphFormat.LineSpacing = 12
.Range.ParagraphFormat.Alignment = 1
.Range.ParagraphFormat.WordWrap = True
.Cell(1, 1).Range.Text = "项目"
.Cell(2, 1).Range.Text = "a"
.Cell(3, 1).Range.Text = "b"
.Cell(4, 1).Range.Text = "%"
For i = 0 To 2
sqlstr = "select * from table1"
Set rs = Cnn.Execute(sqlstr)
.Cell(1, i + 2).Range.Text = rs.fields(0)
.Cell(2, i + 2).Range.Text = rs.fields(1)
.Cell(3, i + 2).Range.Text = rs.fields(2)
Next
End With
贝隆 2010-03-12
  • 打赏
  • 举报
回复
孤独剑_LPZ 2010-03-12
  • 打赏
  • 举报
回复
objWD.Application.Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
objWD.Application.Selection.Font.Size = 14
objWD.Application.Selection.Font.Name = "宋体"

其它的自己搜吧
xzjxu 2010-03-12
  • 打赏
  • 举报
回复
3楼,你好
你说的是我需要的,但格式如何设置?比如:字体,大小,居中对齐,等
孤独剑_LPZ 2010-03-12
  • 打赏
  • 举报
回复
用word.application对象,注意要先引用word 11.0 (word 2003,如果是2007版,引用对象word 12.0)

Dim objWD As Word.Application
' Set the variable (runs new instance of Word.)
Set objWD = CreateObject("Word.Application")
' Add a new document.
objWD.Documents.Add
' Add some text.
objWD.Selection.TypeText "This is some text."
' Save the document.
objWD.ActiveDocument.SaveAs filename:="mydoc.doc"
' Quit Word.
objWD.Quit
' Clear the variable from memory.
Set objWD = Nothing
threenewbee 2010-03-12
  • 打赏
  • 举报
回复
调用word vba。

参考:http://www.google.cn/search?hl=zh-CN&source=hp&q=vb6+%E7%94%9F%E6%88%90+word&aq=f&aqi=g1&aql=&oq=

当然也可以使用richedit实现简单的文档。
bcrun 2010-03-12
  • 打赏
  • 举报
回复
不解,啥数据,文本?图片?WORD文档啥格式,是可createobject("word.application")来创建吗

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧