有关vb中导资料在excel的问题?

Question

vb中导入资料到excel中如果报表页数超过6页就打不开导出的excel文件。
错误信息为:"不能读取文件"
导出的代码：
'========================================================================================
'=导出为ExCel文档
'========================================================================================
Private Sub TolExecl()
    Dim myexportobject As New ActiveReportsExcelExport.ARExportExcel
On Error GoTo Errh
    Cmndlg.DialogTitle = "保存报表文件"
    Cmndlg.InitDir = "C:\My Documents"
    Cmndlg.filter = "Excel(*.xls)|*.xls"
    Cmndlg.ShowSave
    If Cmndlg.CancelError Then Exit Sub
    myexportobject.FileName = Cmndlg.FileName
    myexportobject.TrimEmptySpace = True
    myexportobject.GenPagebreaks = True
    myexportobject.ShowMarginSpace = True
    myexportobject.Export ARV.Pages
    Set myexportobject = Nothing
    Exit Sub
Errh:
    Call GSG_Err.ErrUpdate(Me.Caption & "/TolExecl", Err.Number, Err.Description & "/" & Err.Source)
    Err.Clear
    Exit Sub
End Sub