机房收费系统——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控件,后者需要引用Microsoft ActiveX Date Objects2.0 Library,并且添加Microsoft Dategrid Control6.0部件。

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏Google Dart

AngularDart 4.0 高级-生命周期钩子 顶

Angular创建它,渲染它,创建和渲染它的子项,在数据绑定属性发生变化时对其进行检查,并在将它从DOM中删除之前对其进行销毁。

1161
来自专栏Golang语言社区

【Go 语言社区】Go语言条件变量的两个例子

在Go语言中 sync.Cond 代表条件变量,但它需要配置锁才能有用. var m Mutex c := NewCond(&m) 或 c := sync.N...

4047
来自专栏技术墨客

React学习(最终篇)—— 高阶应用:高阶组件(HOCs)

高阶组件(higher-order components:以下简称HOC或HOC组件)是一个React组件复用的高级技巧。HOCs本身并不是React的API接...

2534
来自专栏hbbliyong

C#基础知识回顾--委托事件

在上一篇看到他我一下子就悟了---委托,被人狂喷。说写的太空,没有什么内容之类的。所以准备在这里重写下,不过还是按着以前的方式尽量简单的写。这里我们以打篮球为...

3494
来自专栏用户2442861的专栏

IDEA Intellij小技巧和插件

使用IDEA Intellij已有两年,在此罗列一下在实践中觉得能有效提升开发效率的一些小技巧和插件。  1. 重设移动键 方向键和Home/End键离...

3921
来自专栏Java学习网

Chrome开发者工具的小技巧

 Chrome的开发者工具是个很强大的东西,相信程序员们都不会陌生,不过有些小功能可能并不为大众所知,所以,写下这篇文章罗列一下可能你所不知道的功能,有的功能可...

4104
来自专栏coder修行路

python爬虫从入门到放弃(八)之 Selenium库的使用

一、什么是Selenium selenium 是一套完整的web应用程序测试系统,包含了测试的录制(selenium IDE),编写及运行(Selenium R...

7517
来自专栏python_lwx

新手请教python抽奖程序

大家好,我开始学python,想做一个抽奖程序,源代码如下,如果我要在框架内加上1等奖1个人 ,2等奖2个人,三等奖3个人 应该怎么样编写相关联的代码,就是点击...

5114
来自专栏salesforce零基础学习

salesforce lightning零基础学习(九) Aura Js 浅谈二: Event篇

上一篇介绍了Aura Framework中 Component类的部分方法,本篇将要介绍Event常用的方法。

911
来自专栏james大数据架构

.net页面生命周期

.net页面生命周期 (1)Page_Init();---初始化对象 这一过程主要是初始化包括页面本身的所有控件,每次的页面载入就会执行一次初试过程,而在这里面...

1897

扫码关注云+社区

领取腾讯云代金券