ОБЪЕКТ: Импорт данных из Excel

НазадВернуться к началу разделаВперёд

Следующий пример отчета использует ОБЪЕКТ для обращения к Microsoft Excel. Алгоритм запрашивает у пользователя файл Excel-а, а затем считывает его и отображает в отчете. Для работы примера необходимо, чтобы на компьютере был установлен Excel. Чтобы запустить демонстрационный пример, достаточно создать новый отчет и скопировать туда этот фрагмент:

 

ПЕРЕМ ОБЪЕКТ: книга, лист, границы, строки, столбцы, ячейка

ВЫЧИСЛИТЬ

 // Выбрать файл для импорта

 файл = ВЫБОР_ФАЙЛА("", "", "Файлы Microsoft Excel", "XLS")

 ЕСЛИ файл = "" ТО

         СТОП

 КОНЕЦ_ЕСЛИ

 

 // Создаем объект для доступа к Excel

 о = СОЗДАТЬ_ОБЪЕКТ("Excel.Application")

 

 // Открыть файл в Excel'е

 книга = о.Workbooks

 книга.Open(файл)

 

 // Получить активную книгу и выбрать в ней первый лист

 книга = о.ActiveWorkbook

 лист = книга.Worksheets[1]

 

 // Получить диапазон использованных ячеек на листе

 границы = лист.UsedRange

 строки = границы.Rows

 столбцы = границы.Columns

 

 // Перенести данные в программу

 ЦИКЛ ДЛЯ (и = 1, строки.Count)

         ЦИКЛ ДЛЯ (й = 1, столбцы.Count)

                 ячейка = лист.Cells[и, й]

                 ЯЧЕЙКА[й, и] = ячейка.Value

         КОНЕЦ_ЦИКЛА

 КОНЕЦ_ЦИКЛА

 

 // Пометить книгу как сохраненную (чтобы не было вопросов "Сохранить изменения?") и закрыть Excel

 книга.Saved = ДА

 о.Quit

КОНЕЦ