机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel
2013-11-17 15:49
453 查看
在做机房收费系统的时候,许多窗体用到的一个功能,就是将从数据库中提取出来的数据导出到Excel中。
首先,引用Microsoft Excel 14.0 Object Library
然后,写代码
Public Sub OutDataToExcel(Flex As MSHFlexGrid) '导出至Excel Dim i As Integer Dim j As Integer Dim Line As Integer Dim outExcel As Excel.Application Set outExcel = New Excel.Application '实例化Excelapp '返回或设置插入microsoft excel 新工作薄中工作表的数目 outExcel.SheetsInNewWorkbook = 1 '添加新的工作薄 outExcel.Workbooks.Add 'excel刚打开时,设定游标的位置 outExcel.Range("K1").Select '字形 outExcel.Selection.Font.FontStyle = "Bold" outExcel.Selection.Font.Size = 14 '字体大小 With Flex Line = .Rows For i = 0 To Line - 1 '行循环 For j = 0 To .Cols - 1 '列循环 '将数据导入到Excel中 outExcel.ActiveSheet.Cells(1 + i, j + 1) = "'" & .TextMatrix(i, j) Next j Next i End With outExcel.Visible = True '是否显示导出过程(true是) End Sub Private Sub cmdExport_Click() OutDataToExcel myFlexGrid '将myflexgrid中的数据导出至Excel End Sub
显示数据库中的数据,可以用MSHflexgrid控件,也可以用DataGrid控件,后者需要引用Microsoft ActiveX Date Objects2.0 Library,并且添加Microsoft Dategrid Control6.0部件。
相关文章推荐
- 机房收费系统——在VB中将MSHFlexGrid控件中的数据导出到Excel
- 机房收费系统——将MSHFlexGrid控件中的数据导出到Excel
- 机房收费系统之用VB导出数据到Excel
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- VB.Net机房收费系统(三层)——将datagirdview 控件数据导入Excel
- VB.NET机房收费系统导出Excel
- 机房收费系统之将数据导出到Excel
- 机房收费系统---将mshflexgrid控件的记录导出到excel
- 第一次机房收费系统—Excel导出数据
- 机房收费系统颗粒大归仓之----DTPicker控件与导出数据为Excel
- 【机房收费系统】VB与grid++report交互(如何让数据以报表格式显示)
- 机房收费系统之导出Excel
- 第一次机房收费系统—导出Excel
- 机房收费系统之导出Excel
- 机房收费系统之导出Excel
- VB.Net机房收费系统(三层)——用datagirdview 控件显示数据库数据
- 机房收费系统之导出Excel
- 【机房收费系统C#版】——导出Excel
- 【机房收费系统】从MSHflexgrid控件导入到Excel
- 机房收费系统———如何将MSFlexGrid中的数据导入到Excel中