vb导出Excel

    vb在导出数据Excel时，刚开始是没有找到关于Excel的引用，后来查明我一直用的是WPS，需要装一个office才能解决该问题。后来果断装了一个，问题迎刃而解。下面是代码：

    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)              '新建一个sheet表

    Dim i As Long
    Dim j As Integer

    With myflexgrid
        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       '使得excel表可见

    Exit Sub