现手中有个月报表的数据量比较大，A4纸输出有400页，vfp调用excel生成报表时间需5分钟左右，

主要时间用在循环为每个单元格赋值,效率非常低。有没有办法可以同时给多个单元格赋值，值是不一定相同的！

我在VBA里找到的方法是oExcel.Range('&achXYList')=array(1,2,3)

vfp里数组这样给Range赋值是无效的.

各位大侠，有没有好的解决办法！

先行谢过了!!!

楼上的方法仅适用于一般的二维报表，而且事后需对报表格式作细节方面的改进。对于复杂报表还是解决不了问题

还是谢谢3楼的朋友，期待更完善的解决方法！本人问题中提到的报表就是分组的复杂报表格式

以下是引用Tiger5392在2009-11-14 21:50:46的发言：

VFP调用Excel的时候让Excel不可见，也能提高效率。

已经不可见

[ 本帖最后由 rola_zhang 于 2009-11-15 21:29 编辑 ]

这样也只能针对一个dbf来实现，而且无法做到先全部预览再打印

今天想到一个办法，初步尝试了一下，方法可行，就是不知道性能会有多大提升！有了结果，一定上来与大家分享！谢谢大家的支持

尝试了两天，有了较好的结果。用全局变量_CLIPTEXT来实现VFP和Excel之间的拷贝和粘贴，可以实现大批量数据赋值。最初，我用_VFP.DataToClip来实现，其赋值数据始终带着字段名，用起来很不爽，后来输出全局变量_CLIPTEXT（_VFP.DataToClip复制的数据保存在这个变量中），发现用_VFP.DataToClip复制的数据其结构非常简单，为了避免多余的字段名这行数据，于是我就没有用_VFP.DataToClip，自己直接填写_CLIPTEXT，出人意料的是效率居然比_VFP.DataToClip还高，我想可能是_VFP.DataToClip里有其他一些参数的判断语句（如delimiter类型）.输出数据的填写到_CLIPTEXT的格式如下:'aaaaa'+chr(9)+'bbbbb'+chr(9)+chr(9)+'ccccc'+chr(13)+chr(10)。chr(9)是Tab的值，表示列delimiter，chr(9)+chr(9)表示中间这列输出为''，chr(13)+chr(10)表示回车换行。这样一个数据表示填写某行的4个单元格。如果只输出一行，chr(13)+chr(10)可以不加。同理只需按照这个格式把多行的数据组成一串输出即可。我的报表性能通过这种方式，性能提高了300%，真是爽啊！

另外，Select/Merge等Excel语句尽量少使用，可以合并成成一条的语句表示的，尽量合并。

顺便提醒，这种方式不适合用在已经合并的单元格，如果使用，一定要按照基本单元格来组成数据输出，且合并单元格里的每个基本列必须填写数据（空数据也认可），输出的同时会自动拆分那些已经合并的单元格。