MsFlexGrid导出Excel

 

     首先在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。 

 

Private Sub cmdExp_Click()

    Dim newxls As Excel.Application

    Dim newbook As Excel.Workbook

    Dim newsheet As Excel.Worksheet

    Dim i, j As Long

    

    Set newxls = CreateObject("Excel.Application") '创建excel应用程序，打开excel

    Set newbook = newxls.Workbooks.Add   '创建工作簿

    Set newsheet = newbook.Worksheets(1) '创建工作表

    

    With newxls

        .Rows(1).Font.Bold = True

    End With

    

On Error Resume Next         '如果有错误继续执行下一条

    For i = 0 To grid.Rows

        For j = 0 To grid.Cols

            newsheet.Cells(i + 1, j + 1) = "'" & grid.TextMatrix(i, j)

        Next j

    Next i

 

    newxls.Visible = True

    newxls.ActiveWorkbook.SaveAs ("c:\22.xls")

On Error GoTo 0

    Set newxls = Nothing

End Sub