机房收费-将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

  需要注意的是，导出数据时，由于第一列为学号，要将其设置为字符格式，否则如果首字母是0的话，会不显示0！