巧用VB自动生成Word报表.pdf
《巧用VB自动生成Word报表.pdf》由会员分享，可在线阅读，更多相关《巧用VB自动生成Word报表.pdf（1页珍藏版）》请在冰豆网上搜索。
巧用!
自动生成#$%&报表序号名称长度井深累计长度（表!
套管串结构表（套）尾*管类型：
）+,*构造：
）+-*井别：
）+.*）+/*油气田分）子*公司图-封面模板）+0*井）+1*套）尾*管固井施工设计西南石油学院计算机科学学院赖春红李建汤成兵本文通过一个实例，详细介绍如何利用!
调用#$%&自动生成表格，传入数据，自动生成固定格式的规范化报表。
!
封面设计!
引用2$%&：
要想在!
中调用#$%&，首先要打开!
“工程”菜单中的“引用”项目，并在该项目对话框中选定2$%&.（就可以了。
创建封面模板：
在2$%&中创建一个模板文档，设计报表封面，其格式是固定的，如图-所示，各横线位置上需要填入各种数据，可在模板各横线位置设置书签）按位置顺序书签依次命名为+-3+.3+,3+03+13+/34567，4567为下页起始位置*。
#对书签编程：
利用对书签的编程实现在规定位置插入数据。
代码如下：
897:
$4;69%:
?
752&A99AB#$%&CA99%:
?
752&D$=ABD$=E547F572&A99GH52#$%&CA997IJKL#5M59$%7C&$7K*2&A99C!
:
B:
+:
95PDD7）.（3.（*ABF:
4O5Q定义数组变量为单精度型D:
RB:
475%3SB:
475%+-GKB7%EKT+.GK探井K+,GKUV1WXKKK+0GKY-K+1GK,（KKK+/GK大庆K2&A99CF55=7:
$4CZ$N$#I7TG2&Z$N$S%S3H5TGK+-K2&A99CF55=7:
$4CN95N567N567TG+-2&A99CF55=7:
$4CZ$N$#I7TG2&Z$N$S%S3H5TGK+/K2&A99CF55=7:
$4CN95N567N567TG+/绘制规定格式表格以其中套管串结构表格）表-*为例，介绍如何绘制表格。
可以在2$%&中录制宏代码进行修改。
!
设置此表标题格式及内容2&A99CF55=7:
$4CZ$N$#I7TG2&Z$N$S%S3H5TGK4567KQ将光标移到下页起始位置2&A99CF55=7:
$4CF75G2&A99CA=7:
?
5D$=E547CF75B）K标题.K*Q设置文本类型为标题.）便于自动生成目录*2&A99CF5%O%9IBCB7CA:
O4547G2&A%O%9I57Q左对齐2&A99CF5%O%9IQ换行插入表格：
表格行列数可是常数也可是变量，若为变量需与数据库中的一致，便于参数传递。
此处举例行列数为常数的表格。
2&A99CA=7:
?
5D$=E547CN+5BCA&M4O5TG2&A99CF55=7:
$4CM4O53_HEM$2BTG/3HE$E4BTG13D5E7N+55I?
:
$%TG2&#$%&UN+55I?
:
$%3_AE7$a:
75I?
:
$%TG2&AE7$a:
7a:
565&Q在当前位置插入表格，/行，1列#确定表格格式2&A99CF55=7:
$4CN+5B）-*C$%55%5&#:
&7IG547:
575%BN$:
47B）1*Q设定第二列列宽为1=2&A99CF55=7:
$4CN+$:
47B）（CX*Q设定行宽为（CX=$设置表头内容：
表头字段分别为“序号、名称、长度）*、井深）*、累计长度）*”2&A99CF5%O%9IBCB7CA:
O4547G2&A%O%9I5475%Q文字居中显示2&A99CF55=7:
$4Cc$?
5M:
OI7d4:
7TG2&53$E47TG-Q右移一个单元格2&A99CF5%O%9IBCB7CA:
O4547G2&A%O%9I5475%2&A99CF55=7:
$4Cc$?
5M:
OI7d4:
7TG2&5:
95PDD7）R3S*传入到表格中#:
7I2&A99CF55=7:
$4CN+5B）-*a$%RG.N$/a$%SG-N$1C5:
95PDD7）R3S*H567eH567R;4&#:
7I其他各表可类似生成。
表-中数据变量设单精度默认值为（，所以表格中数据值全为（，若将数据库中变量导入后将会传入数据库实际数据。
$结束语在数据库应用系统中开发#$%&文档自动生成程序，可以实现以下功能：
文档自动生成；自动添加页眉页脚；目录自动生成；格式自动调整；文档格式大众化，便于传输与交流；对大文档、复杂表格处理具有明显优势：
可依用户要求智能化地生成风格各异的文档等等。
实践证明，在数据库应用系统开发中，用#$%&文档自动生成程序取代传统的数据库报表输出，使得开发的数据库应用系统的报表处理大大改观3优点突出，很值得推广。
开发经验!
升级会员 