Ошибка при выгрузке отчета в Excel

Вторник, 02 Июня 2015 г. 09:58 + в цитатник

При первой выгрузке отчета ошибка, мне кажется Excel просто не успевает загрузиться. Открывается, но код не отрабатывает, даже ошибок не показывает. Второй и последующие уже нормально выгружаются.

Function OpenReportXLS(NameReport As String) As String
On Error GoTo Err_OpenReportXLS_Click
    DoCmd.OutputTo acOutputReport, NameReport, acFormatXLS, "c://Report.xls", True 
'--------------------------------------------------------------------------------
Range(Selection, Selection.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft 
 'Далее много кода, форматирование в Excel 2007, естсно сп2    
......   
'--------------------------------------------------------------------------------
Exit_OpenReportXLS_Click:
    Exit Function
'--------------------------------------------------------------------------------
Err_OpenReportXLS_Click:
    MsgBox "Усё пропало, шеф"
    Resume Exit_OpenReportXLS_Click
'--------------------------------------------------------------------------------
End Function