MSHFlexGrid中的数据导出为Excel

?

? ? 在机房收费系统中，需要查询充值金额。选择好日期段，点“查询”即在MSHFlexGrid（在这里，此控件命名为：MSHFGRecharge_Records）控件中显示信息（看下图——图1）。那如何将将显示出的信息导出为Excel呢？

?图1

导出方法（大体思路）：

1.引用excel对象:MicrosoftExcel 14.0 Ojbect Library

2.创建Application对象:SetxlsApp = CreateObject("Excel.Application")

3.使用Application及其子对象:将mshflexgrid中的记录对应的导出到excel中

4.关闭Application对象:Set xlsApp = Nothing

?

代码部分：

Private Sub cmdTo_Excel_Click()
    Dim xlsApp As Excel.Application     '存储所创建的EXCEL对象
    Dim xlsBook As Excel.Workbook       '存储所创建的EXCEL工件簿文件
    Dim xlsSheet As Excel.Worksheet     '存储所设置的活动工作表
    Dim intForRow As Integer            'for循环语句中的循环变量，用于控制行
    Dim intForCol As Integer            'for循环语句中的循环变量，用于控制列
 
    Set xlsApp =CreateObject("Excel.Application")       '创建EXCEL对象
    Set xlsBook = xlsApp.Workbooks.Add                  '新建EXCEL工件簿文件
    Set xlsSheet = xlsBook.Worksheets(1)                '设置活动工作表
 
    '把表格中的数据写入Excel对象中
    For intForRow = 0 To MSHFGRecharge_Records.Rows - 1
        For intForCol = 0 To MSHFGRecharge_Records.Cols - 1
            If intForCol = 0 Then       '第一行为学号，让其以字符形式显示，否则学号中前面的“0”就不显示
                xlsSheet.Cells(intForRow + 1,intForCol + 1) = "'" &MSHFGRecharge_Records.TextMatrix(intForRow,intForCol)
            Else
                xlsSheet.Cells(intForRow + 1,intForCol + 1) = MSHFGRecharge_Records.TextMatrix(intForRow,intForCol)
            End If
        Next intForCol
    Next intForRow
 
    xlsApp.Visible = True                               '显示Excel
    Set xlsApp = Nothing                                '交还控制给Excel
End Sub

?注意：

? ? 看第一张图，卡号中有以0开头的。如果直接把表格中的数据导出到Excel中，卡号中的0就不会显示（见图2）。说明，默认导出的为非字符型格式，这就相当于，直接在Excel的单元格中输入数字，默认为数值型。那如何显示0呢？当然得转成字符形式。因此，上方代码，For循环语句中，用一个“If”语句进行选择：只要是首行的数据，就在前面加一个英文的单引号“'”。从而在Excel中，首列单元格中数据转成了字符型，消失的0奇迹般再现（见图3）！

? ?图2

?

???图3