vb中MSFlexGrid控件中的数据导出到execel中

随着对VB的深入学习，对程序的理解也进一步加深，实质也就是从不同的方面看待开发环境。在上一篇博客中已经用到了这种思想，就从窗体中的控件的角度解决问题。在如何将中MSFlexGrid控件中的数据导出到execel中？这个问题中也用到了这种思想。其实质还没有脱离控件的实质。虽然还没有正是接触过“类”这个概念，但是通过这个例子，感受到vb中控件可类的一致性。

先贴出代码：

Public Sub Export(frmName As Form,flexgridName As String)
    Dim xlapp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    
    Set xlapp = CreateObject("Excel.application")
    Set xlBook = xlapp.workbooks.Add
    Set xlSheet = xlBook.worksheets(1)
    
    Dim i As Integer
    Dim j As Integer
    With frmName.Controls(flexgridName)
        For i = 0 To .Rows - 1
            For j = 0 To .Cols - 1
                xlSheet.cells(i + 1,j + 1).Value = "'" & .TextMatrix(i,j)
            Next j
        Next i
    End With
    xlapp.Visible = True
    Exit Sub
End Sub

------继承、封装、多态

同时在将数据从MSFlexGrid导出到execel中的时候用到了双重循环，挺值得借鉴的，虽然之前自己也想到了这个方面，但还是没发亲自实现，还是要继续，深入理解啊。同时在做这个程序的时候有了一个新的收获。就是在写一个过程函数的时候可以从核心的地方写起，也就是这里的这句话：

xlSheet.cells(i + 1,j)

然后再进行代码的扩充，姑且叫做逆向思维吧！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!