机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel

大佬教程收集整理的这篇文章主要介绍了机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

在做机房收费系统的时候，许多窗体用到的一个功能，就是将从数据库中提取出来的数据导出到Excel中。

首先，引用Microsoft Excel 14.0 Object Library

然后，写代码

Public Sub OutDataToExcel(Flex As MSHFlexGrid)  '导出至Excel

    Dim i As Integer
    Dim j As Integer
    Dim Line As Integer
    Dim outExcel As Excel.Application
    
    Set outExcel = New Excel.Application  '实例化Excelapp
    
    '返回或设置插入microsoft excel 新工作薄中工作表的数目
    outExcel.SheetsInNewWorkbook = 1
     
     '添加新的工作薄
    outExcel.Workbooks.Add
    
    'excel刚打开时，设定游标的位置
    outExcel.Range("K1").SELEct
    
    '字形
    outExcel.SELEction.Font.FontStyle = "Bold"
    outExcel.SELEction.Font.Size = 14           '字体大小
    
    With Flex
        Line = .Rows
        For i = 0 To Line - 1  '行循环
            For j = 0 To .Cols - 1    '列循环
                '将数据导入到Excel中
                outExcel.ActiveSheet.Cells(1 + i,j + 1) = "'" & .TextMatrix(i,j)
            Next j
        Next i
    End With
    
    outExcel.Visible = True   '是否显示导出过程（true是）
       
End Sub

Private Sub cmdExport_Click()
    OutDataToExcel myFlexGrid       '将myflexgrid中的数据导出至Excel
End Sub

显示数据库中的数据，可以用MSHflexgrid控件，也可以用DataGrid控件，后者需要引用MicrosoftActiveXDateObjects2.0Library，并且添加MicrosoftDategridControl6.0部件。

大佬总结

以上是大佬教程为你收集整理的机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel全部内容，希望文章能够帮你解决机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。