将VB实时运行的数据保存到Word文档实现！

VB编程，功能强大，易学实用！VB是世界上使用人数最多的编程语言之一，广泛应用在我们工作和社会生产活动的方方面面。

在当今信息技术日新月异的时代，编程语言的学习更是对自己的综合能力有很大影响，而VB因其可视化、面向对象、简单易学的特点是最适合学习的编程语言。

VB将数据存入Word

今天介绍一下如何编写VB代码，实现将VB运行得到的数据保存到Word表格中。

在之前的数据库开发系统讲解中，我们已经介绍了VB与Excel连接数据库的互相导入、导出及报表操作。

要实现在VB中操作Office软件，首先要引用相应的组件，继而创建相对应的对象及指定工作文件。

首先引用Word组件

提示；组件的版本由电脑所安装Office版本决定，小编用的是Office2010版本，这里显示的是14.0.

程序代码

Private Sub Form_Click()

    Dim wa As New Word.Application

    Dim wd As New Word.Document

    Dim filename As String

    Set wa = CreateObject('word.application')

    wa.Visible = False

    filename = 'D:\test.doc'  '将数据保存到文件表格中，此文件必须存在，表格要先插入好

    Setwd = wa.Documents.Open(filename)

    wd.Tables.Item(1).Cell(1, 1).Range.Text = Text1 

    wd.Tables.Item(1).Cell(1, 2).Range.Text = Text2

    wd.Tables.Item(1).Cell(1, 3).Range.Text = Text3

End Sub

Private Sub Form_Load()

    Text1 = Date

    Text2 = '这里是跟我学VB'

    Text3 = Time

End Sub

总结

本讲解只是最基础的把VB数据保存到Word文档中了，真正关键的用处还是在于VB与数据库结合查询得到的数据保存到Word中。

End