机房收费系统之导出为Excel_成为机房最亮的人在代码-优快云博客

本文链接：https://blog.youkuaiyun.com/u010097777/article/details/16600123

本文介绍了一种将MSHFlexGrid中的查询结果导出到Excel的方法。通过简单的VBA代码实现数据从网格到Excel表格的迁移，便于进一步的数据编辑与处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

很多查询结果在MSHFlexGrid中显示后，我们还希望有那么一个独立的地方呈现这些数据，既清晰还可以进行一些编辑运算。下面是如何实现MSHFlexGrid中查询结果显示在Eccel表格中。

首先，选择工程—引用—Microsoft Excel 14.0 Object Library 。

代码部分：

Private Sub cmdTable_Click()
    Dim i As Integer
    Dim j As Integer
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = CreateObject("Excel.Application")    '实例化对象xlApp,这句话运行一次就有一个新的Excel窗口出来,即一个新的应用程序
        xlApp.Visible = True
        
    Set xlBook = xlApp.Workbooks.Add      '这句话运行一次就有一个新的工作簿文件出来，工作簿就在xlApp这个窗口里面
    Set xlSheet = xlBook.Worksheets(1)    '这句话获取xlbook工作簿里面第二个sheet表。一般默认一个工作簿新建后有三张表，如果不够用就用 xlbook.Worksheets.Add增加
    
    For i = 0 To myflexgrid.Rows - 1
        For j = 0 To myflexgrid.Cols - 1
           myflexgrid.Row = i
           myflexgrid.Col = j
           xlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)
        Next j
    Next i
    
End Sub

这样就OK了。