Litvinenko Vitaliy

207
Рейтинг

StreamLVM



  •   Регистрация: 29.04.2010 (14 лет назад)

  •   Был(а) на сайте: 26.01.2024

Друзья
  • Александр Орлов
  • Дмитрий Малышев
  • Андрей Волин
Подписчики 5
Группы

Профессиональный разработчик

Рейтинг 207

1С 8: Работаем с файлами MS Excel, используя OpenOffice/LibreOffice
+199 –

Статья Программист Платформа 1С v8.3 Конфигурации 1cv8 Windows Бесплатно (free) Нет файла Загрузка и выгрузка в Excel

Работа через COM с файлами MS Excel, используя OpenOffice/LibreOffice.

13.07.2011    76729    StreamLVM    57       

199
Смотреть все

Комментарии

Dev › 1С 8: Работаем с файлами MS Excel, используя OpenOffice/LibreOffice › #48 23.06.15 18:14
(46) CaSH_2004, Вы не закрывали com объект и он завис. Завершили бы процесс и все работало. А насчет LibreOffice vs OpenOffice, так работа в Libre идет конскими шагами, причем попутно избавляясь от Java в коде, да и по функционалу он впереди, хотя для 90% пользователей это непринципиально.
Dev › 1С 8: Работаем с файлами MS Excel, используя OpenOffice/LibreOffice › #45 19.06.15 12:42
(44) CaSH_2004, У меня подобные глюки при работе с сохраненными файлами из древних версий MS Excel. Я рекомендую все же использовать LibreOffice.
Dev › 1С 8: Работаем с файлами MS Excel, используя OpenOffice/LibreOffice › #38 17.04.14 14:40
(37) Karlitos, номер листа в вашем файле.
БУ › Товарно-транспортная накладная ТТН (1-ТН) от (14.01.2014) для Украины, УТП, обычное приложение. › #8 16.01.14 22:30
Спасибо, сэкономил время. Правда сделал ее внешне подключаемой печатной формой.
Dev › Работа с GUID › #8 18.10.13 22:51
Пустая() вернет Ложь, даже если ссылка битая, в данном примере этот метод бесполезен.
Dev › Работа с GUID › #6 18.10.13 15:51
Цитата
ЗначениеЗаполнено(НайденнаяСсылка)
Этот код будет всегда возвращать Истина, хотя результат будет "Объект не найден"
Можно проверить по
Код
НайденнаяСсылка.ПолучитьОбъект() = Неопределено
, но это долго
гораздо быстрее, но доступно начиная с 8.2:
Если
Код
НайденнаяСсылка.ВерсияДанных = "            "

значит, что "Объект не найден"

Без обид, но если каждый будет постить "такого масштаба" статьи, то будет очень сложно что-то толковое в рассылке находить.
Да еще и "Тип доступа: Разработки за стартмани ($m)". Даже не знаю как реагировать.
Dev › Система компоновки данных. Убрать самый верхний уровень группировки. › #6 02.08.13 14:45
Я победил, хоть и не совсем красиво:
Цитата

Процедура ПринятьНастройки()
Если КомпоновщикНастроек.Настройки.Структура.Количество() > 0 Тогда
Для каждого текГруппировка из КомпоновщикНастроек.Настройки.Структура[0].Строки Цикл
ПроверитьГруппировкуНастройки(текГруппировка,мУровень);
КонецЦикла;
КонецЕсли;
КонецПроцедуры

Процедура ПроверитьГруппировкуНастройки(текПолеГруппировки,мУровень)

Для каждого ЭлементГруппировки из текПолеГруппировки.ПоляГруппировки.Элементы Цикл
Если ЭлементГруппировки.ТипГруппировки = ТипГруппировкиКомпоновкиДанных.Иерархия ИЛИ
ЭлементГруппировки.ТипГруппировки = ТипГруппировкиКомпоновкиДанных.ТолькоИерархия Тогда
Если Строка(ЭлементГруппировки.Поле) = "Контрагент" Тогда
мУсловноеОформление = текПолеГруппировки.УсловноеОформление;
мУсловноеОформление.Элементы.Очистить();
Если мУровень > 0 Тогда
ЭлементУсловногоОформления = мУсловноеОформление.Элементы.Добавить();
ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СистемныеПоля.УровеньВГруппировке");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно;
ЭлементОтбора.ПравоеЗначение = мУровень;
ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("МаксимальнаяВысота", 1);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если текПолеГруппировки.Структура.Количество() > 0 Тогда
ПроверитьГруппировкуНастройки(текПолеГруппировки.Структура[0],мУровень);
КонецЕсли;

КонецПроцедуры
мУровень - Нужный уровень по какой обрезаем
У меня это для группировки контрагента, но Вы можете сделать для любой
Admin › Восстановление SQL базы 1С 8.2. рухнувшей во время сохранения конфигурации. › #20 16.03.12 5:27
Спасибо! Восстановил базу! Правда потерял пару дней своей работы, но это мелочи.
Dev › 1С 8: Работаем с файлами MS Excel, используя OpenOffice/LibreOffice › #16 16.11.11 20:16
(15) megatrend, все будет работать, ничего не нужно менять.
Dev › 1С 8: Работаем с файлами MS Excel, используя OpenOffice/LibreOffice › #9 19.07.11 12:18
Цитата
drimer пишет:

Вкралась небольшая ошибочка в пример
локТабЗнач.Колонки.Добавить(НовИмяКол,ОписаниеТиповСтрока);

а должно быть локТабЗнач.Колонки.Добавить(ИмяКол,ОписаниеТиповСтрока);
Спасибо, поправил. Выдернул с последнего задания и не все привел к нужному виду.