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

（编辑：李大同）

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