Ошибка при чтении файла из эксель в табличный документ?

Question

[Xris]

Я пытаюсь файл эксель прочитать в табличный документ. Файл с форматом "xlsx" читается без проблем, а файл формата "xls" выдает ошибку. В чём ошибка?

Answer 1

[Константин]

1. подробнее какой код...
2. Описание:
Считывает табличный документ из файла.
Позволяет считывать табличный документ из файла табличного документа Microsoft Excel 97 - 2010 ( *.xls и *.xlsx) или электронной таблицы OpenOffice Calc ( *.ods).

Comments

[Xris]

&НаКлиенте
Процедура ИмяФайлаПриИзменении(Элемент)
	
	Объект.Расшифровка.Очистить();
	
	Режим = РежимДиалогаВыбораФайла.Открытие;
	ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
	ДиалогОткрытияФайла.ПолноеИмяФайла = "";
	Фильтр = НСтр("ru = 'Файл Excel'") + "(*.xls;*.xlsx)|*.xls;*.xlsx";
	ДиалогОткрытияФайла.Фильтр = Фильтр;
	ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
	ДиалогОткрытияФайла.Заголовок = "Выберите файл Excel для загрузки";
	Если ДиалогОткрытияФайла.Выбрать() Тогда
		Объект.ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
		Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ДиалогОткрытияФайла.ПолноеИмяФайла));
		ЗагрузитьТабличныйДокументИзФайла(Адрес, ДиалогОткрытияФайла.ПолноеИмяФайла);
	Иначе
		Предупреждение(НСтр("ru = 'Файл не выбран!'"));
	КонецЕсли;
	
	
	ОбновитьФормуДокумента();
	
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьТабличныйДокументИзФайла(Адрес, ИмяФайла)
	
	//Необходимо чтение файлов XLS или XLSX
	Расширение = Прав(ИмяФайла, 4);
	Расширение = СтрЗаменить(Расширение, ".", "");
	
	ФайлПриемник = ПолучитьИмяВременногоФайла(Расширение);
	ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
	ДанныеХранилища.Записать(ФайлПриемник);
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.Прочитать(ФайлПриемник);
	
	Если Объект.ИмяФайла = "ИнкасацияFincher" Тогда
		
		Если  ПроверкаОперации() Тогда
			ЧтениеФайла(ТабличныйДокумент,10,26,21,26,Ложь);
		Иначе
			Сообщить("В документе " + Строка(Объект.Ссылка) + " неправильный вид операции " + Строка(Объект.ВидОперации) + ". Правильный вид операции: «Прочие расчеты с контрагентами»");
		КонецЕсли;
		
	ИначеЕсли Объект.ИмяФайла = "ИнкасацияРОСИНКАС" Тогда
		
		Если  ПроверкаОперации() Тогда
			ЧтениеФайла(ТабличныйДокумент,13,2,5,1,Истина);
		Иначе
			Сообщить("В документе " + Строка(Объект.Ссылка) + " неправильный вид операции " + Строка(Объект.ВидОперации) + ". Правильный вид операции: «Прочие расчеты с контрагентами»");
		КонецЕсли;
		
	КонецЕсли;
	
КонецПроцедуры

[Константин]

код нормальный скорей всего версия Экселя, пересохраните в более старой

[Xris]

Константин, версия 95 походу не поддерживается 1с, пересохранила файл в версию 97 заработало. Спасибо)

[Константин]

Ну, дык. В описании это написано)))

Answer 2

[Tonik992]

Иногда под расширением .xls на самом деле файл записан в .xlsx