【机房收费系统】VB中如何将数据导入excel2013
2015-08-24 10:24
537 查看
数据的问题几乎贯穿每个系统的始终,数据输入,程序进行数据处理,然后数据输出,整个系统就完了……前几篇博客讲了数据处理中的增删改查,今天,再来分享一种数据可视化的方法——将数据导出至excel表格。首先我们要确保电脑上安装了excel2013(我以2013版为例,10版引用上略有不同)
先把文件类型切换到所有文件,然[b]后选择excel.exe 打开就好了[/b]
然后引用就完成了, 完成后的结果如下图所示:
这样就我们就完成了excel部分对象库的引用!接下来我们再来看相关的代码。
语句比较简单,我就不赘述了。 大家一定可以看得明白。我再来说说为什么要将数据导出到excel。它有什么好处。
缺点:但是显示数据量少,没有具体的数据显示格式,编辑控制复杂。且功能稀少。
缺点:使用过程相对复杂;没有什么数据处理能力。
缺点: 显示样式的编辑性不强。
这就是这次博客想跟大家分享的,谢谢大家的阅读指正!
一、引用
具体实践操作如下:先把文件类型切换到所有文件,然[b]后选择excel.exe 打开就好了[/b]
然后引用就完成了, 完成后的结果如下图所示:
这样就我们就完成了excel部分对象库的引用!接下来我们再来看相关的代码。
二、 代码书写
Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook '工作簿 Dim xlsheet As Excel.Worksheet Dim R As Long Dim c As Long myFlexGrid.Redraw = False Setxlapp = CreateObject("excel.application") Setxlbook = xlapp.Workbooks.Open(App.Path & "\1.xlsx") xlapp.Visible = True Setxlsheet = xlbook.Worksheets("sheet1") For R = 0 To myFlexGrid.Rows - 1 For c = 0 To myFlexGrid.Cols - 1 myFlexGrid.Row = R myFlexGrid.Col = c xlbook.Worksheets("sheet1").Cells(R + 1, c + 1) =myFlexGrid.Text Next c Next R myFlexGrid.Redraw = True xlapp.DisplayAlerts = False
语句比较简单,我就不赘述了。 大家一定可以看得明白。我再来说说为什么要将数据导出到excel。它有什么好处。
三、导出至excel的优缺点
我使用的主要的数据显示方式有三种:第一种 label、text 、myflexgrid
优点:这是vb中最基础的显示,使用灵活方便。缺点:但是显示数据量少,没有具体的数据显示格式,编辑控制复杂。且功能稀少。
第二种 report++grid 报表
优点:这种方式数据显示形式多样,清晰明了;数据显示功能丰富,可通过软件提前设计出比较友好的用户显示界面。缺点:使用过程相对复杂;没有什么数据处理能力。
第三种 excel表格
优点:使用相对方便,且极大的简化了数据的编辑难度; 连接到强大的excel表格中,能使用户对于数据进行各种各样的运算处理。缺点: 显示样式的编辑性不强。
这就是这次博客想跟大家分享的,谢谢大家的阅读指正!
相关文章推荐
- VB.NET中指针和非托管内存的应用
- vbox 安装增强功能 遇到的几个问题的总结
- 关于使用VBA调用AutoCAD的学习
- VB断点调试
- VBScript脚本要参考的网址
- VBS常用函数及功能
- Visual Basic相关图书推荐
- 用VBS控制鼠标,在Excel2010、2013,64位中
- 快速切换天财商龙门店后台.VB6.0
- 【机房收费系统】VB中的组合查询探索
- VBA常用语句----集中备查
- 【机房收费系统】VB中增删改查实践探索
- VBScript中处理浮点数相减的精度问题
- Word 图片操作
- VB控件的左对齐和上对齐Sub
- MVB设备分类
- MVB帧
- vb创建excel报48错误解决方法
- VB最新使用教程
- VB6.0 SP6 AOD应用笔记——第一部分