【VB】MSHFlexGrid中数据导入到Excel(机房问题)

●项目 同时被 3 个专栏收录
27 篇文章 0 订阅
15 篇文章 1 订阅

在机房收费系统中,有的窗体含有导入到Excel功能,比如收取金额查询窗体,我们如何用VB代码实现从MSHFlexGrid中导入数据到Excel呢?

我知道的有两种方法,但是第一种方法需要引用部件,很多电脑上都没有该部件,所以我用了代码方法来实现这个功能。

首先,在模块中:

    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 = True
    Screen.MousePointer = vbDefault
    Exit Sub
    
Err_Proc:
    Screen.MousePointer = vbDefault
    MsgBox "请确认您的电脑已安装Excel!", vbExclamation, "提示"
End Sub
然后,在导入CMD下写:

    Export Me, "MSHFlexGrid1"
到此,成功将MSHFlexGrid中数据导入到Excel中。


  • 0
    点赞
  • 20
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 书香水墨 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值