怎么能让msflexgrid中记录导到EXCEL 中去呢。

Question

我不会用msflexgrid也从来未用msflexgrid
我觉得ListView比msflexgrid灵活的多 呵呵 推荐你用一下ListView我认为导入到Excel也不外乎行列输入
dim objExcel as Excel.Application
//在此之前在 工程->引用 中引用一下Excel library
然后创建一个sheets 
然后用cells就可以添加了

Answer 1

'先工程->引用 Excel9.0或8.0或10.0
Dim m As Integer                        '产生excel
    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.Worksheets(1)
    
    For I = 1 To rscount                   '一行一行的导入excel,共有几行(即多少条记录)
        MSHFlexGrid1.Row = I               '第一行(即第一字段)
        For m = 1 To 3                    '共三个字段
            MSHFlexGrid1.Col = m
            xlSheet.Cells(I, m).Value = MSHFlexGrid1.Text
        Next m
    Next I
    xlSheet.SaveAs filename
    xlSheet.Application.Quit
    Set xlSheet = Nothing