DBF数据库如何批量转Word文档?

来源：本站整理作者：梦在深巷时间：2014-10-27 07:44:15

DBF数据库中的数据怎样转到WORD文档中?手工进行复制粘贴需要耗费不少时间精力，其实，一段小小的代码可以解决问题。你只需照搬即可。下面就为你详细介绍DBF数据库批量转Word文档教程。

笔者在近期的工作中，定期需要对一些文档信息进行归类整理，并利用Visual FoxPro 制作成DBF数据表文件，同时还需要根据该数据表导出Excel文档，并且制作Word文档信息表进行打印输出。由于DBF数据表的表结构以及Word文档中表格字段都是固定的，加上每次整理的文档信息数量颇大，手工进行复制粘贴需要耗费不少时间精力，因此笔者编写了一个实现批量复制的小程序，即实现DBF数据到Word文档表格的自动输出。

程序开发环境为：VB6.0，Foxpro 6.0，Word 2003。

程序应用的相关技术有：ADO( (ActiveX Data Objects) )、OLE(Object Linking and Embedding，对象连接与嵌入)。

程序实现的基本思路是，通过ADO访问DBF数据表，获取数据表内容，并将其写入固定格式的Word文档表格。

使用到的主要对象有 ADODB.Connection、ADODB.Recordset，Word.Application、Word.Acttivedocument、Word.Range等。

通过ADO实现DBF数据表的访问，VB代码如下：

Dim cn As New ADODB.Connection

cn.ConnectionTimeout = 15

cn.ConnectionString = "Provider=MSDASQL;" & _

"Driver={Microsoft Visual Foxpro Driver};" & _

"SourceType=DBF;" & _

"SourceDB=" & dbfpath

cn.Open

实现DBF数据表的数据获取，VB代码如下：

Private rec As Variant

Dim rs As ADODB.Recordset

et rs = New ADODB.Recordset

Dim sqlstr As String

sqlstr = "select * from " & dbfname

rs.Open sqlstr, cn, adOpenStatic, adLockPessimistic

rec = rs.GetRows(n)

通过OLE实现打开Word文档，VB代码如下：

Private objWD As word.Application

Set objWD = CreateObject("Word.Application")

objWD.Documents.Open newfile ‘newfile 为文件名

实现Word文档表格内容的填写，VB代码如下：

ActiveDocument.Tables.Item(i).Cell(j, wordcol).Range.Text = rec(j, i - 1)

(说明：rec 是一个存储 Recordset数据集中数据的多维数组)

说明：为方便使用，所有相关代码(如图)也可到http://iask.sina.com.cn/u/ish?uid=1704202287下载。

DBF数据库如何批量转Word文档?

本周热门

1

如何删除Word中"删不掉"的空白页 2016/10/29
2

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
3

word怎么打印小抄?word小抄排版缩印教程 2017/03/16
4

怎么设置不同页眉?word页眉每页不同设置方法介绍 2013/09/16
5

如何将word改为 utf-8编码? 2016/11/07
6

word表格不能编辑的原因,怎么解决? 2016/07/11
7

word中不用回车怎么换行 2017/04/06
8

word怎么在方框里面填数字 2017/04/10

本月热门

1

如何删除Word中"删不掉"的空白页 2016/10/29
2

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
3

word表格不能编辑的原因,怎么解决? 2016/07/11
4

如何将word改为 utf-8编码? 2016/11/07
5

怎么设置不同页眉?word页眉每页不同设置方法介绍 2013/09/16
6

Word中各种通配符^?.^#.^$.^&等等的使用 2013/06/01
7

编辑word时无法选中文字怎么办 2017/04/11
8

WORD文档怎么在字母的正上方加上符号 2016/07/30
9

word左键无法选择文字怎么办? 2016/07/29
10

word怎么打印小抄?word小抄排版缩印教程 2017/03/16

DBF数据库如何批量转Word文档?

相关推荐

本周热门

本月热门