Ошибка пр передаче данных из Access в Excel

[pla]

Здравствуйте! Прошу помощи: по кнопке в форме в Access передаю данные в Excel для создания отчета - две таблицы для названий столбцов и одну для самого отчета. Отчет формирую с помощью шаблона. Рисую рамки, поварачиваю на 90 градусов названия столбцов, удаляю, если нужно, столбцы, печатаю, нажимаю выход и возвращаюсь опять в форму, все замечательно, но только один раз. При повторном нажатии кнопки появляется сообщение "Method 'Cells' of object '_Global' failed" или
"object variable or With block variable not set" , в чем дело?

[Teslenko_EA]

Здравствуйте pla.
Вы выложили сообщение "..Прошу помощи: по кнопке...При повторном нажатии...?", и хотите что бы участники форума догадались почему "..появляется сообщение..".
Может быть стоило подумать о выкладывании здесь на странице форума архива с файлом БД, чтобы дать возможность перед ответом проанализировать конструкцию.
Это ведь форум обсуждающий вопросы по MS Access, а не по экстрасенсорике.

Евгений.

[pla]

Здравствуйте, Эвгений! Спасибо, что откликнулись, я впервые обратилась за помощью, так что простите, что не конкретизировала вопрос. Вот на этом макросе, сформированном в Excel возникает сообщение "objecj variable..."

For k = 12 To intRow
For l = 1 To 74
objWS.Range(objWS.Cells(k, l), objWS.Cells(k, l)).Select
Selection.Borders(xlDiagonalDown).L ineStyle = xlNone
Selection.Borders(xlDiagonalUp).Lin eStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Next
Next

Людмила

[Teslenko_EA]

Здравствуйте Людмила.
для выполнения подобного кода в Access к проекту VBA должна быть подключена библиотека Microsoft Excel.
переменной objWS должен быть присвоен объект лист открытой книги, ведь только на листе можно обращаться к Range (диапазону).
подобной конструкцией можно создавать документ и задавать форматирование диапазону листа

Dim oRange As Object, XL As Object, objWS As Object
Set XL = CreateObject("Excel.Application")
Set XL = XL.Workbooks.Add
Set objWS = XL.Worksheets(1)
'...
'
Set oRange = objWS.Range(objWS.Cells(12, 1), objWS.Cells(intRow, 74))
With oRange
    .Borders(xlDiagonalDown).L ineStyle = xlNone
    .Borders(xlDiagonalUp).Lin eStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Font
        .Name = "Arial Cyr"
        .FontStyle = "îáû÷íûé"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End With

рекомендация от Microsoft : задавать одинаковое форматирование, лучше не перебором ячеек а целиком всему диапазону.

Примерно так.
Евгений.

P.S.выкладываемый код для удобочитаемости заключайте в теги [соde]...[/соde]

[pla]

Здравствуйте, Евгений!
Огромное Вам спасибо, все получилось.