Помогите пожалуйста разобраться, это отчет в Excel,на access2003 работает а 2007 нет,Подскажите в чем проблема?
Private Sub Кнопка31_Click()
On Error GoTo errHandler

Me.Dirty = False
I = 1

Set app = New Excel.Application-выдает ошибку
app.Visible = True
Excel.Workbooks.Open (Replace(CurrentDb.Name, "Отчет", "") & "Отчет.xlt")

Do While IsNull(Me.Наименование) = False
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, I
Select Case I
Case Is < 36
Excel.Workbooks(1).Worksheets("Передняя сторона").Cells(15 + I, 3).Value = Me.Наименование
Case Is >= 36
Excel.Workbooks(1).Worksheets("Обратная сторона").Cells(2 + I - 35, 3).Value = Me.Наименование
End Select
I = I + 1
Loop

errExit:

Exit Sub

errHandler:
If Err.Number = 2046 Then
Resume Next
End If

End Sub

http://www.sql.ru/forum/1097514/oshibku-vydaet