【机房】导出Excel表格

在机房收费系统中，很多地方都用到了导出Excel表格，表格的使用给我们带来了很多方便，下面来说一下如何导出Excel表格。

添加引用

工程—引用——Microsoft Excel 14.0 Object Library

在导出为Excel的按钮下面写代码:

Private Sub cmdExportExcel_Click()
    Dim xlApp As New Excel.Application '声明Excel对象
    Dim xlbook As Excel.Workbook '声明工作薄对象
    Dim xlsheet As Excel.Worksheet '声明工作表单
    Dim i As Integer
    Dim j As Integer
        
    If MSHFlexGrid1.Text = "" Then              '判断是否有记录可以导出
        MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        Set xlApp = CreateObject("excel.application")     '调用execel程序
        Set xlbook = xlApp.Workbooks.Add(1)               '创建新的空白簿
        Set xlsheet = Excel.ActiveWorkbook.ActiveSheet
            For i = 0 To MSHFlexGrid1.Rows - 1            '填入数据
            For j = 0 To MSHFlexGrid1.Cols - 1
                xlsheet.Cells(i + 1, j + 1) = MSHFlexGrid1.TextMatrix(i, j)        'cell(a,b)表示a行，b列
            Next j
            Next i
        xlApp.Visible = True         '显示Excel表格
        Set xlApp = Nothing          '交还控制给Excel
    End If
End Sub


  

 

  
 
 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
 

有更简洁的办法，欢迎交流~

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/107458094