搬家第42天-citect2018应用cicode和citectVBA制作报表4：将查询数据快速导出到excel文件

前面的博客已经记录了如何实现数据采集、数据记录、条件查询、数据导出功能。数据导出使用方法的是：后台创建一个excel文件，将microsoft datagrid控件中的数据逐行逐列读取出来，写入前面创建的excel文件，然后排版处理，最后保存excek文件。实际使用过程中，数据量大的时候，就很慢。

在使用excel时，发现excel自带有绕入外部数据的功能，简单的设置后，就能快速的将条件查询结果呈现出来，由此获得思路，在citectVBA脚本中，也这么操作。

1. 条件查询将数据放入microsoft datagrid控件后，记录下查询条件。

2. 后台创建excel文件，用.CopyFromRecordset方法将记录集导入进去。

3.保存excel文件。

顺着这个思路，先在citect中新建两个字符串变量mystrsearch1和mystrsearch2，这两个变量用来存储条件查询语句。由于citect中字符串变量存放字符长度是有限制的，具体限制值我也记不住，只是在测试的时候发现了。如果字段很多，条件查询字符串很长，可能还需要更多的字符串变量，或者使用字符串变量数组。

在前几天练习程序SetobjDatagridDatasource()中Set objrs=ocom.Execute前面添加以下两句：

mystrsearch1=ssql0 & ssql1 & ssql2 & ssql3 & ssql4 & ssql5

mystrsearch2=ssql6 & ssql7 & ssql8 & ssql9 &  ssql10 & ssql11 & ssql12 & ssql13

将查询条件语句写入这两个变量，查询条件字符多的话，就需要分开存在不同的字符串变量中。

新建一段citectVBA程序。

比起昨天写的那种方法，今天的导出速度快多了。