【代码】VB导出Excel

最新推荐文章于 2016-11-15 14:39:16 发布

遥寄三山

最新推荐文章于 2016-11-15 14:39:16 发布

阅读量1.3k

点赞数

分类专栏： ●其他 ------【代码库】文章标签： VB版导出到excel

本文链接：https://blog.csdn.net/sds15732622190/article/details/51295945

版权

这段VB代码展示了如何从表单中的控件MSHFlexGrid导出数据到新的Excel工作簿。通过创建Excel应用程序对象，添加工作簿和工作表，然后遍历网格中的单元格填充数据，最后使Excel可见。

摘要由CSDN通过智能技术生成

    Public Sub Export(frmName As Form, FlexGridName As String)

    Dim xlApp As Object                 'Excel.Application
    Dim xlBook As Object                'Excel.Workbook
    Dim xlSheet As Object               'Excel.Worksheet

    Screen.MousePointer = vbHourglass
    
    On Error GoTo Err_Proc
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

    '向表中添加数据
    Dim intRowIndex As Integer
    Dim intColIndex As Integer
    
    With frmName.Controls(FlexGridName)  '查找控件
        '填充数据到Sheet1
        For intRowIndex = 0 To .Rows - 1
            For intColIndex = 0 To .Cols - 1
                xlSheet.Cells(intRowIndex + 1, intColIndex + 1).Value = "'" & .TextMatrix(intRowIndex, intColIndex)
            Next intColIndex
        Next intRowIndex
    End With
    
    xlApp.Visible =