VB导出EXCEL表

            从"工程"菜单中选择"引用"栏；选择Microsoft Excel   14 .0 Object Library，然后选择"确定"。表示在工程中要引用EXCEL类型库。

    然后就是实现从MSHFlexGrid控件中将数据导出到EXCEL表中（注意：MSHFlexGrid控件是从第0行，第0列开始的，而EXCEL却是从第1行，第1列开始的）。代码如下： 

Dim i As Long    Dim j As Long
    If myFlexGrid.TextMatrix(1, 0) = "" Then
        MsgBox "没有数据导出", vbInformation, "提示"
        Exit Sub
    End If
'创建一个Application对象
    Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application
'绑定
    Set excelApp = CreateObject("Excel.Application")
'向Excel中写入数据
    Dim exbook  As Excel.Workbook
    Dim exsheet  As Excel.Worksheet
    Set exbook = excelApp.Workbooks.Add
    excelApp.SheetsInNewWorkbook = 1
'设置为可见
    exc