在机房收费里几乎每个用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 If
End Function
</pre></p><p></p><p><pre class="vb" name="code">