如何将MSFlexGrid表格数据导出为Excel

1.引用
在这里插入图片描述
2.在模块中编写代码

Public Function ExportToExcel(msflexgrid As msflexgrid)
    Dim xlapp As Excel.Application '定义excel类
    Dim xlbook As Excel.Workbook   '定义工作簿类
    Dim xlsheet As Excel.Worksheet '定义工作表类
    
    Dim i As Integer '定义控件的行数
    Dim j As Integer '定义控件的列数
    
    Set xlapp = CreateObject("excel.application")   '创建excel应用类
    xlapp.Visible = True                            '设置excel对象可见
    Set xlbook = xlapp.Workbooks.Add                '打开ex1cel工作簿文件
    Set xlsheet = xlbook.Worksheets("sheet1")       '打开excel工作表
    
    '将数据导入excel表中
    
    '行循环
    For i = 0 To msflexgrid.Rows - 1
    '列循环
    For j = 0 To msflexgrid.Cols - 1
        msflexgrid.Row = i
        msflexgrid.Col = j
        '保存在excel中
        xlbook.Worksheets("sheet1").Cells(i + 1, j + 1) = msflexgrid.Text
    Next j
    Next i
 
    msflexgrid.Redraw = True       '允许重画表格控件
   
End Function

3.在窗体中调用

Private Sub cmdexcel_Click()
    Call ExportToExcel(MSFlexGrid1)
End Sub
评论 11
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值