VB的MSHFlexGrid控件内容导入Excel

该博客介绍了如何在VB应用程序中,通过引用Microsoft Excel Object Library,将MSHFlexGrid控件中的内容导出到Excel文件。用户在VB中设置好相关代码后,可以实现数据的顺利转移。
摘要由CSDN通过智能技术生成
     机房收费系统中有很多窗体用到导出到Excel,说一下vb与Excel的交互,如何才能将MSHFlexgrid中的内容导出到Excel。

     首先在VB中添加引用Microsoft Excel 14.0 Object Library。然后找到相应按钮,在过程中添加如下代码:

<pre name="code" class="vb">Private Sub cmdExport_Click()
    Dim i As Long, j As Long
    Dim CellsData() As String <span>		</span>'定义数组承载数据
    
    'vb中定义excel对象
    Dim objApp As Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorksheet As Excel.Worksheet
    Dim objRange As Excel.Range
    
    '构建二维数组,容纳MSHFlexgrid中的内容
    ReDim CellsData(1 To myflexgrid.Rows, 1 To myflexgrid.Cols)
    For i = 1 To myflexgrid.Rows
        For j = 1 To myflexgrid.Cols
            CellsData(i, j) = myflexgrid.TextMatrix(i - 1, j - 1)
        Next
    Next
    
    '执行导出到excel中的代码
    Set
评论 13
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值