盟威快速开发平台创建的窗体导出excel失败，求解决办法

用最新版的导出代码替换老版本的代码就行了。

原来的代码：

Public Sub btnExport_Click()
    On Error Resume Next
    If Me.sfrList.Form.CurrentRecord < 1 Then
        Exit Sub
    End If
    Me.sfrList.SetFocus
    ExportToExcel Me.sfrList.Form.Caption
End Sub

新版的代码：
Public Sub btnExport_Click()
If Not Me.sfrList.Form.CurrentRecord > 0 Then Exit Sub
    ExportToExcel DataForm:=Me.sfrList
End Sub