VB-机房收费系统之Excel导出
来源:互联网 发布:数据库阻塞和死锁区别 编辑:程序博客网 时间:2024/05/22 06:37
敲机房很久了,感觉对代码的感知力终于有所提高了,很是开心。今天在敲学生充值记录查询的时候发现,其中有了新的知识, 这时候就该到了分析问题的时候了。不说废话了!
首先
保证自己的笔记本或者电脑上必须有Office。
接着
在VB中我们要找到所要用到的控件:Microsoft Excel14.0 Object Labilary。步骤如下:
工程——引用——Microsoft Excel14.0 Object Labilary
然后
有了工具,当然得赶紧实现他的用途了。在生活中,我们有时候需要对自己查出来的数据进行处理,有时候数据所在的地方不容易进行编辑,需要给它换个环境进行完美的编辑,这时候这个工具就发挥作用了。看吧↓↓
功能:实现从MSHFlexgrid中导出数据到Excel表格中。
分析:首先确定控件MSHFlexGrid中是否有数据;然后创建一个Application,将数据写入到Excel。
实践:
Private Sub CmdOut_Click() '判断MSHFlexGrid控件中是否有可写入Excel是数据。 If MyFlexGrid.TextMatrix(1, 0) = "" Then MsgBox "没有可以导入到Excel的数据!", vbOKOnly + vbExclamation, "警告!" Exit Sub End '创建一个Application对象 Dim excelApp As Excel.Application Set excelApp = New Excel.Application '绑定 Set excelApp = CreateObject("Excel.Application") '向Excel中写入数据 Dim exbook As Excel.Workbook Dim exsheet As Excel.Worksheet Set exbook = excelApp.Workbooks.Add excelApp.SheetsInNewWorkbook = 1 '设置为可见 excelApp.Visible = True '将控件Myflexgrid显示内容写入Excel Dim i As Integer Dim j As Integer With excelApp.ActiveSheet For i = 1 To MyFlexGrid.Rows For j = 1 To MyFlexGrid.Cols .Cells(i, j).Value = "" & Format$(MyFlexGrid.TextMatrix(i - 1, j - 1)) Next j Next i End With '清空并关闭 Set exsheet = Nothing<pre name="code" class="html">以上就是整个VB中导出Excel表的过程与实践。看看机房收费系统,有好多地方都用到了将MSHFlexGrid控件中的数据导出到Excel表格这个功能。想想为什么不自定义一个过程,然后用到的时候直接调用不就可以了吗?于是就有了下面的东西:
</pre><pre name="code" class="html">Public Sub excelOut(MyFlexGrid As MSHFlexGrid) Dim excelbook As Object Dim excelsheet As Object Dim excelApp As Excel.Application Dim i As Integer Dim j As Integer Set excelApp = New Excel.Application '创建对象 Set excelApp = CreateObject("excel.application") '打开文件 excelbook = excelApp.Workbooks.Add '对象可见 excelApp.Visible = True With excelApp.ActiveSheet For i = 1 To MyFlexGrid.Rows For j = 1 To MyFlexGrid.Cols .Cells(i, j).Value = "" & Format$(MyFlexGrid.TextMatrix(i - 1, j - 1)) Next j Next i End WithEnd Sub
用到的时候直接调用就OK了。
Private Sub cmdOut_Click() '输出 '如果行数小于2,就没有数据,如果大于2,就调用函数输出导出excel表 If Rechargeflexgrid.Rows < 2 Then MsgBox "没有数据!", vbOKOnly + vbExclamation, "警告" Exit Sub Else Call excelOut(RechargeMyflexgrid) '调用模块中定义的函数 End IfEnd Sub只要努力坚持,相信自己,我们一定能行。
1 1
- VB-机房收费系统之Excel导出
- 机房收费系统之用VB导出数据到Excel
- 机房收费系统之导出Excel函数
- 机房收费系统之导出Excel
- 机房收费系统之 导出excel
- 机房收费系统之导出为Excel
- 机房收费系统之导出Excel
- 机房收费系统之导出Excel表格
- 机房收费系统之导出为Excel
- 机房收费系统之导出Excel
- 机房收费系统之导出excel表
- VB.NET版机房收费系统---导出Excel表格
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- 机房收费系统--Excel导出
- 机房收费系统~导出Excel
- 机房收费 之 Excel导出
- 机房收费系统之将数据导出到Excel
- 第一次机房收费系统之导出到Excel
- 使用ant进行web打包
- EventBus使用详解(一)初步
- hdu 4099 Revenge of Fibonacci(字典树)
- UEFI规范实现EDKII项目学习笔记绪论[0]
- JavaScript对象和数组
- VB-机房收费系统之Excel导出
- javaScript中Math对象的基本介绍
- Flocker浅析与Docker插件(1)
- hping 安装问题
- android 改变图片 字体颜色
- CodeForces 548B
- hdu 1698 Just a Hook
- Course Schedule
- 大端 与 小端