Public Sub OutDataToExcel(Flex As MSFlexGrid)
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
OnError
GoTo Ert
Me.MousePointer = 11
Dim Excelapp As Excel.Application
Set Excelapp = New Excel.Application
OnError
Resume NextDoEvents
Excelapp.SheetsInNewWorkbook = 1
Excelapp.Workbooks.Add
Excelapp.ActiveSheet.Cells(1, 3) = s
Excelapp.Range(C1).Select
Excelapp.Selection.Font.FontStyle = Bold
Excelapp.Selection.Font.Size = 16
With Flexk = .Rows
For i = 0 To k - 1
For j = 0 To .Cols - 1
DoEvents
Excelapp.ActiveSheet.Cells(3 + i, j + 1) = TextMatrix(i, j)
Next j
Next i
End With
Me.MousePointer = 0
Excelapp.Visible = True
'Excelapp.Sheets.PrintPreviewErt:
'If Not (Excelapp Is Nothing) Then
'Excelapp.Quit
'End If
End Sub
想问一下各位大神这个程序为什么在执行的时候会出现子程序或函数未定义？

谢谢各位大神点拨