// Пример алгоритма работы с файлом Экселя,
// Обход частой проблемы зависания процесса Экселя.
Попытка
Excel = Новый COMОбъект("Excel.Application");
ExcelФайл = Excel.WorkBooks.Open(Объект.ПолноеИмяФайлаДанных);
Состояние("Обработка файла Microsoft Excel...");
ExcelЛист = Excel.Sheets(НомерЛистаExcel);
Исключение
ТекстОшибки = "Ошибка. Возможно неверно указан номер листа книги Excel.";
КонецПопытки;
ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);
RowCount = ActiveCell.Row;
ColumnCount = ActiveCell.Column;
// Файл открыли на чтение.
// Обрабатываем его данные.... ... ... ... ...
// И корректно зарываем (так чтобы он не пытался выводить подтверждения сохранения/закрытия).
Excel.DisplayAlerts = 0;
ExcelФайл.Close();
Excel.DisplayAlerts = 1;
Excel.Application.Quit();
// Обход частой проблемы зависания процесса Экселя.
Excel = Новый COMОбъект("Excel.Application");
ExcelФайл = Excel.WorkBooks.Open(Объект.ПолноеИмяФайлаДанных);
Состояние("Обработка файла Microsoft Excel...");
ExcelЛист = Excel.Sheets(НомерЛистаExcel);
Исключение
ТекстОшибки = "Ошибка. Возможно неверно указан номер листа книги Excel.";
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
Возврат Ложь;
КонецПопытки;
ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);
RowCount = ActiveCell.Row;
ColumnCount = ActiveCell.Column;
// Файл открыли на чтение.
// Обрабатываем его данные.... ... ... ... ...
// И корректно зарываем (так чтобы он не пытался выводить подтверждения сохранения/закрытия).
Excel.DisplayAlerts = 0;
ExcelФайл.Close();
Excel.DisplayAlerts = 1;
Excel.Application.Quit();
Комментариев нет:
Отправить комментарий