Err 91 : Object variable or With block variable not set

[pla]

Здравствуйте! Прошу помощи в таком вопросе: из Access вывожу отчет в Excel, иногда приходится добавлять строки. Проблема в следующем - первый раз отчет идеальный, во второй раз выдает сообщение, приведенное в заголовке,
вот моя процедура:

Dim objXL As Object, objWS As Object, objWB As Object
Dim fld As Field
Dim strFileName As String 
Dim intCol As Integer
Dim intRow As Integer
Dim nazt(4) As String
nazt(1) = "rbiologik"
nazt(2) = "rhimic"
nazt(3) = "rshf"
nazt(4) = "prshf"
psp = Me![ПолеСоСпискомПредприятие]
pro = Me![ГодПрофосмотра]
strFileName = "\\Server\Профосмотры\Reports\ЗаключительныйАкт.xls"
Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open("\\Server\Профосмотры\Shablon\ШаблонАкт.xls")
Set objWS = objWB.Sheets(1) 
    
objXL.Visible = False
Set dbs = CurrentDb
.
.
.
на этом месте выскакивает 91 ош.
objWS.Rows(intRow).Select
Selection.Insert Shift:=xlDown
.
.
.
    objWB.SaveAs (strFileName)
    objXL.Visible = True

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[gluk_fm]

Надо вместо: Set dbs = CurrentDb
Написать:
dim db as database
Set db = CurrentDb

[pla]

Dim есть, выше:

Option Compare Database
Dim dbs As DAO.Database
Public strSearch, strSQL, psp, pro, rname As String
Public i, j, k, l, m, n As Integer
Dim r1, r2, r3, r4, r5, r6 As Variant
Option Explicit

[gluk_fm]

Тогда попробуйте переписать немного код и dim & set поставить после выполнения обработки данных ексель. А вообще самый лучший вариант просто макрос запускать в самом екселе, тогда точно будет работать и легче всего проверить где ошибка.

[gluk_fm]

http://www.tek-tips.com/viewthread.c...1212509&page=1

[pla]

Спасибо за ответы, но перевод 91 ош. - Ссылка на объект или блок оператора With не установлен, мне кажется, что здесь нужно описать добавление строки через Range, пробовала objWS.Range(objWS.Cells(intRow, 1), objWS.Cells(intRow, 256)).Select, тоже не нравится.

[gluk_fm]

Как вариант напишите сам макрос в екселе и будет Вам счастье....

[pla]

Кому интересно, заменила строку с Select на
objWS.Range(objWS.Cells(intRow, 1), objWS.Cells(intRow, 256)).Select
и све отлично работает