VB导出Excel

hdzgx 2019-12-06

展开全文

完成查询充值记录的代码后，对查询+导出有一些感悟。

在学习机房收费系统时，对于查询+导出的困难，个人认为是导出相对于我自己比较难，主要有三点：

1，我写过程不熟练；
2，这是excel与vb的结合使用，由于VB与EXCEL由于分别属于不同的应用系统对于我来说是一个挑战；
3，是一个新的知识点。
我主要在写代码的时候，主要先了解了vb与Excel之间的关系。后来在完成了代码，其步骤如下：
第一步：
一般设计窗体时用到了MSHFlexGrid，MSHFlexGRid ，DataGrid等部件时，会需要导出一些报表，就会调用Microsoft Office Excel。我首先要连接下Excel的对象，因为在vb调用Excel中要用到一些对象。其对象如下图：

1， Application对象表示Excel运用程序本身。作用是提供在相应的程序，实例中当前用户的对象的信息。如图所示：

2，Workbook对象表示Excel应用程序的单个工作簿。主要是vb要制定一个特定的工作簿。

3，Worksheet对象就是我们平常在Excel的sheet表。主要是vb指定的一个特定的sheet表。包含了Range对象和Cell对象。range对象包含了cell对象。

4，Chart对象表示工作表中的图表。

介绍了以上的Excel对象后，我们在VB中调用Excel的时便会很清楚对象的声明，及位置，在脑海了就已经形成一幅Excel表。

第二部：代码。

在自定义过程中。代码如下：

Public Sub ExportExcel(formname As Form, FlexGridName As String) '参数传递
xlApp As Excel.Application '声明application对象,Excel运用程序本身。作用是提供在相应的程序，实例中当前用户的对象的信息。
Dim xlBook As Excel.WorkBook '声明workbook。Workbook对象表示Excel应用程序的单个工作簿。主要是vb要制定一个特定的工作簿。
Dim xlSheet As Excel.Worksheet '声明worksheet。Worksheet对象就是我们平常在Excel的sheet表。主要是vb指定的一个特定的sheet表。包含了Range对象和Cell对象。
Screen.MousePointer = 11 'Screen.MousePointer = vbHourglass 'VbHourglass 11 被显示的鼠标指针的类型为沙漏（表示等待状态）。
On Error GoTo Err_Proc
Set XLApp = CreateObject("Excel.Application")   '创建EXCEL对象
Set XLBook = XLApp.WorkBooks.Add    '添加一个EXCEL工件簿文件并且添加内容
'  Set XLSheet = XLBook.Worksheets("sheet1") '设置活动工作表，表的名字也可以更改，不再叙说
Set XLSheet = XLBook.WorkSheets(1)
'将数据填入到excel中
Dim LngRows As Long
Dim Intcols As Integer
With formname.Controls(FlexGridName)
'对行和列进行循环
For LngRows = 0 To .Rows - 1
For Intcols = 0 To .Cols - 1
XLSheet.Cells(LngRows + 1, Intcols + 1).Value = "'" & .TextMatrix(LngRows, Intcols)
Next Intcols
Next LngRows
End With
XLApp.Visible = True    '显示当前窗口
XLApp.Caption = "学生充值记录查询"  '更改 Excel 标题栏
'Screen.MousePointer = vbDefault  'vbDefault 0 （缺省值）形状由对象决定。
Screen.MousePointer = 0
Exit Sub
Err_Proc:
Screen.MousePointer = vbDefault 'vbDefault 0 （缺省值）形状由对象决定。
MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"
End Sub