首页 > 代码库 > 机房收费系统———如何将MSFlexGrid中的数据导入到Excel中
机房收费系统———如何将MSFlexGrid中的数据导入到Excel中
机房收费系统进行了一段时间了,虽然说大体上跟学生信息管理系统一样,不过也有不一样的地方。比如说报表、如何将MSFlexGrid中德数据导入到Excel中等等。这些东西原来没有接触过,第一次接触难免有些陌生。这些问题困扰了我好长-时间,一看到它头都大了。不过,提高班名言——不将就是发现的源动力。本着这一原则,慢慢的攻克了这些问题。
机房收费系统中好几个地方需要将MSFlexGrid中德数据导入到Excel中,这是在学生信息管理系统中没有的功能。首先,首先需要在vb里面引用我们所需要的对象:Microsoft excel 14.0 object library。因为好几个窗体都要用到这个,所以为了简单起见,直接在模块中进行声明一下,到时候直接调用就Ok了。
下边是模块中的代码:
- ‘MSHflexgrid 控件中的数据导入到excel表中
- Public Sub export(formname As Form, flexgridname As String) ‘参数传递
- Dim xlApp As Object ‘创建一个类 用来创建excel实例化对象
- Dim xlBook As Object ‘Excel.Workbook ‘用来创建工作薄
- Dim xlSheet As Object ‘Excel.Worksheet ‘用来创建一个工作表
- ‘鼠标指针的形状变为沙漏型,表明正在导入数据
- Screen.MousePointer = vbHourglass
- On Error GoTo Err_Proc ‘错误处理过程
- Set xlApp = CreateObject("Excel.Application") ‘将类xlApp实例化为一个excel表
- Set xlBook = xlApp.Workbooks.Add
- 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
- Screen.MousePointer = vbDefault
- Exit Sub
- Err_Proc:
- ‘鼠标回复原样
- Screen.MousePointer = vbDefault
- MsgBox "请确认您的电脑已安装Excel!", vbExclamation, "提示"
- End Sub
当调用这个过程时,只需要
- Private Sub cmdLead_Click()
- Call export(Me, "myflexgrid")
- End Sub
这样就Ok了。
这只是将MSFlexGrid中德数据导入到Excel中的其中一种方法,相信还有很多种方法可以实现这一过程。在这里就不一一论述了,以上有不足之处,还望各位朋友指正。
机房收费系统———如何将MSFlexGrid中的数据导入到Excel中
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。