ник: El
Помогите пожалуйста, что я делаю не так?
При первом выполнении открывается Excel, запрос экспортируется и далее обращаюсь к ячейкам на Лист1....но при повторном запуске выдает ошибку ...вроде как объкт не найден :(
Private Sub Cmd_Click()
Dim ApExcel As Object
Dim MyRange As Excel.Range
Dim xlSheet As Excel.Worksheet
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
DoCmd.OutputTo acOutputQuery, "rir_export", acFormatXLS, "c:\Temp\rir.xls", vbMaximizedFocus
ApExcel.Worksheets.Add
With ActiveSheet
ApExcel.ActiveSheet.Cells(1, 1) = "rir"
ApExcel.ActiveSheet.Cells(1, 1).Select
ApExcel.ActiveSheet.Cells(1, 1).HorizontalAlignment = xlCenter
ApExcel.ActiveSheet.Cells(2, 1) = "A1"
ActiveSheet.Cells(3, 1) = "A2"
ActiveSheet.Cells(4, 1) = "A3"
End With
End Sub