MSHFlexgrid控件的内容导出到Excel

       做了机房收费系统后发现有一个功能块是几乎不用动的，那就是到处excel,原谅我只是打了一遍，因为我发现每次都是不用变的，下面就把这段代码分享给大家。

Dim newXls As Excel.Application    Dim newsheet As Excel.Worksheet    Dim newBook As Excel.Workbook    Dim X As Integer    Dim Y As Integer    Dim txtSQL As String    Dim Msgtext As String    Dim mrc As ADODB.Recordset        txtSQL = "select * from line_info where card_id= '" & Trim(txtCardno.Text) & "'"    Set mrc = ExecuteSQL(txtSQL, Msgtext)        If mrc.RecordCount = 0 Then        MsgBox "没有要导出的记录", vbOKOnly + vbExclamation, "警告"    Else        Set newXls = CreateObject("excel.Application")'        Set newsheet = newBook.Worksheets                Set newBook = newXls.Workbooks.Add   '创建工作簿        Set newsheet = newBook.Worksheets(1) '创建工作表                For X = 1 To MyFlexGrid.Rows            For Y = 1 To MyFlexGrid.Cols                        newsheet.Cells(X, Y) = "'" & MyFlexGrid.TextMatrix(X - 1, Y - 1)            Next Y        Next X                newXls.Visible = True        Set newXls = Nothing            End If          End Sub

貌似就是这样都不用改吧，方法还有很多，希望大家多多提意见啊