将MSHFLEXGRID表格中数据导入Excel方法

机房收费系统在缓慢的进行着，很多功能都需要一点一点的实现，通过上网查找一些实现功能的方法，也都实现了，这个是实现将MSHFLEXGRID表格中数据导入到Excel中，方便保存起来和对数据进行处理。

实现这个导入数据功能并不向想象中的那么难，就是用代码来模仿我们手动导入的过程，用来实现，具体代码如下：

首先，我是把代码卸载导出按钮的单击事件里了，还可以写成一个函数，进行调用。

Private Sub cmdExcel_Click()
'将MSHFLEXGRID表格中的数据导入到Excel电子表格中

Dim TempExcel As Excel.Application '声明一个EXCEL应用程序对象
Dim TempSheet As Excel.Worksheet   '声明一个EXCEL工作簿
Dim intI As Integer                '循环变量
Dim intJ As Integer                '循环变量

'先判断MSHFLEXGRIDRECORD表中有没有数据
If MSHFlexGridRecord.Rows > 1 Then

'实例化Excel应用程序，并使其可见
Set TempExcel = New Excel.Application
TempExcel.Application.Visible = True

'在Excel应用程序中中增加一个工作簿
TempExcel.Workbooks.Add (1)

'实例化一个表单，并使其成为Excel程序中活动工作簿下的活动表单
Set TempSheet = TempExcel.ActiveWorkbook.ActiveSheet

'将MSHFLEXGRID表格中的数据，导入到活动表单中
For intI = 0 To MSHFlexGridRecord.Rows - 1

For intJ = 0 To MSHFlexGridRecord.Cols - 1

TempSheet.Cells(intI + 1, intJ + 1) = MSHFlexGridRecord.TextMatrix(intI, intJ)

Next intJ

Next intI

Else
'表中没有数据
MsgBox "没有可导出的数据！", vbOKOnly + vbExclamation, "警告"
Exit Sub

End If

End Sub

还有一种方法是写一个导出函数，函数的主要功能代码和上面的一样，只是我想了半天也不知道从何写起，写函数要确定包含哪些参数、返回值问题，想了一下应该有一个参数是窗体类型，因为，我们需要确定在哪个窗体中来调用，其次，要在这个窗体中可以访问MSHFLEXGRID控件，可以利用窗体控件数据Controls()集合和Form（）集合。

'将下列代码写在到一个模块里面，进行调用，调用方法：Call Export(Me,"MSHFLEXGRID")

Public Sub Export(formname As Form, flexgridname As String)

dim xlapp as object         '保存excel.application对象
dim xlbook as object        '保存excel.workbook对象
dim xlsheet as object       '保存excel.worksheet对象
'鼠标指针的形状变为沙漏型，表明正在导入数据
Screen.Mousepointer=vbhouglass
'错误处理过程

      on error goto Err_PROC

set xlapp=createobject("excel.application")
set xlbook=xlapp.workbooks.add
set xlsheet =xlbook.worksheets(1)

'开始将数据导入到Excel中
dim i as long
dim j as integer

with formname.controls(flexgridname)

for i=0 to .rows-1
for j=0 to .cols-1
xlsheet.cells(i+1,j+1).value="'" & .textmatrix(i,j)
next j
next i

       end with

xlapp.visible=true
screen.mousepointer=vbdefault
exit sub
Err_PROC
'鼠标回复默认形状
screen.mousepointer=vbdefault
msgbox "请确认您的电脑已安装Excel!"，vbexclamaition,"提示"

end sub

程序中每个功能看似难，只要我们一点一点的分析，就会变的简单，离做完收费系统还有一段距离，还有很多功能需要去实现，相信我们会把它做完。