机房收费系统之 数据导入到excel

如何将vb中MSHflexgrid 控件中的所有数据导入到excel表中。下边介绍中方法，直接将这个方法写在模块中，那个窗体直接调用这个函数就可以。

'将数据导入到excel表中
Public Sub exporttoexcel(formname As Form, flexgridname As String)   '参数传递
    	Dim xlApp As Object 					'创建一个类 用来创建excel实例化对象 
    	Dim xlBook As Object  'Excel.Workbook			'用来创建工作薄    

	Dim xlSheet As Object  'Excel.Worksheet		'用来创建一个工作表

    	Screen.MousePointer = vbHourglass
On Error GoTo Err_Proc
    	Set xlApp = CreateObject("Excel.Application")    	'将类xlApp实例化为一个excel表
    	Set xlBook = xlApp.Workbooks.Add			‘
    	Set xlSheet = xlBook.Worksheets(1)			'表的名字也可以更改，不再叙说

    	'将数据填入到excel中
   	 Dim lngRows As Long
    	Dim intCols As Integer
    	With formname.Controls(flexgridname)
        	'对行和列进行循环
        	For lngRows = 0 To .Rows - 1
            		For intCols = 0 To .Cols - 1
               		 xlSheet.Cells(lngRows + 1, intCols + 1).Value = "'" & .TextMatrix(lngRows, intCols)
            		Next intCols
        	Next lngRows
    	End With
    	xlApp.Visible = True
    	Screen.MousePointer = vbDefault
    	Exit Sub
Err_Proc:
    	Screen.MousePointer = vbDefault
    	MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"
   
End Sub

       总体来说，这个方法还算比较简单，直接创建一个工作表之后，将vb窗体控件的所有数据循环一遍，直接写到excel表。 希望能帮到您。