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

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下载。


赞 (0)

相关推荐

  • 怎么批量导出Word文档中所有图片

      怎么批量导出Word文档中所有图片 1.打开要导出图片的Word文档,单击"文件"按钮,选择"另存为",然后在计算机中选择一个存放位置,以"桌面& ...

  • 如何批量将Word文档中的图片进行编号

    如何批量将Word文档中的图片进行编号

    我们制作word文档时,不免会插入一些图片,如果这些图片不标好序号,就会特别杂乱,所以小编今天来说说怎样批量给图片编号的方法.具体如下:1. 首先,我们打开待编辑的Word文档.2. 接着,我们点击图 ...

  • 怎么批量删除Word文档里的回车（换行）符

    怎么批量删除Word文档里的回车（换行）符

    word文档中可能会出现许多的换行符,有的朋友觉得太繁杂想把它删除,怎么删除呢?小编为大家解答.具体如下:1. 第一步,请大家在自己的电脑中找到某[word]文档,点击将其打开,接着选择屏幕左上方的[ ...

  • 如何批量删除Word文档空行？

    如何批量删除Word文档空行？

    很多经常使用Word文档的用户常常会遇到文档中出现了很多莫名其妙的空行,但是不知道如何批量删除所有空行,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中需要删除空行的Wo ...

  • 怎么批量修改Word文档中的错别字

    怎么批量修改Word文档中的错别字

    我们在使用Word文档编辑文字的时候,难免会遇到输入错别字的情况,那么怎样才能批量修改文档中的错别字呢?一起来看看吧.1.首先打开电脑,找到桌面上的word文档,双击打开2.如图,进入文档主页面3. ...

  • 如何批量修改Word文档中的数字格式

    如何批量修改Word文档中的数字格式

    我们很多人都在使用Word文档进行编辑文字,如何批量修改Word文档中的数字格式的具体操作步骤.1.  首先打开电脑,进入桌面,找到Word软件2. 双击图标打开文档,并将想要设置的文件导入3. 在打 ...

  • 如何批量压缩Word文档中插入的较大图片

    如何批量压缩Word文档中插入的较大图片

    今天给大家介绍一下如何批量压缩Word文档中插入的较大图片的具体操作步骤.1. 首先打开电脑,找到想要压缩的Word文档,右键,选择属性,在打开的窗口中,可以看到该文档占了5.45MB空间.2. 然后 ...

  • 如何批量删除Word文档多余的空格

    如何批量删除Word文档多余的空格

    在工作.学习中很多地方都需要用到Word文档,有些用户打开文档后发现存在多余的空格,不知道如何批量删除,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开需要编辑的Word文档, ...

  • 如何批量删除Word文档空白段落

    如何批量删除Word文档空白段落

    Word是一种十分常用的文件类型,在编辑Word文档时常常会出现一些空白段落,有些用户不知道如何批量删除,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中需要编辑的Wor ...