Последние сообщения

Страницы 1 2 3 4 ... 10
#11
7.7 / Re: Сохранить mxl в Excel
Последний ответ от alyuev - 16 июня 2026, 14:40
А мы решали проблему выгрузкой через базу v8
Код Выделить 
Функция СохранитьБольшойMXL(ПутьКФайлу) Экспорт
 Перем ТабДок;
 Если Инициализация82()=-1 Тогда
 Возврат -1;
 КонецЕсли;
 ТабДок = V8Object.NewObject("ТабличныйДокумент");
 ФайлЭксел = Лев(СК(ПутьКФайлу), СтрДлина(СК(ПутьКФайлу))-4);
 ФайлЭксел=ФайлЭксел+".xls";
 Если (Отладка=1)Или(ЭтоАвтомат=1) Тогда Сообщить("Сохраняю большую таблицу в "+ФайлЭксел); КонецЕсли;
 Попытка
 ТабДок.Прочитать(ПутьКФайлу);
 ТабДок.Записать(ФайлЭксел,"xlsx");
 ТабДок = 0;
Исключение
 Сообщить(ОписаниеОшибки());
 КонецПопытки;
V8Object = "";
 Возврат ФайлЭксел;
КонецФункции

Она вызвается так

Код Выделить 
Если (Табл2.ВысотаТаблицы()<65535)И(ЭкспортЧерезV8=0) Тогда 
  
 Табл2.Записать(Путь1,1); // стандартное 1С-ное сохранение
 ПутьИт=Строка(Путь1)+".xls";

 Иначе
 СообщитьвФайл("Сохраняем большой MXL через V8 т.к. строк в файле "+Табл2.ВысотаТаблицы()+", ЭкспортЧерезV8="+ЭкспортЧерезV8,ИмяФайла); 
 Табл2.Записать(Путь1,0);
 ПутьИт=СохранитьБольшойMXL(Путь1+".mxl"); //Иногда может слететь лицензия на V8 и не будет тогда записывать.
#12
7.7 / Re: Сохранить mxl в Excel
Последний ответ от Ветер в поле - 16 июня 2026, 11:22
Цитата: Харлампий Дымба от 15 июня 2026, 23:54Ну это, как я понимаю, чтобы избежать ошибки сохранения больших таблиц в Excel - патч от ромикса уже закрывает эту дырку.

Это разные форматы файлов. 1С сохраняет в формат 95 года, а Йоксель в формат 97 года. В раннем формате длина строк ячеек была ограничена 255 символами. Ну и ограничение количества строк в 16384
#13
7.7 / Re: Сохранить mxl в Excel
Последний ответ от Харлампий Дымба - 15 июня 2026, 23:54
Цитата: АЛьФ от 15 июня 2026, 13:04У меня вот такой код работает в глобальнике с использование Йоксель:
Ну это, как я понимаю, чтобы избежать ошибки сохранения больших таблиц в Excel - патч от ромикса уже закрывает эту дырку.
Исходной проблемы не решает - Йоксель не сохраняет в формате xlsx и ограничен 65536 строками.
Но в целом, изящно - буду теперь делать такой перехват, вместо вывода "Сохранить через Yoksel" в отдельный пункт меню, как у меня было раньше.
Правда без постобработки КонвертеромExcel у меня полученный файл в Excel 201Х не открывается- кракозябничает. Так что сначала записываю в mxl, а потом так (кусок обработки с сайта Йокселя, насколько я помню):
Код Выделить 
    Конвертер = СоздатьОбъект ("КонвертерExcel");
    Книга = Конвертер.Создать ();
    Начало = 1;
    Пока КоличествоСтрок > 0 Цикл
        Документ = СоздатьОбъект ("ТабличныйДокумент");
        Документ.Открыть (ИмяВременногоФайла);
        Если Начало = 0 Тогда
            Документ.УдалитьСтроки (1, 65536);//без ограничения
            Документ.Записать (ИмяВременногоФайла);
        Иначе
            Начало = 0;
        КонецЕсли;
        
        Книга.Листы.Добавить (ИмяЛиста + НомерЛиста, Документ);
        КоличествоСтрокВДокументе = Документ.ВысотаТаблицы ();
        ЗаписаноСтрок = Мин (65536, КоличествоСтрокВДокументе);
        КоличествоСтрок = КоличествоСтрок - Мин (КоличествоСтрок, ЗаписаноСтрок); // на всякий случай
        НомерЛиста = НомерЛиста + 1;
    КонецЦикла;
    
    Книга.ПараметрыКонвертера.ЧислаВыравненыПоПравомуКраю = 1;
    Книга.ПараметрыКонвертера.РаспознаватьЧисловыеЗначения = 1;
    Книга.Записать (ВыбИмяФайла);
Тут большая таблица бьётся на листы по 65536 строк - потом можно будет пересобрать уже exceleм
#14
7.7 / Re: Форам.ПолучитьАтрибут("Тут...
Последний ответ от Злоп - 15 июня 2026, 23:41
Ну, с вк и я могу.
Без вк - пришлось сделать и чтение и присвоение через Шаблон
#15
7.7 / Re: Сохранить mxl в Excel
Последний ответ от Злоп - 15 июня 2026, 23:38
Тут xls
A нужен xlsx
#16
7.7 / Re: Сохранить mxl в Excel
Последний ответ от АЛьФ - 15 июня 2026, 13:04
У меня вот такой код работает в глобальнике с использование Йоксель:

Код Выделить 
Процедура ПриЗаписиТаблицы(КонтТаб, ИмяФайла, ФорматФайла, СтандартнаяОбработка)
    Если ФорматФайла = 1 Тогда // xls
    //    Если КонтТаб.ВысотаТаблицы() > 100 Тогда
        СтандартнаяОбработка = 0;
        ТабличныйДокумент = СоздатьОбъект("ТабличныйДокумент");
        ТабличныйДокумент.ЗагрузитьИзТаблицы(КонтТаб);
        ТабличныйДокумент.Записать(ИмяФайла,"xls");
    //    КонецЕсли;
    КонецЕсли;
КонецПроцедуры
#17
7.7 / Re: Форам.ПолучитьАтрибут("Тут...
Последний ответ от Ветер в поле - 15 июня 2026, 07:47
У меня вот такие функции есть для установки/получения значений реквизитов. Всё это с использованием Формекс и 1С++:
Код Выделить 
//*****************************************************************************
Функция глУстановитьЗначениеРеквизитуФормы(Конт, Реквизит, Значение, ВыполнятьФормулу=0) Экспорт
	
	АтрибутФормы = СоздатьОбъект("АтрибутФормы"); 
	
	Попытка
		АтрибутФормы.УстановитьАтрибут(Конт.Форма, Реквизит);
		АтрибутФормы.Значение = Значение;
		
		Попытка
			Если ВыполнятьФормулу = 1 Тогда
				Если ПустоеЗначение(АтрибутФормы.Формула) = 0 Тогда
					Модуль = СоздатьОбъект("ВыполняемыйМодуль");
					Модуль.УстановитьМодуль(
						"Процедура ___ВыполнитьФормулуРеквизита___()
						|  " + АтрибутФормы.Формула + "
						|КонецПроцедуры");
					Модуль.НазначитьКонтекст(Конт);
					Модуль.КомпилироватьМодуль();
					Модуль.ВыполнитьМодуль();
					Модуль.___ВыполнитьФормулуРеквизита___();
				КонецЕсли;
			КонецЕсли;
		Исключение
			глВывестиМногострочноеСообщение("глУстановитьЗначениеРеквизитуФормы: Ошибка выполнения формулы реквизита " + Реквизит + "
				|Формула: " + АтрибутФормы.Формула + "
				|Ошибка: " + ОписаниеОшибки());
		КонецПопытки;
		
	Исключение
		Сообщить("глУстановитьЗначениеРеквизитуФормы: Не найден реквизит на форме: " + Реквизит);
		Возврат 0;
	КонецПопытки;
	
	Возврат 1;
	
КонецФункции //глУстановитьЗначениеАтрибутуФормы

//*****************************************************************************
Функция глПолучитьЗначениеРеквизитаФормы(Конт, Реквизит, СообщатьОбОшибке=1) Экспорт
	
	АтрибутФормы = СоздатьОбъект("АтрибутФормы"); 
	
	Попытка
		АтрибутФормы.УстановитьАтрибут(Конт.Форма, Реквизит);
		Возврат АтрибутФормы.Значение;
	Исключение
		Если СообщатьОбОшибке = 1 Тогда
			Сообщить("глПолучитьЗначениеРеквизитаФормы: Не найден реквизит на форме: " + Реквизит);
		КонецЕсли;
		
		Возврат ПолучитьПустоеЗначение();
	КонецПопытки;
	
КонецФункции //глПолучитьЗначениеРеквизитаФормы
#18
7.7 / Re: Форам.ПолучитьАтрибут("Тут...
Последний ответ от Харлампий Дымба - 14 июня 2026, 23:23
Получить:
https://my1c-archive.narod.ru/knowhow/getvalat.html
Установить:
ВремяОконЗадачи = 5; ;D
Но если имя реквизита - переменная, то через Шаблон, как ты и написал выше.

#19
7.7 / Re: Форам.ПолучитьАтрибут("Тут...
Последний ответ от Злоп - 14 июня 2026, 15:36
Цитата: Злоп от 14 июня 2026, 14:29И как установить в этом случае значение в поле ввода по его имени..?

тут конечно можно тоже через Шаблон() с использованием ПрисвоитьЧтоЧему()
нокак-то иначе никак без таких извращений?
#20
7.7 / Re: Форам.ПолучитьАтрибут("Тут...
Последний ответ от Злоп - 14 июня 2026, 15:07
Речь про без Formex
Страницы 1 2 3 4 ... 10