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