将VB运行得到的数据保存到Word表格中

教师节快乐

今天是教师节，向广大教师说声：您辛苦了！

VB存入Word

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

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

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

将VB保存到Word运行图

程序代码：

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= "C:\Users\Administrator.USER-20150316UY\Desktop\test.doc"

Setwd=wa.Documents.Open(filename)

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

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

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

End Sub

Private Sub Form_Load()

Text2 = Date

Text3 = "今天是教师节"

Text4 = Time

End Sub

当然这只是最基础的把VB内容保存到Word中而已，真正关键的用处还是在于VB与数据库结合查询得到的数据保存到Word中。

VB与数据库结合开发的超市收银系统

视频演示