Язык ISBL

 

Примеры вычислений на ISBL

 

Пример обращения к объектам Microsoft Excel

В примере создается новая рабочая книга, в первой строке отображается заголовок, а в следующих строках данные о телефонах сотрудников, заданные константно. Книга определенным образом форматируется, сохраняется и отображается пользователю.

 

// Занесем в строки данные о сотрудниках и их телефонных номерах 

FIOList = "Арбузов Н.В.|Мамаев Е.Е.|Перепелкина М.В.|Синицын П.Е."

PhoneList ="643-78-90|243-56-41|243-67-45|443-68-19"

// Создадим объект приложения Microsoft Excel

ExcelApp = CreateObject("Excel.Application")

// Создадим в Excel рабочую книгу

NewWb = ExcelApp.WorkBooks.Add

// Занесем в переменную ссылку на ее первый лист

Sh = NewWb.Sheets(1)

// Запишем на лист данные о сотрудниках и телефонах

Sh.Range("A1").Value = “Сотрудник”

Sh.Range("B1").Value = “Тел. номер”

RecordIndex = 1

foreach FIO = CSubString(FIOList;"|")

  Phone = SubString(PhoneList;"|"; RecordIndex)

  RecordIndex = RecordIndex + 1

  Sh.Range("A" & RecordIndex).Value = FIO

  Sh.Range("B" & RecordIndex).Value = Phone

endforeach

// Установим для первого и второго столбца автоподбор высоты,

Sh.Columns("A:B").EntireColumn.AutoFit

// для первой строки - фиксированную высоту

Sh.Rows("1:1").RowHeight = 25

// для заголовка – жирный шрифт и выравнивание по центру

Sh.Range("A1:B1").Select

Selection = ExcelApp.Selection

Selection.Font.Bold = True

xlcenter = -4108  //это значение используется для выравнивания по центру

Selection.HorizontalAlignment = xlcenter

Selection.VerticalAlignment = xlcenter

// Снимем выделение с первой строки, выделив ячейку под списком значений

Sh.Range("A" & (RecordIndex + 1)).Select

// Сохраним созданную книгу. По умолчанию указанный файл сохранится в каталог «Мои документы»

NewWb.SaveAs("Телефоны сотрудников.xls")

// Отобразим созданную рабочую книгу пользователю

ExcelApp.Visible = True

При выполнении этого текста, например, в сценарии системы, на экране появится новая рабочая книга Microsoft Excel:

 

 

 

 

См. также:

·         Общие сведения о примерах обращения к объектам сторонних приложений;

·         Пример обращения к объектам Microsoft Word.