【代码】VB导出Excel

Public Sub Export(frmName As Form, FlexGridName As String)

Dim xlApp As Object                 'Excel.Application
Dim xlBook As Object                'Excel.Workbook
Dim xlSheet As Object               'Excel.Worksheet

Screen.MousePointer = vbHourglass

On Error GoTo Err_Proc

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

'向表中添加数据
Dim intRowIndex As Integer
Dim intColIndex As Integer

With frmName.Controls(FlexGridName)  '查找控件
'填充数据到Sheet1
For intRowIndex = 0 To .Rows - 1
For intColIndex = 0 To .Cols - 1
xlSheet.Cells(intRowIndex + 1, intColIndex + 1).Value = "'" & .TextMatrix(intRowIndex, intColIndex)
Next intColIndex
Next intRowIndex
End With

xlApp.Visible = True
Screen.MousePointer = vbDefault
Exit Sub

Err_Proc:
Screen.MousePointer = vbDefault
MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"
End Sub

Export Me, "MSHFlexGrid1"