在学习sql时，我们就接触到数据的导入和导出，现在我们刚做完机房收费系统，接触到了将数据导出至EXCEL表中，我就来简单的介绍一下我实现它的方法。

由于在此系统中，我们要导出多次EXCEL数据，所以我将他们共同的地方进行PUBLIC声明，到时候可以直接进行调用！

1、事先，我们必须在对EXCEL进行引用如图：

Public Sub ToExcel(flexgrid As MSHFlexGrid) '声明一个ToExcel函数
   

'定义声明

    Dim xlsApp As Excel.Application      
    Dim xlsBook As Excel.Workbook
    Dim xlsSheet As Excel.Worksheet
    Dim listrst()
    
    '实例化
    On Error Resume Next
    Set xlsApp = New Excel.Application
    Set xlsBook = xlsApp.Workbooks.Add
    Set xlsSheet = xlsBook.ActiveSheet
    
    
    Dim introws As Long
    Dim intcols As Long
   
    
    'introws,intcols代表flexgrid表中的行和列
    introws = flexgrid.Rows
    intcols = flexgrid.Cols
    
    '重新声明数组表示Excel表中的行和列分别等于被导出表中的行和列
    ReDim listrst(introws,intcols)
     
     
    For i = 0 To flexgrid.Rows - 1
        For j = 0 To flexgrid.Cols - 1
            listrst(i,j) = Trim(flexgrid.TextMatrix(i,j))  '各行和列的数据对应相等
        Next j
    Next i
    
    DoEvents   'doevents用来转让控制权，将其转让给操作系统进行执行
    With xlsSheet
        xlsApp.Intersect(.Range(.Rows(1),.Rows(introws)),.Range(.Columns(1),.Columns(intcols))).Value = listrst
    End With
    
    xlsApp.Visible = True
    xlsApp.Interactive = True
End Sub

返回一个range对象，此对象代表两个或多个范围重叠的矩形区域。

expression.Intersect(Arg1,Arg2,...)expression 可选。该表达式返回一个Application对象。

Arg1,... Range 类型，必需。重叠的区域。必须指定至少两个 Range对象。

2：range：range()函数创建并返回一个包含指定范围的元素的数组。

可用 Range(arg)（其中 arg 为区域名称）来返回代表单个单元格或单元格区域的 Range 对象。

range() 函数创建并返回一个包含指定范围的元素的数组。

语法

range(first,second,step)

xlsApp.Intersect(.Range(.Rows(1),.Columns(intcols))).Value = listrst