Как определить Последнюю колонку и строку в Табличном документе?

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3 Управляемые формы

1. sys1c 01.09.23 03:54 Сейчас в теме

Всем привет. Имею вот такой код для загрузки Эксель таблиц:

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


&НаКлиенте
Процедура ПрочитатьЗначенияИзФайла(АдресЗагруженныхДанных, ДополнительныеПараметры) Экспорт
    
    Если АдресЗагруженныхДанных<>Неопределено Тогда 
		ИмяФайла = АдресЗагруженныхДанных.Имя;
		ПрочитатьЗначенияИзФайлаНаСервере(АдресЗагруженныхДанных);
    КонецЕсли;
    
КонецПроцедуры


&НаСервере
Процедура ПрочитатьЗначенияИзФайлаНаСервере(АдресЗагруженныхДанных)
	
    ЗагруженныеДанные = ПолучитьИзВременногоХранилища(АдресЗагруженныхДанных.Хранение);
    ИмяФайла = ПолучитьИмяВременногоФайла(".xlsx");
    ЗагруженныеДанные.Записать(ИмяФайла);
	
	Данные = Новый ТабличныйДокумент;
	Данные.Прочитать(ИмяФайла, СпособЧтенияЗначенийТабличногоДокумента.Значение);

	ОбластьЯчеек = Данные.Область(НомерПервойСтроки, НомерПервойКолонки, НомерПоследнейСтроки, НомерПоследнейКолонки);

Показать

как тут ОбластьЯчеек = Данные.Область(НомерПервойСтроки, НомерПервойКолонки, НомерПоследнейСтроки, НомерПоследнейКолонки);

узнать сколько колонок/строк в экселе заполнено?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. spacecraft 01.09.23 04:27 Сейчас в теме

(1) ВысотаТаблицы и ШиринаТаблицы

3. Оберон 16 01.09.23 11:44 Сейчас в теме

ТЗ = ПодготовитьТаблицуСДанными(ФайлАдресВХранилище);

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

Показать

4. Оберон 16 01.09.23 11:47 Сейчас в теме

и по хорошему еще желательно полученную ТЗ типизировать (но это не всегда)

Оставьте свое сообщение

E-mail: