UC知道VB 窗体内的数据怎么输出报告到word中
来源：百度知道 编辑：UC知道 时间：2024/05/31 19:19:33
VB 窗体内的数据怎么输出报告到word中，我在form1、2等里面有text1，2，3，4以及msflexgrid1，2等，现在我点击Cmd按钮，就可以把这些text的数据按顺序放到word的表格中，msflexgrid1，2里的数据按照表格的形式输出。最后形成一个word文档报告？
高手们请帮做一下，需要详细代码？
或者例子！
问题补充：需要一个详细的例子
那些引用word.application对象我都会 关键是我怎么把这些东西写到word的表格里！？
最好高手能给一些代码 ！
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(