Visual-LISP与Excel电子表格.pdfVIP

与 电子表格 Visual LISP Excel MicrosoftExcel 在当今世界上的电子表格应用软件产品中占有绝对的统治地位。我们 经常可以看到财会部门或人事部门利用它来处理日常的一些数据。虽然说 Access 在数据 处理方面会比Excel好些，但它在一些简单的日常事务中象执行一些快速输入或排序时却 不那么方便简单。它是一个常用的事务处理工具。 这 10年来，有许多AutoCAD程序是用于将提取数据并将其输出为报告。不论什么原因， 它是很必要 的。近 10 年来所见到 的除了极少部分外(如 Terry Dotson 的 /), 输出的机制均为输出为 ASCII文本文件，或有些是带格式 文件。这是因为 10年来，我们没有 Visual LISP 或 VBA 使程序与其它应用软件相连通 并在相互之间传递信息。现在可以了。 如果你还一直在使用逗号或TAB分界符的文本来区分你的数据，你应该好好地看看这篇文 章了。 Visual LISP (VBA 也可以) 提供了必要的函数来接触和与任何提供了类型库(内部暴露 API[应用程序接口程序]的应用程序相联系。通常它是VB或VBA。这一类应用程序包括 Microsoft Office (Access, Excel, Word, 还有象 Outlook 和 PowerPoint), 以及象 MathCAD,Visio、Actrix等产品。 在你的代码中的第一件事就是必需在 Visual LISP 中加载 ActiveX/COM。它是通过 (vl-load-com) 函数来完成的。第一件事尝试与 Excel 连接上就是搜索 Excel的类型库 文件。这里使用了Excel 2000 (9.0) 作为例子。示例 1演示了怎样通过Excel不同版本 来取得与其类型库相关联。注意 Excel 2002 用的是可执行文件来身来代替在以往版本中 所使用的分离的TLB或OLB文件。 Figure 1: 加载Excel97 类型库 (vl-load-com) (defun DSX-TypeLib-Excel (/ sysdrv tlb) (setq sysdrv (getenv systemdrive)) (cond ( (setq tlb (findfile (strcat sysdrv \\Program Files\\Microsoft Office\\Office\\Excel8.olb))) tlb ) ( (setq tlb (findfile (strcat sysdrv \\Program Files\\Microsoft Office\\Office\\Excel9.olb))) tlb ) ( (setq tlb (findfile (strcat sysdrv \\Program Files\\Microsoft Office\\Office\\Excel10.olb))) tlb ) ( (setq tlb (findfile (strcat sysdrv \\Program Files\\Microsoft Office\\Office\\Excel.exe))) tlb ) ( (setq tlb (findfile (strcat sysdrv \\Program Files\\Microsoft Office\\Office10\\Excel.exe))) tlb ) ) ) 下一步是加载类型库并定义内部接口的属性、方法和恒量。这些都可以使用任意名称的前缀， 该前缀只是用于对外部应用程序的快速及合理地调用。 以下的文章内容将把类型库的前缀均置为斜体以方便区分。 示例2演示了一个简单的函数来加载类型库并判断是否成功返回T或nil： Figure 2: 定义类型库接口 (defun DSX-Load-TypeLib-Excel (/ tlbfile tlbverout) (cond ( (null msxl-xl24HourClock) (if (setq tlbfile (DSX-TypeLib-Excel)) (progn (setq tlbver (substr (vl-filename-base tlbfile) 6)) (cond ( ( tlbver 9) (princ \n初始化 Microsoft Excel 2000