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

96 阅读 0 评论 64 点赞

我是靠谱客的博主文艺八宝粥，这篇文章主要介绍（vb）机房收费系统之——调用excel 表格(引用)，现在分享给大家，希望可以做个参考。

在机房收费系统中，将vb中的数据导出到excel表格真的很重要，在这里遇到了各种各样的问题，下来和我一起来解决它吧！！

一、前期准备工作

在解决问题之前，我先声明一下，我的是office 2013，有些版本不一样，只会有一点点差别，只需要模仿就好！

1、点击工程——引用，去找到microsoft excel 15.0 object library，打上勾就好！

这里写图片描述

2、如果此时你的引用里没有microsoft excel 15.0 object library，那么这时候就需要点击浏览，找到你安装文件office的位置，找到位置后打开office 2013！

这里写图片描述

3、此时点击了office15，然后，点击文件类型，选择.exe,然后找到execel.exe,点击，然后点击打开.

这里写图片描述

4、此时就大公告成了

这里写图片描述

二、代码部分

这部分我还是有很多感想的，大家都知道机房收费系统中，有很多都需要导成excel表格的形式，什么是解决重复的代码最好的帮手呢？模块就是！在模块里我们定义一个函数，用来调用excel！会减少大量的代码，接下来大家一起和我来实现它吧！！

1、模块的代码部分！

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Function EduceExcel(myGrid As MSFlexGrid)
'定义导出excel函数
Dim xlapp As New excel.Application
'之所以用到new。是因为是引用类型，声明excel对象
Dim xlbook As excel.Workbook
'声明工作簿对象
Dim xlsheet As excel.Worksheet
'声明工作表单
Dim i As Integer
Dim j As Integer
If myGrid.Text = "" Then
MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
Exit Function
Else
Set xlapp = CreateObject("excel.application")
'调用excel程序
Set xlbook = xlapp.Workbooks.Add(1)
'创建新的空白簿
Set xlsheet = excel.ActiveWorkbook.ActiveSheet '创建新的工作表单
For i = 0 To myGrid.Rows - 1
'填入数据
For j = 0 To myGrid.Cols - 1
xlsheet.Cells(i + 1, j + 1) = myGrid.TextMatrix(i, j)
'cell(a,b)表示a行，b列，这让写是因为vb中默认是从0开始的，而excel是从1开始的
Next j
Next i
xlapp.Visible = True
'显示Excel表格
Set xlapp = Nothing
'交还控制给Excel
End If
End Function