Язык 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.
© 2009, Компания DIRECTUM
|
Отправить комментарий к этому разделу на
support@directum.ru
|