(GRID输出到EXCEL)

这是一个可以将GRID表中的内容导入到EXCEL中的一个很好的类,它只要在表单中拉入这个类中的GRID,然后在一个按钮中写上"thisform.zclgrid1.repxls()",就可将该GRID导出到一个EXCEL文件中,但令人遗憾的是,这个类每次导出之后,EXCEL表头总是有"ZCLGRID 试用版"几个字,在类属性里有一项SPAGEHEADE(默认值为:"ZCLGRID 试用版",即输出到EXCEL表头),然而一旦将"ZCLGRID 试用版"几个字去掉或改掉,"thisform.zclgrid1.repxls()",这个语句就失去作用了,也就不能导出EXCEL了.想请各位高手看看,有没有哪位能够修改这个类的,看能否实现改这个表头字的,或者将这几个去掉,而类的功能不变.

 

Select (Thisform.Grid1.Recordsource)
Copy To Excel表名.Xls Type Xl5