将数据输出到word文档形式，如何实现？

xzjxu 2010-03-12 08:15:20

最好能具体点，给个例子

...全文

149 9 打赏收藏转发到动态举报

写回复

用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

打赏
举报

http://download.csdn.net/source/1627134

孤独剑_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