admin 管理员组文章数量: 1184232
2023年12月17日发(作者：stroke是什么意思中文翻译成)
…………………………………………………………。 实用第一 智慧密集 摘 要：Ｅｘｃｅｌ是一种制作报表的常用软件，ＸＬＬ插件是扩展Ｅｘｃｅｌ功能的一种重要工具。在分析 Ｅｘｃｅｌ ＸＬＬ插件开发方法和可编程接１：２的基础上，对Ｄｅｌｐｈｉ中实现ＸＬＬ插件的技术方法进行了介 绍．讨论了ＸＬＬ插件在管理信息系统开发中的应用。 关键词：Ｄｅｌｐｈｉ；Ｅｘｃｅｌ；插件：报表 ｘｌＡｕｔｏＡｄｄ：当会话期间激活或加载ＸＬＬ时调用。 １ 引言 任何管理信息系统的开发都离不开报表的开发，灵活、复 杂的报表输出是衡量系统功能完善与否的一个重要指标。Ｄｅ１． Ｄｈｉ是一个高效的可视化数据库管理信息系统开发工具，虽然 ｘｌＡｕｔｏＲｅｍｏｖｅ：当会话期间取消激活或卸载ＸＬＬ时调用。 ｘｌＡｄｄｌｎＭａｎａｇｅｒｌｎｆｏ：当首次调用加载项管理器时调用，如 果所传递的参数为１，它应该返回一个字符串表示加载项（即 ＸＬＬ）名称。 ｘｌＡｕｔｏＲｅｇｉｓｔｅｒ：在调用了ＲＥＧＩＳＴＥＲ（ＸＬＭ）或ｘｌｆＲｅｇｉｓｔｅｒ 时调用．该函数提供自定义函数的相关信息，如参数和返回类 型等。 ｘｌＡｕｔｏＦｒｅｅ：Ｅｘｃｅｌ收到ＸＬＯＰＥＲ ｆ标记为指向ＸＬＬ需要释 提供了一些报表组件，但用户在使用报表时基本上不能对报表 格式进行调整。即使能够调整，在设计复杂报表时，这些报表 组件也很难如愿。 Ｍｉｃｍｓｏｆｔ Ｅｘｃｅｌ是一种常用的电子表格软件，人们经常用 它来制作各种报表，Ｅｘｃｅｌ提供了多种方式来扩充其功能， ＸＬＬ插件是其中之一。Ｅｘｃｅｌ自４．０版本以来，一直支持ＸＬＬ 插件与Ｅｘｃｅｌ的链接，ＸＬＬ插件还支持ＸＬＬ用来访问Ｅｘｃｅｌ函 放的内存１时调用。 前４个函数不带参数且返回Ｉｎｔｅｇｅｒ值，后３个函数可接 受或返回ＸＬＯＰＥＲ指针。 上述７个标准函数中唯一必需的是ｘｌＡｕｔｏＯｐｅｎ，没有它就 无法加载ＸＬＬ。ｘｌＡｕｔｏＦｒｅｅ用于释放ＸＬＬ管理的内存，在ＸＬＬ 内分配内存或其他资源时，应该实现ｘｌＦｒｅｅ函数来避免内存泄 漏。卸载ＸＬＬ时，还应实现ｘｌＡｕｔｏＣｌｏｓｅ来清理内存。其他的 均可忽略。 数和命令的接口（又称Ｃ ＡＰＩ）。 在分析Ｅｘｃｅｌ ＸＬＬ插件的基础上，给出了一种Ｅｘｃｅｌ自定 义报表解决方案。借助于Ｅｘｃｅｌ来完成实际报表的设计，由用 户自己设计报表。 ２ ＸＬＬ插件 ２．１ 标准函数 ＸＬＬ是指包含Ｅｘｃｅｌ加载项管理器所需回调以及ＸＬＬ导出 命令和工作表函数的动态链接库，一般使用ＸＬＬ作为扩展名。 ＸＬＬ是一个标准的ｗｉｎ３２动态链接库（ＤＵ０，但它导出了一些 特殊的函数，这些函数可以被ＥｘｃｅＩ调用，也可以把自定义的 函数注册到Ｅｘｃｅｌ中以扩展Ｅｘｃｅｌ的功能。通过ＸＬＬ可以在 ＸＬＬ插件可以通过调用Ｅｘｅｅｌ４ｖ函数访问Ｅｘｃｅｌ的功能。 ２．２函数声明 上述７个标准函数的声明如下： ＥｘＣｅｌ中添加菜单、工具按钮、自定义函数等等。 Ｅｘｃｅｌ加载项管理器负责加载并管理ＸＬＬ，它会寻找ＸＬＬ 所导出的以下７个标准函数。 ｘｌＡｕｔｏＯｐｅｎ：当ＸＬＬ被装载时调用，在ｘｌＡｕｔｏＯｐｅｎ函数中 可以注册ＸＬＬ函数和命令、初始化数据结构以及自定义用户 界面如菜单和工具条等。 ｘｌＡｕｔｏＣｌｏｓｅ：当ＸＬＬ被卸载时调用，在ｘｌＡｕｔｏＣｌｏｓｅ函数 自定义函数的参数和返回值均为ＰＸＬＯＰＥＲ，如果自定义 函数Ｆｕｎｃ带一个参数则其函数应声明如下： ｆＵｎｃｔｉｏｎ ＦＵｎ （ｐ×：ＰＸＥＯＰＥＲ）：ＰＸＬＯＰＥＲ； 中可以取消函数和命令注册、释放资源和撤消用户界面。 其中ＰＸＬＯＰＥＲ是指向ＸＬＯＰＥＲ变体记录的指针，ＸＩ ＯＰ－
…… ＰＲＯＧ眦嘲Ｕ＿ＢＩ瞩陆…………………………………………………………………………………………… Ｒｅｓｕｌｔ ＝ＸＬＡｄｄｌｎ。ＵｎＲｅｇｉｓｔｅｒＡＩＩ； ｅｎｄ： ＥＲ是一个复杂的变体记录，可以根据ＳＤＫ提供的ｘｌｃａｌ１．ｈ文 件创建。 Ｅｘｃｅｌ４ 函数声明如下： ３．４自定义函数 ｆｕｎｃｔｉｏｎ ＭｙＳＱＲＴ（Ｖａ｝ｕｅ：Ｄｏｕｂｌｅ）：Ｄｏｕｂｌｅ；ｓｔｄｃａｌｌ； ｂｅｇｉｎ ｌ ｌｒｅｓｕｌｔ：＝Ｓｑｒｔ（Ｖａｌｕｅ）； ｅｎｄ； 其中ｘｌｆｎ为调用的函数或功能号，ｒｅｔＶａｌ为函数或功能调用 后的返回值，ｃｏｕｎｔ为ｏｐｅｒｓ的参数个数，ｏｐｅｒｓ为可变大小的参 数数组。如果调用成功，该函数返回０，否则返回错误代码。 ３．５ 函数导出 ｅｘＰｏ￣Ｓ ｉ ／／ＥｘｃｅＩ标准函数 ３实现技术 ３．１ ＴＸＬＡｄｄｌｎ类 ＴＸＬＡｄｄｌｎ类负责实现ＸＬＬ插件的基础功能，该类定义以 下公有方法＿ ｘｌＡｕｔｏＯｐｅｎ， ｘｌＡｕｔｏＣＩｏｓｅ， ／／自定义函数／功能 ＭｙＳＱＲＴ； 。 ＡｄｄＦｕｎｃｔｉｏｎ方法实现自定义函数的新增。这些新增自定 ＋ 白 … … 白 ４ ＸＬＬ插件的应用 。 ” 一… 在管理信息系统的开发过程中，可以开发Ｅｘｃｅｌ的ＸＬＬ插 件实现３种类型的基本功能及其组合。 义函数由ＲｅｇｉｓｔｅｒＡｌｌ方法注册到Ｅｘｃｅｌ中。 ＡｄｄＭｅｎｕ方法实现自定义菜单的新增，这些新增菜单由 ＲｅｇｉｓｔｅｒＡｌｌ方法注册到Ｅｘｃｅｌ中。 ４．１ 成批数据导出 在ＸＬＬ插件中实现Ｅｘｃｅｌ自定义功能，在Ｅｘｃｅｌ中打开一 ＡｄｄＣｏｍｍａｎｄ方法实现自定义命令的新增，这些新增命令 由ＲｅｇｉｓｔｅｒＡｌｌ方法注册到Ｅｘｃｅｌ中。 ＡｄｄＴｏｏｌＢａｒ方法实现自定义工具条的新增。这些新增工具 条由ＲｅｇｉｓｔｅｒＡｌｌ方法注册到Ｅｘｃｅｌ中。 个模态窗Ｅ１．用户在该窗口中选择需要导出数据的查询条件、 数据项等，点击按钮后将在Ｅｘｃｅｌ中生成导出的数据。 该窗口是一个Ｄｅｌｐｈｉ标准Ｆｏｒｍ。其开发方法与常规Ｆｏｒｍ 开发方法无异．唯一的区别在于按钮的ＯｎＣｌｉｃｋ事件处理代码需 要通过调用Ｅｘｃｅｌ４ｖ函数将数据插入到Ｅｘｃｅｌ的相应单元格中。 ＲｅｇｉｓｔｅｒＡｌｌ方法负责将ＸＬＬ插件中的自定义函数、菜单、 命令和工具条注册到Ｅｘｃｅｌ中。该方法由ｘｌＡｕｔｏＯｐｅｎ标准函数 调用 ４．２成批数据导入 在ＸＬＬ插件中实现Ｅｘｃｅｌ自定义功能，在Ｅｘｃｅｌ中打开一 个模态窗口．用户在该窗口中选择从Ｅｘｃｅｌ中导人数据的单元 格范围、数据项和目标等，点击按钮后将Ｅｘｃｅｌ中指定的数据 导入到指定的数据库表中（插入或修改）。 该窗口是一个Ｄｅｌｐｈｉ标准Ｆｏｒｍ，其开发方法与常规Ｆｏｒｍ 开发方法无异．唯一的区别在于按钮的ＯｎＣｌｉｃｋ事件处理代码 需要通过调用Ｅｘｃｅｌ４ｖ函数从Ｅｘｃｅｌ单元格中读取数据。 ＵｎｒｅｇｉｓｔｅｒＡｌｌ方法负责将ＸＬＬ插件中的自定义函数、菜单、 命令和工具条从Ｅｘｃｅｌ中取消注册，该方法由ｘｌＡｕｔｏＣｌｏＳｅ标准 函数调用。 ３．２ ｘｌＡｕｔｏＯｐｅｎ标准函数 ４．３自定义报表编制 其中ＸＬＡｄｄｌｎ是ＸＬＬ的全局变量，ＰＴｅｐａｒｅＤａｔａ实现ＸＩＪＩＪ 在ＸＬＬ插件中实现Ｅｘｃｅｌ自定义函数和功能，用户使用 ＸＬＬ插件提供的自定义函数、功能和Ｅｘｃｅｌ提供的各种函数自 行编制报表。报表格式则完全由用户定义，能够满足用户对报 自定义函数、菜单、命令和工具条的内部定义，例如 ＸＬＡｄｄｌｎ．ＡｄｄＦｕｎｃｔｉｏｎ（＂ＭｙＳＱＲＴ ， ＢＢ ＂ＭｙＳＱＲＴ ， Ｎｕｍｂｅｒ＇， ＂Ｄｅｍｏ＇）将增加一个自定义函数．第一个参数为ＸＩＪＬ导出的函 数名：第二个参数为返回值和参数类型（返回值和参数均为 表格式的各种需求。 Ｄｏｕｂｌｅ）：第三个参数为Ｅｘｃｅｌ中的函数名；第四个参数为Ｅｘ． ｃｅｌ函数向导中显示的参数名；第五个参数为Ｅｘｃｅｌ函数向导中 的函数类别。还可以定义函数及其参数的帮助说明。 ３．３ ｘｌＡｕｔｏＣｌｏｓｅ标准函数 ｆｕｎｃｔｉｏｎ ｘｌＡｕｔｏＣＩｏｓｅＯ：Ｉｎｔｅｇｅ ｓｔｄｃａｌｌ ｂｅｇｉｎ 图１ ＸＬＬ插件实际运行效果屏幕截图 （下转第１７页）
…… ＰＲＯＧＲＡＭ ＬＡＮＧＵＡＧＥ …………… ………………………………………………………… ………………… Ｉｆ（ｍｘｂ＿ｂｘ＝ｓｈｕ—ｒｕ—ｓｈｕ ｊｕ＿ｂｘ）Ｔｈｅｎ ｆｏｕｎｄ＿ｍｘｆｌａｇ＝Ｔｒｕｅ ＿”找到相应的明细，进行处理” Ｃｅｌｌｓ ｍｘｂｇｓ：ｇｓ—ｍｘｂｓｈｅｅｔ．＿＿ｇｘｄｕｉｙ－ ＿ｉｎｇ＿ｇｓｍｘｂｃｏ１） ＿取工时明细表中对应工序和泵型所确定的工时值 ｓ＿）＝ｍｘｂ＿ｇｓ ｓｈｅｅｔ．Ｃｅｌｌｓ（ｉ，ｓｃｇｓ＿ｃｏ１＿＿将找到的工时值，填人源表中当前行的工时列对应的单元格中 ｓ－ｓｈｅｅｔ．Ｃｅｌｌｓ（ ，Ｓ＿Ｃ—ｇｚ＿ｃｏ１）＝ｍｘｂ＿ｇｓ ｓ＿ｓｈｅｅｔ．Ｃｅｌｌｓ（ｉ ｓ＿ｃ＿ｓｈｕｌｉａｎｇ＿ｃｏ１） ｓ＿根据计件数量和工时，计算工资结果 ｓｈｅｅｔ．Ｃｅｌｌｓ（ｉ，ｓｔｆｌａｇｃｏｌ｝＝ｔ＿ｆｌａｇ ＿＿＿将已统计标记填入源表中相应的标记列中 Ｅｘｉｔ ｌＦｏｒ Ｅｎｄ Ｉｆ Ｅｎｄ １Ｉｆ Ｎｅｘｔｉ Ｉｆ ｆｏｕｎｄ—ｍｘ＿ｆｌａｇ＝Ｆａｌｓｅ Ｔｈｅｎ 如果没有找到需要的明细，给出提示 ＭｓｇＢｏｘ“此次工时明细表遍历至末尾”＆ 且没有 找到： ＆ｓｈｕ—ｒｕ＿ｓｈｕ＿ｊｕ＿ｇｘ＆”和 ＆ｓｈｕｒｕ＿—ｓｈｕｊｕ＿ｂｘ＆” ＿相应的明细ｌ程序会继续执行” Ｅｎｄ Ｉｆ Ｅｌｓｅ 当选择的工时明细表是“工序 工时明细表）”时，进行如 下处理 ｆｏｕｎｄ第２）部分按２个或３个条件进行数据分类统计和排序的 ｍｘ＿—ｆｌａｇ＝Ｆａｌｓｅ ｍａｘｒｏｗ＿模块。程序代码详解请参见第一稿关于对条件分类统计和排序 ｇｓ＿ｍｘｂｓｈｅｅｔ．Ｃｅｌｌｓ． ＿ｇｓ—ｍｘｂ＿ｃｏｕｎｔ＝的内容。 ＳｐｅｃｉａｌＣｅｌｌｓ（ｘｌＣｅｌｌＴｙｐｅＬａｓｔＣｅｌ１）．．Ｒｏｗ 取工时明细表的最大行数 Ｆｏｒ ｊ＝２ Ｔｏ ｇｓ＿ｍｘｂ＿ｍａｘ＿ｒｏｗ＿ｃｏＵｎｔ 遍历工时明 细表的所有行即所有工序，找到源表中当前工序在工时明细表 中的行位置 Ｉｆ ｇｓｍｘｂ＿＿３ 结语 因为Ｅｘｃｅｌ默认的宏“安全级”最高，不允许执行自定义 的宏程序。所以在使用自定义的宏程序之前，需要经过选择菜 ｓｈｅｅｔ．Ｃｅｌｌｓ（ｊ，１）： Ｔｈｅｎ ＿＿单上的“工具”ｌ“选项”Ｉ“安全性”Ｉ“宏安全性”．将“安全 级”降至低，保存文件后关闭再打开，即可正常使用自定义的 宏程序。对于条件文件中的源表名称和目的表名称．要特别注 意其字符中符号的大小写，最好使用对工作表名称的复制和粘 贴方法，避免输入时出现错误。 （收稿日期：２０１０—１０—０５） ＭｓｇＢｏｘ ｇｓｍｘｂｓｈｅｅｔ＿ｎａｍｅ＆”第 ＆ｊ＆ 行发现空白行ｊ继续操作｝ Ｅｌｓｅ ｍｘｂｇｘ：ｇｓ—ｍｘｂ＿＿ｓｈｅｅｔ．Ｃｅｌｌｓ（ｊ，１） 取工时明细表中的工序 Ｉｆ《ｍｘｂ－ｇｘ＝ｓｈｕ＿ｒｕ—ｓｈｕ＿ｊｕ＿ｇｘ）Ｔｈｅｎ （上接第１３页） 图１为示例ＸＬＬ的实际运行效果屏幕截图，在Ｅｘｃｅｌ中增 计出各种各样满足其实际业务需求的自定义报表。定能为应用 程序增光添彩。 加了“Ｅｘｃｅｌ报表系统”菜单项，Ｂｌ单元格则使用自定义函数 ＭｙＳＱＲＴ计算Ａ１单元格的平方根。 参考文献 ｔｏｎ．Ｅｘｃｅｌ Ａｄｄ－ｉｎ Ｄｅｖｅｌｏｐｍｅｎｔ ｉｎ Ｃ／Ｃ＋＋．Ｊｏｈｎ 【 】 Ｓｔｅｖｅ ＤａｌＷｉｌｅｙ＆Ｓｏｎｓ Ｌｔｄ．２００５． ５结语 ＸＬＬ是一个需要导出特定函数的标准Ｗｉｎ ３２动态链接库， 其开发比较简单。通过Ｅｘｃｅｌ提供的可编程接口完成应用程序 和Ｅｘｃｅｌ之间的相互操作，可以控制Ｅｘｃｅｌ实现与应用程序之 间的数据交换，将报表的设计完全交给用户完成，用户能够设 【２】Ｍｉｃｒｏｓｏｆｔ Ｃｏｒｐｏｒａｔｉｏｎ．Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ ９７ Ｄｅｖｅｌｏｐｅｒｓ Ｋｉｔ．Ｍｉ－ ｃｒｏｓｏｆｔ Ｐｒｅｓｓ．１９９７． ［３】陈省．Ｄｅｌｐｈｉ深度探索．北京：电子工业出版社，２００４． （收稿日期：２０１０—１０—１７）
版权声明：本文标题：Delphi实现Excel的XLL插件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1702743171a428989.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论