机房收费之 Excel导出-CSDN博客

本文链接：https://blog.csdn.net/yxflovegs2012/article/details/39084695

在机房收费里几乎每个用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">

机房收费 之 Excel导出

机房收费之 Excel导出