【机房收费系统】VB中如何将数据导入excel2013

发布时间：2020-12-17 07:44:08 所属栏目：百科来源：网络整理

导读：数据的问题几乎贯穿每个系统的始终，数据输入，程序进行数据处理，然后数据输出，整个系统就完了 …… 前几篇博客讲了数据处理中的增删改查，今天，再来分享一种数据可视化的方法 —— 将数据导出至 excel 表格。首先我们要确保电脑上安装了 excel2013 （我

数据的问题几乎贯穿每个系统的始终，数据输入，程序进行数据处理，然后数据输出，整个系统就完了……前几篇博客讲了数据处理中的增删改查，今天，再来分享一种数据可视化的方法——将数据导出至excel表格。首先我们要确保电脑上安装了excel2013（我以2013版为例，10版引用上略有不同）

一、引用

具体实践操作如下：

先把文件类型切换到所有文件，然后选择excel.exe打开就好了

然后引用就完成了，完成后的结果如下图所示：

这样就我们就完成了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表格中，能使用户对于数据进行各种各样的运算处理。

缺点：显示样式的编辑性不强。

这就是这次博客想跟大家分享的，谢谢大家的阅读指正！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!