使用VB编程读写WORD表格中数据一例
Uses VB to Program in the Read-write WORD form a Data Example
WANG Li-tao
(Changchun Measures Examination test Technical institute, Changchun 130012, China)
: This article showed through an example uses VB6.0 to transfer the WORD documents one method, realized the programming to read in the WORD documents form the data, and read in the ACCESS database, with produced a form by the programmed control in the WORD documents, read in the WORD documents the database in data. 1 工作中遇到的问题和解决的方案
我所在单位的局域网机房,有两个机柜,内部放置交换机,路由器等网络设备,两个机柜分别为内网机柜和外网机柜,内网为单位内部使用,不与INTERNET网连接,外网为连接INTERNET互联网的网。我们单位的特殊情况是刚开始建设机房时,交换机的数量少,所以有许多房间并没有连通网络,而是在需要时在机房将端口与交换机连通。机房交换机的端口号与房间号的对应关系经常变化,增加了维护的难度。有时只是某一个节点出现接触不好等问题,却需要检查多个点,,浪费了时间。刚开始时只有一个局
域网布线图,后来制作了房间号,机房交换机端口号,机柜线架号三者之间的对照表,通过机房交换机指示灯的亮灭、闪烁等判断某一个房间的计算机是否已经与机柜中的交换机连通,从而有针对性地解决网络连通问题。房间号、机房交换机端口号、机柜线架号三者之间的对照表原先是WORD 表格格式的,比较直观,但是查找和维护有些不方便,故障排除速度慢,有时要再查局域网布线图才能解决问题,于是想到编一程序把两种WORD表格中数据导出到一个ACCESS数据库中,使之合二为一,再编一个软件来操作数据库,从而解决查找和维护难的问题。 2 程序设计
本程序的功能有两个,一是从WORD文档表格中读出所需要的数据形成数据库,二是从数据库中读出数据,写入另一个WORD文档表格中。数据库使用ACCESS2000,开发软件的程序语言用VISUAL BASIC6.0。
2.1 对读取数据的WORD文档表格的格式说明
需要读取数据的表格有两种格式,分别在两个WORD文件中。如下面的示意图所示,第一种格式是如表格1所示局域网布线图,它表示全部的房间号与机房线架号之间的对应关系,表格的一行代表一个线架,行列交叉点的单元格为一个房间号,表示有一个机房线架的端口连接到一个房间的网络端口上。应用本程序时,表格的行和列的数量不限制。第二种格式是如表格2所示的对照表 ,一个表格代表一台交换机。实际有多台交换机,就有多个相
同格式的表格。但是表格的行和列的数量不限制。以表格中第一个单元格为例,第一行代表交接机端口号,例如4-1代表第四台交换机的第一个端口,第二行为房间号,第三行为机柜线架号,例如8-18代表第八个线架的第18个端口,这样就可以查到交换机、房间号、机柜线架号三者之间的关系。需要注意,在应用本程序读取时,这两种表格必须不能同时在同一个WORD 文档中,才能有正确的读取结果。 2.2 数据库的结构
数据库采用ACCESS2000, 建立一个数据库名称为NW1.MDB,在这个数据库中建立两个数据表,分别为NW1和WW1 ,其中NW1用于存放内部网数据,WW1用于存放外部网数据。两个表的结构相同,都只有4个字符型字段。分别为房间号,机架号,交换机号,状态备注。 本文只对WW1数据表进行操作。
2.3 使用VB 编程读取WORD表格中数据,并存入ACCESS数据库中
VB调用word方法有多种,这里采用OLE自动化方法。主要是定义一个OBJECT(对象)类型的变量,再把WORD对象赋值给对象变量,由于WORD文档中的各种元素例如文档、段落、书签或单个的字符等都可以作为对象调用所以就可以通过层层调用,达到控制WORD的目的。本程序使用一个窗体,窗体中所需要的控件名称和用途列表如表3。
2.3.1 对表格1中数据进行读取