将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

'将下列代码写在到一个模块里面，进行调用，调用方法：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