怎样将msflexgrid的数据直接导入报表

Question

不用datasoure

Answer 1

Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet    Set xlApp = CreateObject("excel.application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Sheets(1)
    
    For I = 1 To MSHFlexGrid1.Rows
        For J = 1 To MSHFlexGrid1.Cols
            xlSheet.Cells(I, J) = MSHFlexGrid1.TextMatrix(I, J)
        Next J
    Next I
    
    xlApp.Visible = True
参考：http://www.csdn.net/develop/author/netauthor/lihonggen0/SQL SERVER 与ACCESS、EXCEL的数据转换  
Visual Basic 导出到 Excel 提速之法