ТабличныйДокумент.Прочитать - есть проблема!!! HELP
Добрый день. Есть Эксель документы которые считываются криво, а точнее вообще не считываются) Читает как 200000 + строк и столько же пустых колонок.
А вот если пересохранить Эксель путём : Открыть файл через проводник, сохранить в этом же формате, он и больше весить станет, и читается потом нормально в 1С.
Вопрос, что с ним можно сделать?
90% файлов Эксель нормальных, а бывают попадаются вот такие кривые.
Руками пересохранить файл, не предлагать. Так как всё будет через регламентное работать.
А вот если пересохранить Эксель путём : Открыть файл через проводник, сохранить в этом же формате, он и больше весить станет, и читается потом нормально в 1С.
&НаКлиенте
Процедура МояКнопка(Команда)
ДД = Новый ДвоичныеДанные(ФайлExcel);
АдресВХ = ПоместитьВоВременноеХранилище(ДД);
ПрочитатьИзВХ(АдресВХ);
КонецПроцедуры
&НаСервере
Функция ПрочитатьИзВХ(АдресВХ)
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xls");
ДД = ПолучитьИзВременногоХранилища(АдресВХ);
ДД.Записать(ИмяВременногоФайла);
Попытка
ТабДок.Прочитать(ИмяВременногоФайла);
Исключение
КонецПопытки;
КонецФункции
ПоказатьВопрос, что с ним можно сделать?
90% файлов Эксель нормальных, а бывают попадаются вот такие кривые.
Руками пересохранить файл, не предлагать. Так как всё будет через регламентное работать.
Прикрепленные файлы:

Найденные решения
Решение простое оказалось. Сохранил на сервере:
и потом создал папку "C:\Windows\System32\config\systemprofile\Desktop" - здесь, иначе не сохранит)
Excel = Новый COMОбъект("Excel.Application");
Excel.DisplayAlerts = 0;
Книга = Excel.WorkBooks.Open(ФайлExcel);
Книга.SaveAs(ФайлExcel);
Excel.Quit();
Excel = Неопределено;
и потом создал папку "C:\Windows\System32\config\systemprofile\Desktop" - здесь, иначе не сохранит)
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Решение простое оказалось. Сохранил на сервере:
и потом создал папку "C:\Windows\System32\config\systemprofile\Desktop" - здесь, иначе не сохранит)
Excel = Новый COMОбъект("Excel.Application");
Excel.DisplayAlerts = 0;
Книга = Excel.WorkBooks.Open(ФайлExcel);
Книга.SaveAs(ФайлExcel);
Excel.Quit();
Excel = Неопределено;
и потом создал папку "C:\Windows\System32\config\systemprofile\Desktop" - здесь, иначе не сохранит)
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот