机房收费 之 Excel导出

在机房收费里几乎每个用MSHFGrid表查询到的结果都可以导出为Excel表，所以就在模块了直接写了一个函数，谁要用谁就调。

Public Function msgetexcel(flexgrid As MSFlexGrid)        ‘如果在窗体中使用的是MSFlexGrid可以将flexgrid 定义为MSFlexGrid  Dim exlapp As Excel.Application '定义exlapp为一个Excel  Dim exlbook As Excel.Workbook       '定义exlbook为一个工作簿  Dim exlsheet As Excel.Worksheet      '定义exlsheet为工作表  Set exlapp = New Excel.Application      '分别实例化  Set exlbook = exlapp.Workbooks.Add  Set exlsheet = exlbook.Worksheets(1)    If flexgrid.Rows > 1 Then  '判断需要导出数据的MSFlexGrid控件中是有内容的    Dim introw As Integer    '分别定义表示行和列的变量    Dim intcol As Integer        '如果有依次将flexgrid中的数据填入到Excel中    For introw = 0 To flexgrid.Rows - 1           For intcol = 0 To flexgrid.Cols - 1           exlsheet.Cells(introw + 1, intcol + 1).Value = flexgrid.TextMatrix(introw, intcol)            Next intcol     Next introw        exlapp.Visible = True   ’导出完毕以后显示工作表  Else    MsgBox "没有数据可以导出", vbOKOnly + vbExclamation, "警告"  End IfEnd Function

</pre></p><p></p><p><pre class="vb" name="code">