Постановка задачи

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

Программный код

 

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

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

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

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

ExcelApp = CreateObject("Excel.Application")

// Создать в Microsoft 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 с данными о телефонах сотрудников:

© 2016 Компания DIRECTUM

Сообщество пользователей DIRECTUM