Пример чтения файла excel
&НаКлиенте
Процедура ПрочитатьExcel(Команда)
// завершаем все процессы excel, необязательная строка
КомандаСистемы("taskkill /F /IM excel.exe");
ExcelПриложение = Новый COMОбъект("Excel.Application");
ExcelПриложение.Visible = Ложь; // вывод документа на экран
ExcelФайл = ExcelПриложение.Workbooks.Open("G:testtt.xlsx");
КоличествоЛистов = ExcelФайл.Sheets.Count;
// Получим первый лист
Лист = ExcelФайл.Sheets(1);
ИмяЛиста = Лист.Name;
КоличествоСтрок = Лист.UsedRange.Rows.Count;
КоличествоКолонок = Лист.UsedRange.Columns.Count;
// Пример обхода строк по первой колонке
Для Строка = 1 По КоличествоСтрок Цикл
ТекстЯчейки = Лист.Cells(Строка, 1).Value;
Сообщить(ТекстЯчейки);
КонецЦикла;
// Закрываем файл
ExcelПриложение.Quit();
КонецПроцедуры
Пример поиска и замены текста в файле excel
&НаКлиенте
Процедура ЗаменитьТекстExcel(Команда)
КомандаСистемы("taskkill /F /IM excel.exe");
ExcelПриложение = Новый COMОбъект("Excel.Application");
ExcelПриложение.Visible = Истина; // вывод документа на экран
ExcelФайл = ExcelПриложение.Workbooks.Open("G:testtt.xlsx");
Лист = ExcelФайл.Sheets(1);
ОбластьПоиска = Лист.Cells;
НачалоЛиста = Лист.Cells(1, 1);
НайденнойЗначение = ОбластьПоиска.Find("ЗаменяемыйТекст", НачалоЛиста);
Счетчик = 0;
Пока НайденнойЗначение <> Неопределено Цикл
НайденнойЗначение.Value = "Замещающий текст";
НайденнойЗначение = ОбластьПоиска.Find("ЗаменяемыйТекст", НачалоЛиста);
Счетчик = Счетчик + 1;
КонецЦикла;
КонецПроцедуры
Оставить комментарий