机房收费系统———如何将MSFlexGrid中的数据导入到Excel中
2013-11-22 17:02
375 查看
机房收费系统进行了一段时间了,虽然说大体上跟学生信息管理系统一样,不过也有不一样的地方。比如说报表、如何将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中的其中一种方法,相信还有很多种方法可以实现这一过程。在这里就不一一论述了,以上有不足之处,还望各位朋友指正。
相关文章推荐
- 【机房收费系统】VB中如何将数据导入excel2013
- VB.Net机房收费系统(三层)——将datagirdview 控件数据导入Excel
- 机房收费系统——在VB中将MSHFlexGrid控件中的数据导出到Excel
- 机房收费系统——将MSHFlexGrid控件中的数据导出到Excel
- 机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel
- 第一次机房收费系统—Excel导出数据
- 【机房收费系统】从MSHflexgrid控件导入到Excel
- 机房收费系统之—如何查询两个日期之间的数据
- 机房收费系统之将数据导出到Excel
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- 机房收费系统之用VB导出数据到Excel
- 【机房收费系统】如何查询固定时间段内的数据MSHflexGrid
- 【机房收费系统】VB与grid++report交互(如何让数据以报表格式显示)
- 机房收费系统颗粒大归仓之----DTPicker控件与导出数据为Excel
- 【机房收费系统——导入Excel】
- [FIM]如何从A导入数据,同步到B,在A系统中删除数据,在B系统中删除数据
- EXCEL数据导入TIPTOP ERP 系统
- 机房收费系统的初步尝试——导入数据库文件
- MATLAB/Excel-如何将Excel数据导入MATLAB中
- C#导出数据到Excel模板and如何画Excel模板并导出数据,导入excel数据