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

原文地址:https://www.cnblogs.com/lilongsheng1125/p/4978695.html