VB 窗体内的数据怎么输出报告到word中

2025-03-01 18:21:41

推荐回答（1个）

回答（1）：

Private Sub cmdword_Click()
Dim sqlstr As String
Dim rpTitle As String

Set db = OpenDatabase("students.mdb")
sqlstr = "select * from Info"
rpTitle = "通讯录"

Call GenerateReport(sqlstr, rpTitle)

End Sub
---------------------------------------------------------------
Private Sub GenerateReport(sqlstr As String, rpTitle As String)
Dim app As New Word.Application
Dim doc As Word.Document
Dim sel As Word.Selection
Dim tbl As Word.Table
Dim RD As Recordset
Dim i, j As Integer

app.Visible = True
app.Documents.Add
docname = app.ActiveDocument.Name
Set doc = app.Documents(docname)
Set courseinfo = db.OpenRecordset(sqlstr, dbOpenSnapshot, ReadOnly)

Set sel = app.Selection
With sel
.Font.Size = 30
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.InsertAfter rpTitle
.InsertParagraphAfter
.InsertParagraphAfter
.EndOf
End With

sel.Font.Size = 10
If courseinfo.RecordCount > 0 Then
courseinfo.MoveLast

sel.MoveEnd
Set tbl = sel.Tables.Add(sel.Range, courseinfo.RecordCount + 1, courseinfo.Fields.Count)
tbl.AutoFormat (36)
tbl.AllowAutoFit = True
tbl.Columns.AutoFit

With tbl
courseinfo.MoveFirst
For j = 1 To .Columns.Count
.Cell(1, j).Range.Font.Bold = True
.Cell(1, j).Range.Text = courseinfo.Fields(j - 1).Name
Next j
For i = 2 To .Rows.Count
For j = 1 To .Columns.Count
.Cell(i, j).Range.Text = courseinfo.Fields(j - 1).Value
Next j
courseinfo.MoveNext
Next i
End With
Else
MsgBox "no record!!!", vbOKOnly
End If

sel.GoToNext (wdGoToTable)
sel.Document.Range.InsertParagraphAfter
sel.Document.Range.InsertAfter Date

courseinfo.Close
End Sub

最新问答

在中小型的超市做红酒代理怎么样？

网球王子为什么还要分有什么剧场版TV版........我搞不清楚啊有谁帮忙讲解一下

农历腊月16还有几天

女性身高168厘米，体重72斤，算胖吗？怎么减肥？

恒大与上港比赛什么时候比

请问广州恒大厉害吗？

武汉钓鱼地方有哪些

单纯GDP总量反映的是什么人均GDP反映的

中考承诺班的保障从何而来？

为什么tuborC 2.0 一个小程序编译连接都无错误，按ctrl+F9后界面自动关了呢？