1С: Работа с Excel (1 часть)

[luckyea77]

СПОСОБ ПОИСКА НАИМЕНОВАНИЙ СВОЙСТВ И МЕТОДОВ VBA EXCEL С ПОМОЩЬЮ ЗАПИСИ МАКРОСОВНа практике часто случается, что нужно решить какую-либо задачу, иногда довольно тривиальную с точки зрения пользователя Excel (к примеру изменить фон ячейки в Excel, добавить левую границу и т.д.), а решение в сети/документации искать не хочется или не получается,

Comments

[luckyea77]

Препарирование xlsx файлов без MS Excel: https://infostart.ru/1c/articles/665512/

Чтение/Запись документа Excel 2007 без офиса, без внешних компонент. (с примером для 7.7, 8.1 и 8.2 на управляемых формах): https://infostart.ru/1c/tools/19139/

1С импорт из Excel - как обойтись без MS Office OLE ???: https://forum.ixbt.com/topic.cgi?id=96:589
Интеграция OpenOffice Calc с 1С 7.7: https://kb.mista.ru/article.php?id=180

[luckyea77]

&НаСервере
Процедура Прочитать_xls_НаСервере()

ТабДок = Новый ТабличныйДокумент;

Попытка
ТабДок.Прочитать(Объект.ВыбратьФайл, СпособЧтенияЗначенийТабличногоДокумента.значение);
Исключение
Сообщиние = Новый СообщениеПользователю;
Сообщиние.Текст ="Не удалось прочитать " + ОписаниеОшибки();
Сообщиние.Сообщить();
Возврат;
КонецПопытки;
КоличествоСтрок = ТабДок.ВысотаТаблицы;

Для НомерСтроки = 2 По КоличествоСтрок Цикл
СтрокаДанных = Объект.ДанныеФайла.Добавить();
СтрокаДанных.Наименование = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C" +1).ТекущаяОбласть.Текст;
СтрокаДанных.Расшифровка = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C" +2).ТекущаяОбласть.Текст;
СтрокаДанных.ИНН = ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C" +3).ТекущаяОбласть.Текст;
КонецЦикла;

КонецПроцедуры

Источник: https://sibsisadmin.ru/1c-zagruzka-iz-excel/

[luckyea77]

Загрузка из EXCEL в 1С на платформе 8.3.6/8.3.7/8.3.8/8.3.9/8.3.10 (с картинками): https://infostart.ru/1c/articles/341855/... )

[luckyea77]

Как архивировать xlm в xlsx:

ЗаписьZIP = Новый ЗаписьZipФайла(ПутьИИмяФайла);
ЗаписьZIP.Добавить(ВременнаяПапка + "\*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписьZIP.Записать();

Источник: https://infostart.ru/1c/tools/237032/

[luckyea77]

https://infostart.ru/1c/tools/382391/?ysclid=llgb4wmhoi587428188