机房收费系统—导出excel

原创 2016年08月29日 17:55:32

机房收费系统中导出excel是从来没有接触过的知识,下面就来介绍一下方法。

一:直接引用VB中自带的Microsoft Excel 14.0 Object Library

Private Sub Excel_Click()                                           '将数据导出到excel

    Dim i As Integer
    Dim j As Integer


    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet


    '对象实例化,使其可见
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    '实例化工作簿和表单
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    '将MSHFLEXGRID中的数据导入到excel
    For i = 0 To myflexgrid.Rows - 1
        For j = 0 To myflexgrid.Cols - 1
            myflexgrid.Row = i
            myflexgrid.Col = j
            xlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)
        Next
    Next
End Sub
二:在根目录中事先建立空的Excel表格

1在与VB工程同一个根目录中建立将要导入数据的空excel表格

2在VB中写代码

Private Sub Command3_Click()
        '导出数据
    Dim i As Integer
    Dim j As Integer
    myflexgrid.Redraw = False '关闭表格重画
    
    Set xlApp = CreateObject("Excel.Application")  '创建EXCEL对象
    '打开已经存在的excel工作薄文件
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\新建 Microsoft Excel 工作表 (2).xlsx")
    xlApp.Visible = True '设置excel对象可见
    
    Set xlSheet = xlBook.Worksheets("Sheet1")  '设置活动工作表
    
    For i = 0 To myflexgrid.Rows - 1 '行循环
        For j = 0 To myflexgrid.Cols - 1 '列循环
            myflexgrid.Row = i
            myflexgrid.Col = j
            '保存到EXCEL
        xlBook.Worksheets("Sheet1").Cells(i + 1, j + 1) = myflexgrid.Text
        Next j
    Next i
        myflexgrid.Redraw = True
    
End Sub
这样既可以导出你要导出的数据了。


版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

机房收费系统—导出Excel表

学习机房学到的其中一个新的知识点就是导出Excel表,这个知识点是以前没有接触过的。也许是因为在机房这里接触到的新的知识多了,也许是因为自己对导出Excel比较感兴趣,所以当遇到这个知识点的时候,自己...

机房收费系统—查询并导出Excel表

15:30 时间过的很快,但是自己的进度确实有够慢的,很多同学已经开始进入到软工了,自己还为机房收费系统苦恼着。虽然进度很慢,但是每每解决一个问题都很兴奋。 开始都说,只要参考学生信息管理系统敲就...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

机房收费系统—Excel表

曾记得寒假学习的时候曾涉略过有关VB与excel交互的内容,当时感觉挺蒙的,如今当再次看到时,却是如此简单。   在VB中要把所需要的内容导入到excel表中,做法如下:    首先需要在vb里面引用...

机房收费系统之九(导出Excel)

在导出Excel表格之前,首先你的电脑已经安装了office。因为涉及导出Excel的窗体很多,所以可以编辑一个函数,用的时候直接调用,减少代码量。 导出Excel代码如下: Public Sub E...

机房收费系统之导出excel表

【前言】机房收费系统中好多地方都需要导出excel表格,这也不是什么难点也不是解决不了的问题,只要我们用心去查就一定能解决这个问题。 一、遇到的问题 这个小小的导出Excel表,我也遇到了很多的问题:...

机房收费系统之导出为Excel

在学生信息

机房收费系统总结之6——DataGridView导出为Excel

机房收费系统中有一个功能是把DataGridView导出为Excel。其实中难,正所谓“难者不会,会者不难”,下面就进行一下简要介绍。         形象起见,先看图: 一、...

机房收费系统颗粒大归仓之----DTPicker控件与导出数据为Excel

一、在组合查询窗体,有需要按时间查询的情况,这时我们可以在查询的文本框之上覆盖一个dtpicker控件,使其visible属性为false: 二、导出数据为excel

机房收费系统之用VB导出数据到Excel

用VB将显示在MSHFlexGrid控件中的查询结果导入到Excel表格中

【数据库学习】机房收费系统(三)导出Excel

前言 机房收费系统中有一些和外界交互的突破,导出Excel就是一个明显的例子。Excel让机房收费系统的数据更加方便的导出,借用Excel更好地服务于人民。    举例      下面以收取金额查询的...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)