vb如何将查询到的记录导出为Excel

3 篇文章 0 订阅

首先你需要点工程菜单,然后选用引用,找到MicrosoftExcel 12.0 Object Library,然后选中引用即可。中间的12.0是版本号,可能由于你的电脑装的Excel版本不一样而不一样。

然后输入一下代码:

'导出为Excel表格
Private Sub ExcelCmd_Click()
     
    Dim Introws As Integer                            '用做循环,表示MSHFlexGrid的总行数
    Dim Intcols As Integer                            '用做循环,表示MSHFlexGrid的总列数
    Dim XlsApp As Excel.Application                   '定义Excel对象
    Dim XlsSheet As Excel.Worksheet                   '定义Excel的表
    Dim XlsBook As Excel.Workbook                     '定义Excel的工作簿
    
    Set XlsApp = CreateObject("Excel.Application")    '实例化Excel对象
    Set XlsBook = XlsApp.Workbooks.Add                '加载工作簿
    Set XlsSheet = XlsBook.Worksheets(1)              '创建工作表
    
    '循环,导出MSHFlex1中的所有记录到Excel
    For Introws = 0 To MSHFlex1.Rows - 1
        For Intcols = 0 To MSHFlex1.Cols - 1
            If Intcols = 0 Then                       '第一列为学号,将其转换成字符串格式,否则首位的0无法显示
                XlsSheet.Cells(Introws + 1, Intcols + 1) = "'" & MSHFlex1.TextMatrix(Introws, Intcols)
            Else
                XlsSheet.Cells(Introws + 1, Intcols + 1) = MSHFlex1.TextMatrix(Introws, Intcols)
            End If
        Next Intcols
    Next Introws
    
    '释放对象
    XlsApp.Visible = True
    Set XlsApp = Nothing

总结一下我们在用到一个对象的时候:

首先都是找到这类东西,即声明,引用或者添加某一对象

然后是将这个东西实拿出来,就是让它能行使一定的功能,即类的实例话

最后用完了,放回去,即释放该对象

例如:Excel,报表,API,Active控件等等,都是按照这个思路来的,所以我们在用其它控件的时候也可以按照这个步骤来操作

评论 24
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值