M
Max_from_UA
Всем здравия и благополучия!
Возникла нереальная задача.
Следует без шаблона екселевского файла построить отчёт изображенный на рисунке report.JPG. Как организовать нормально циклы?
С шаблоном использовался бы метод Вакко
Возникла нереальная задача.
Следует без шаблона екселевского файла построить отчёт изображенный на рисунке report.JPG. Как организовать нормально циклы?
С шаблоном использовался бы метод Вакко
Заранее всем спасибо!Открываешь Excel'евский шаблон, выдели полностью все ячейки, например пункта 1. своей формы, в меню выбери "Вставка\Имя\Присвоить..." и введи имя. Затем, в каждой ячейке, которую нужно заполнять, введи что-нить типа {A1}, {A2} и прочее. В общем обзови как-нибудь каждую. А затем, в LotusScript'е, чтобы в эту ячейку что-нибудь положить, нужно выполнять следующее:
Call SetValue(ws.Range("HEAD"), "{A1}", sTmp)
Где HEAD - это то, как ты обозвал область в Excel'е, а {A1} - это то что ты ввёл в ячейку определённую. А sTmp - это собственно значение, которое хочешь положить туда.
Функция SetValue выглядит так:
Код:Sub SetValue(Range As Variant, CellName As String, Value) Dim CurCell With Range Set CurCell = .Find(CellName) If Not(CurCell Is Nothing) Then CurCell.Value = Value End If End With End Sub