机房收费-将MSHFlexgrid中的数据导出为Excel文件

? ? 最近在敲机房收费过程中遇到将MSHFlexgrid（这里命名为MSHFlexgridRecord）中的数据导出为Excel文件的问题，很多窗体都涉及到这个问题，那么如何实现呢？

? 首先，在工程中引用EXCEL对象

其次，就是代码部分了

	Private?Sub?cmdTo_Excel_Click()??
	    Dim?xlsApp?As?Excel.Application?????'声明EXCEL应用程序对象??
	????Dim?xlsBook?As?Excel.Workbook???????'声明EXCEL工件簿
	????Dim?xlsSheet?As?Excel.Worksheet?????'声明设置的活动工作表??
	????Dim?intR?As?Integer????????????'循环变量，用于控制行??
	????Dim?intCAs?Integer????????????'循环变量，用于控制列??
	???
	????Set?xlsApp?=CreateObject("Excel.Application")???????'创建EXCEL对象??
	????Set?xlsBook?=?xlsApp.Workbooks.Add??????????????????'新建EXCEL工件簿文件??
	????Set?xlsSheet?=?xlsBook.Worksheets(1)????????????????'设置活动工作表??
	
	    ’判断MSHFlexgridRecord表里是否有数据
	    If MSHFlexgridRecord.rows>1 then
		For?intR?=?0?To?MSHFlexgridRecord.Rows?-?1??
		????For?intC?=?0?To??MSHFlexgridRecord.Cols?-?1??
		????????If?intC=?0?Then???????'第一列为学号，让其以字符形式显示??
		?????????????xlsSheet.Cells(intR?+?1,intC?+?1)?=?"'"?&?MSHFlexgridRecord.TextMatrix(intR,?intC)??
		????????Else??
		?????????????xlsSheet.Cells(intR?+?1,intC?+?1)?=??MSHFlexgridRecord.TextMatrix(intR,?intC)??
		????????End?If??
		????Next?intC??
		 Next?intR
		???
		?xlsApp.Visible?=?True???????????????????????????????'显示Excel??
		?Set?xlsApp?=?Nothing????????????????????????????????'交还控制给Excel?
		
	     Else
		 Msgbox  "没有数据可以导出！",vbokonly+vbExclamation,"警告"
	     End if
     End sub