35. 面向对象的LotusScript（七）之导入Excel

最新推荐文章于 2022-07-27 16:53:26 发布

starrow

最新推荐文章于 2022-07-27 16:53:26 发布

阅读量5.2k

点赞数 2

分类专栏： IBM Domino开发菁华文章标签： LotusScript Excel 导入

本文链接：https://blog.csdn.net/starrow/article/details/9247321

版权

本文介绍如何利用LotusScript实现面向对象的Excel导入功能，通过创建ExcelImporter类，实现与Notes文档的高效转换。类设计考虑了通用性和元数据的处理方式，允许在导入前进行自定义计算，并通过事件机制处理复杂逻辑。示例代码展示了如何使用此类进行数据导入，以及在导入前触发事件以计算特定字段值。

摘要由CSDN通过智能技术生成

Microsoft Office是应用最广泛的办公软件，绝大多数公司的必备软件。其中的Excel操作直观方便，很多公司都有大量数据以Excel文件的格式保存。一个LotusNotes应用在很多情况下都会需要导入Excel文件，比如程序初始化的时候导入历史数据，批量导入配置数据，定期导入人工输入或从其他系统导出的Excel文件。导入Excel文件的功能，从原理上说并不复杂，就是读取Excel工作表中的一行数据，保存为一个Notes文档。应用面向对象的思想，加上良好的设计，可以写出一个具有很好通用性，使用方便的导入Excel文件的类ExcelImporter。

看一个调用这个类的实例：

Public Function Import
	Dim importer As New ExcelImporter()
	Call importer.Import("fmRecord")		
End Function

只需要创建一个ExcelImporter类的实例，然后调用Import()方法就完成了导入。唯一需要传入的参数是创建文档所用的表单名。文档中的字段和工作表列的对应关系这种元数据，可以不同的方式获得。一种方案是导入时指定一个视图，该视图的每一列的值都源自一个字段，而没有常数和公式等情况。工作表的列和视图列一一对应。Excel某一列的值就保存到视图对应列所关联的字段。第二种方案是将这种对应关系显式写在Excel中。一般工作表中的第一行是列标题，我们就在第二行里填写每一列对应的字段名。两相比较，创建和调整一个视图更为麻烦，还会消耗索引资源，所以ExcelImporter类采用了第二种方案。

有些情况下，Notes文档中的某些字段值不能简单复制工作表对应的单元格的数据，需要根据其他字段或者配置文档计算。这些应具体情况而变的代码，不能写在ExcelImporter类里，否则它就丧失了通用性。这种情况同样可以应用《33. 面向对象的LotusScript（六）之为自定义对象模拟事件》里面设计的事件机制来解决。为此，ExcelImporter类继承了EventPublisher类࿰