2023年11月30日发(作者：)

维普资讯

ＶＣ中基于ＡｃｔｉｖｅＸ Ａｕｔｏｍａｔｉｏｎ 技术的ＥＸＥＣＬ报表实现

西南交通大学周小平陶莹杜轶波侯爱黎

Ｖｉｓｕａｌ ｃ＋＋具有强大的功能，许多软件都用来开发 在利用

ＶＣ开发软件时．经常要将数据输出报表，但、’ｃ中并没有提供

报表输出的功能模块，Ｅｘｃｅｌ具有强大的表格功能，如果将ＶＣ中

报表数据输出到Ｅｘｃｅｌ中或直接生成Ｅｘｃｅｌ报表文档，然后在

ｓＥｘｃｅｌＦｉｌｅ）：

ｉｆ（ｄａｒａｂａｓｅ．ＯｐｅｎＥｘ（ｓＳｑ１．ＣＤａｔａｂａｓｅ：：ｎｏＯｄｂｃＤｉａｌｏｇ））／／创建数据库

Ｉ即创建Ｅｘｃｅｌ文件）

（，／创建表结构（Ｋ，ＱＪ，Ｈ１，Ｑ１，Ｍ１２，Ｈ２，Ｑ２，Ｍ２２，Ｍ３：为字段名称，

ｓＳｑｌ＝“ＣＲＥＡＴＥ ＴＡＢＬＥ”＋ｓＴａｂｌｅＦｉｌｅ＋” （Ｋ ＴＥＸＴ，ＱＪ ＴＥＸＴ，

ＨＩ ＴＥＸＴ．Ｑｉ ＴＥＸＴ，Ｍ１２ ＴＥＸＴ，Ｈ２ ＴＥＸＴ，Ｑ２ ＴＥＸＴ，Ｍ２２ ＴＥＸＴ，Ｍ３ ＴＥｘ ”；

Ｅｘｃｅｌ中对该数据进行进一步的格式化处理等操作，是一个高效

便捷的途径：ＡｃｔｉｖｅＸ Ａｕｔｏｍａｔｉｏｎ是微软公司推出的一个技术标

准，该技术是ＯＬＥ技术的进一步扩展，允许应用程序之间相互

控制、相互调用。Ｅｘｃｅｌ将电子表格暴露为自动化对象，并具有处

理电子表格中的单元、行或列的接口，因此可利用Ｅｘｃｅｌ的

ＸｃｔｉｘｅＸ Ｍｌｔｏｍａｔｅ功能，ＶＣ编写０Ｉ Ｅ Ａｕｔｏｍａｔｉｏｎ的客户机，而让

，

ｄａｔａｂａｓｅ．ＥｘｅｃｕｔｅｓＱＬ（ｓｓｑ１）：／／创建新的Ｅｘｃｅｌ文件

ＣＳｔｒｉｎｇ ｓｔｒ；，ｍ

ｍ

Ｋ，ｍ

＿

Ｑｌ，ｍ—Ｈ１，ｍ＿Ｑ１，ｍ—Ｍ１２，ｍ＿Ｈ２，ｍ—Ｑ２，

Ｍ２２，ｍＭ３；

—

／／循环将ＶＣ中的报表数据写入Ｅｘｃｅｌ文件的单元格中。

ｆｏｒ（ｉｎｔ．．Ｏ：Ｉ＜ＨＬ ｄ．ＧｅｔＲｏｗｓ ０一ｌ；ｉ＋＋）

Ｅｘ（、ｅｌ作为ＯＬＥ Ａｕｔｏｍａｔｉｏｎ服务器，通过程序接口实现数据报表

到Ｅｘｃｅｌ

ｆ ｍ—Ｋ＝ｍ＿ｇｒｉｄ．ＧｅｔＴｅｘｔＭａｔｒｉｘ（ｉ＋１，１）；／／第１列数据

…

一

（其他列这里忽略）

１ Ｅｘｃｅｌ对象模型概述

要利用Ｅｘｃｅｌ的ＡｃｔｉｘｒｅＸ Ａｕｔｏｍａｔｅ功能，实现数据报表的输

出．必须与Ｅｘｃｅｌ对象模型提供的对象进行交互 Ｅｘｃｅｌ提供了数

／／建立写入Ｅｘｃｅｌ文件的ＳＱＬ语句

ｓＳｑｌ，Ｆｏｍｍｔ ＩＮＳＥＲＴ ＩＮＴＯ”＋ｓＴａｂｌｅＦｉｌｅ＋”（Ｋ，ＱＪ．Ｈ１，Ｑ１，Ｍ１２，Ｈ２，

Ｑ２，Ｍ２２、Ｍ３）ＶＡＬＵＥＳ（’％ｓ’，’％ｓ’．’％ｓ’，’％ｓ’．’％ｓ’．’％Ｓｔ＇％ｓ’，’％ｓ’，’％ｓ’）“，ｍ—Ｋ，

ｎｌ

百个可能需要与之交互的对象，下面只介绍编程中要用到的儿

个｛ｌｆ象

ＱＪ，ｍ—Ｈｌ，ｍ—Ｑ１，ｍ—Ｍ１２，ｍ—Ｈ２．ｍ＿Ｑ２，ｍ—Ｍ２２，ｍ—Ｍ３）；

ｄａｔｂａｓｅ．ａＥｘｅｃｕｔｅＳＱＬ（ｓＳｑ１）； ｝

）

Ａｐｐｌｉｃａｔｉｏｎ对象：Ａｐｐｌｉｃａｔｉｏｎ对象提供了大量有关正在运

行的应用程序、应用于该实例的选项以及在该实例中打开的当

前用户的对象的信息？②Ｗｏｒｋｂｏｏｋ对象：Ｗｏｒｋｂｏｏｋ类表示Ｅｘｃｅｌ

用程序内的单个工作簿 Ｗｏｒｋｓｈｅｅ！对象：虽然研ｒ …ｅｆ类

提供了大量成员．但大部分属性、方法和事件都与Ｗｏｒｋｂｏｏｋ类

提供的成员相同或相似：￣Ｒａｎｇｅ对象：Ｒａｎｇｅ对象表示一 单

元格、一行、…列、包含一个或多个单元格块

ＭｅｓｓａｇｅＢｏｘ（”Ｅｘｃｅｌ文件”＋ｓＥｘ（－ｅｌＦｉｌ ”输出成功！”，”输出到Ｅｘｃｅｌ

文件”）；／／输Ｈ１完成

１写入完成后Ｅｘｃｅｌ中的数据。

３定制模板写入方式

３．１ 利用Ｅｘｃｅｌ创建报表的模板文件

Ｅｘｃｅｌ具有强大的电子表格制作功能，利用其单元格的拆

分、合并和格式设定，可以方便、快捷地绘制空白表格文档，并可

以随时根据实际情况，重新设定报表格式，生成满足用户要求的

模板文件，实现各种复杂格式的报表。若需要改变表格格式，只

需要将模板文件稍加修改即可。程序将调用模板进行报表输出，

罔１为建立好的模板文件示例。非常重要的一点，就是打印标题

２直接生成新的Ｅｘｃｅｌ文档，将数据写入

生ｒＪ艾Ｅｘｔ－ｅｌ报表最简单的方式．就是在ＶＣ中，通过程序创

建一个新的Ｅｘｃｅｌ文件，然后直接将报表数据输出到该Ｅｘｃｅｌ文

件中．实现代码如下：

／／功能：创建新的Ｅｘｃｅｌ文件，并将报表数据输出到泫文件中

、ｏｉｄ ＣＱｘｈｌ，：：￣ ｒｉｔｅＴｏ—Ｅｘ（。ｅｌ（）

｛ＣＤａｆａｈｉＬ％ｅ ｄａｔｂａａｓｅ：

的设置，对于图１所示的模板而言，顶端标题行为￥１：￥４，左端标

题列为￥Ａ：ＳＲ，这样对于多页的情况下，每页会自动加上表头标

题。

ＣＦｉｌｅＤｉａｌａｇ ｄｉｇ（ＦＡＩＳＥ．”Ｅｘ（－ｅｌ文件”．ＮＵＬＬ．ＯＦＮ

ＨＩＤＥＲＥＡＩ）ＯＮＬ＇Ｉ ．”Ｅｘｃｅｌ文件（ ．ｘｌｓ）ｔ＊．ｘｌｓ！ｒ＇，ＮＵＩ Ｌ、：

ＣＳｔｒｉｎｇ ｓｅｘ（ ｅｌＦｉｌｅ＝ｄｌｇ．ＣｅｔＰａｔｈＮａｍｅ ０：／／得到要建立的Ｅ ｅ１文什

名

３．２ 创建Ｅｘｃｅｌ服务器，并打开模板，为写入数据作准备

ｉｆ（．＇ＥｘｅｅｌＡｐｐ．ＣｒｅａｔｅＤｉｓｐａｔｃｈ（”Ｅｘｃｅ１．Ａｐｐｌｉｃａｔｉｏｎ＂，ＮＵＬＬ））／／如果创建

Ｅｘｃｅｌ服务失败，返回

ＣＳｌ ｒｉＩ１ｇ ｓ ｒａｂｌ Ｆｉｌ ：ｄｌｇ．ＧｄＦｉｌ Ｔｉｔｌ ０Ｉ／，要创建的表名 ｛ＡｆｘＭｅｓｓａｇｅＢ Ⅸ（“创建Ｅｘｃｅｌ服务失败 ： ｘｉｔ（１）：

） ／／创建进行存取的字符串

／／打开模板文件，为写人数据作准备 ｓＳｑ１．Ｆｏｍｌａｔ（”ＤＲＩ＼’ＥＰ，：ｆ％ ）：Ｄｓ ：”：Ｆ１ＲＳＴＲＯ￣ＸｒＨＡＳＮＡ—ＭＥＳ：１：

‘１ｈａ＊ｐａｔｈ［ＭＡＸ—ＰＡＴＨ］； ＤＢ＿＼”呸ｓ＼”：ＤＢＱ＝％ ｓＤｒｉｖｅｒ，ｓＥｘｃｅｌ１￣ ｉｌＰ．

ＲＥＡＤＯＮＩ Ｙ：ＦＡＬｑＥ：ＣＲＥ，４］‘Ｅ

：ｒ

－ｉ－

Ａ

－ 二＿＿ １ｉ 蔓Ｃ：二厦： ｌ－－Ｔ－ｌ－ －

ｉ～ －－ｉ．． ．． ｒｊ叠 ：．工 二：［ Ⅱ团 圈

右轨向 轨距 右高钮 左轨向

１ 段养路 问均值统进

２

左高钮

一一一一一

３检测日期丁务段名称

车间名称均 超过统汁值

均 超过统计值 均 超过统计值 均 超过统计值Ｉ均 超过统计值

ｆ一…——一＿一一…一一

４

５

侦区段数百分比

值 ｂ－Ｆ Ｓ（ Ｒ．￣百分比值区段数百分比。值区段数百分比值区段数百分比：

图１ 横板示例

（下转第６１页）