机房收费系统—导出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比较感兴趣,所以当遇到这个知识点的时候,自己...
  • zmh458
  • zmh458
  • 2016年07月29日 19:55
  • 378

机房收费系统~导出Excel

这次做机房收费系统,正好赶上和小伙伴们做项目,学到了很多,在导出Excel的基础上添加了一些以前没有尝试过的功能,供大家参考。...
  • WKX18330698534
  • WKX18330698534
  • 2016年04月23日 20:26
  • 720

机房收费系统之导出excel表

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

第一次机房收费系统—导出Excel

今天大放血,说好的今天要发出自己的大量笔记,以前认为这些东西不需要以博客的形式写,不知道为什么,总感觉CSDN是写高大上的地方,自己的笔记Low爆了,所以一直放着不发,还是那句话,总结总结不断总结!去...
  • fjxcsdn
  • fjxcsdn
  • 2017年12月03日 17:08
  • 189

(vb)机房收费系统之——调用excel 表格(引用)

在机房收费系统中,将vb中的数据导出到excel表格真的很重要,在这里遇到了各种各样的问题,下来和我一起来解决它吧!!一、前期准备工作在解决问题之前,我先声明一下,我的是office 2013,有些版...
  • jerry11112
  • jerry11112
  • 2017年11月16日 20:11
  • 228

机房收费系统(五)---导出Excel表

机房收费系统中的Excel导出。
  • Mabanana
  • Mabanana
  • 2017年09月24日 20:17
  • 527

机房收费系统————导出到Excel

机房收费系统中有很多之前在敲学生的时候没有接触到的功能,遇到的第一个陌生的就是把数据导出到Excel中,那么这个功能是怎么实现的呢? 首先,在VB中“工程”——>”引用"中添加引用 如果没有这个选...
  • yiwangxiblog
  • yiwangxiblog
  • 2015年06月21日 19:23
  • 664

机房收费系统——导出Excel表

前言      机房收费系统进行了很长时间,其中很典型的一个功能就是导出Excel表格,很多窗体都需要实现这个功能。 主要内容       首先需要在VB的“工程”→引用  Microsoft Exc...
  • Sophia_0331
  • Sophia_0331
  • 2018年01月01日 20:47
  • 119

第一次机房收费系统之导出到Excel

导出到excel是机房收费系统中很重要的一个功能,在里面占了很多的比重,很多页面都用到了这个功能。现在来学习一下怎样做出这个功能: 第一步:在VB中“工程”→“引用”中添加引用:        “...
  • sz15732624895
  • sz15732624895
  • 2015年10月25日 10:51
  • 986

机房收费系统之导出Excel

刚开始接触机房收费的时候,连上数据库,配置ODBC,登陆进去,那窗体叫一个多,不由地有种害怕的感觉,但是有人说,每天努力一点点,就会进步一点点,不会的就会少一点点,会的就会多一点点........  ...
  • u010850027
  • u010850027
  • 2013年11月08日 17:15
  • 3998
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:机房收费系统—导出excel
举报原因:
原因补充:

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