День добрый!
Документооборот 8 КОРП, редакция 2.1 (2.1.11.5)
1С:Предприятие 8.3 (8.3.10.2252)
При открытии задачи пользователя (включен предварительный просмотр) - ДО намертво виснет.
Первый файл в списке - проблемный. Причем, проблема - индейская изба.
Есть вариант кааким-то макаром узнать, что файл проблемный?
Вот код, который срабатывает при этом:
    Если  Файл.Расширение = ".xls" или Файл.Расширение =  ".xlsx" Тогда
        //ФайлЭ = ПолучитьCOmОбъект("","Excel.Application");
        //Лист = ФайлЭ.WorkBooks.Open(ПутьФайла);
        //ВремФайл = ПолучитьИмяВременногоФайла(".html");
        //Лист.saveAs(ВремФайл,44);
        //ФайлЭ.Quit();
        //ТекстВозврата = ВремФайл;

        Книга = ПолучитьCOmОбъект(ПутьФайла);
        ВремФайл = ПолучитьИмяВременногоФайла(".html");
        Книга.saveAs(ВремФайл,44);
        Книга.Close(0);
        Книга = Неопределено;
        ТекстВозврата = ВремФайл;
        
    ИначеЕсли Файл.Расширение = ".doc" или Файл.Расширение =  ".docx" или Файл.Расширение =  ".rtf" Тогда

Спасибо.

Удалить этот файл.

(1) Да, блин, это коню понятно.
Как бы сделать так, чтобы не висло намертво, а написала (например) - "Плохой файл".
Вариант?

Файл.Существует()? ;)

(3) Спасибо!

(3) Не-а.
При открытии задач с файлами, которые норм открываются тоже дает ошибку.
Не подходит.

обновить платформу. у меня на 16 были такие проблемы

а "проблемный" файл экселем открывается хоть?

(7) Да. Еще и не на всех компах ошибка происходит.

(6) Пока не вариант.

Такая фишка...
На компе, где файл открывается (из той же программы и задачи), файл сохранила на диск.
Отправила файл пользователю, у которого не открывается (в ДО).
У пользователя в outlook'е файл открылся, но сразу же вылезло окно с выбором принтера и вот это окно (для отправки на печать) очень не легко закрыть (вылазит ошибка - не хватает памяти, не доступен принтер).

может файл вирусняк какой-то, со сценариями

(11) У меня (в ДО, в той же задаче) открывается норм.
Сохраненный на диск - тоже.

(12) Ну у клиента, где ошибка открытия, вирусня?

(13) Маловероятно. Политика партии.

(14) а вирусы в курсе про вашу политику партии?

Мне тут сисадмин сказал, что такая ошибка возникает, когда текущий принтер в винде имеет формат А4, а приходит файл с портянкой (в данном случае именно так).
Есть варианты?
К примеру, проверить формат?

(14) Ну расскажи нам, почему при открытии файлик на принтер отправляется автоматом?

+(17) Нашел.
http://my-excel.ru/vba/excel-pri-otkrytii-vybor-printera.html#:~:text=При%20открытии%20файла%20excel%20выходит%20окошко%20выбора%20принтера,-При%20открытии%20файла&text=Решение%3A,перед%20открытие%20файла).

(18) Соответственно перед открытием надо enableevents установить в false. А для этого вернуться к закомментированному коду

Кто-нибудь знает, как в Excel (при открытии) задать режим просмотра?
Нужно воткнуть "Обычный".
Гуглю... Гуглю... А нагуглить не могу...

мот попробовать так?
там где файл норм открывается и есть права на редактирование списка файлов документа:
1) вытащи файл из документа на диск
2) открой файл на диске, перегони его через другой формат туда-обратно
3) замени в списке файлов дефектный файл на отремонтированный (см.п.2)

(20) включаешь запись макросов - делаешь дела - смортишь команды макроса - пишешь код 1с

(20)  ActiveWindow.View = xlNormalView

Еще раз -
ФайлЭ = ПолучитьCOmОбъект("","Excel.Application"); //из примера выше

ФайлЭ.enableevents = false;

Лист = ФайлЭ.WorkBooks.Open(ПутьФайла); //из того же примера

(24) Да, не арбайтэн этот вариант.

(23) Спасибо.
Но - не арбайтэн также. Всё за то, что дело в принтере.

(0) а в чем смысл пересохранения xls в html ?

(0) А может вы просто не дождались, пока браузер отрендерит 100500 миллиоонов строк?

(8) А в OpenOffice?

Ну или так еще..

    ФайлОтч = ФайлЭ.Workbooks.Open(ИмяФайла);
    ФайлЭ.ScreenUpdating = 0;
    ФайлЭ.Calculation = -4135

Может вообще использовать православный табличный документ?

(28) Там полтора десятка строк.

(27) Не могу тебе сказать.
Писали гуру (типа того). Документооборот, универсальные механизмы.

(31) Документооборот.

Увидел, что там предв. просмотр. )) А если через Попытку?

(35) Только через пытки :(

Подключили на мой комп (принтер).
И вижу: при открытии задачи внизу (на панели задач) начинает мигать окно Excel (не было) - а там выбор принтера - http://pics.rsh.ru/img/_3xhsy26t.jpg.

+ (37) При закрытии этого окна лезет ошибка печати.

(30) Нет.

попробуйте проблемный файл через инспектор документов прогнать  с удалением всей информации.
должен решить большинство проблем, типа с недоступным принтером, с недоступным по сети шаблоном документа и т.д.

(40) Да, не в файле дело (как оказалось), а в принтере.

(41) да в файле. В дополнение к (40) сделай проверку совместимости (файл - поиск проблем - проверка совместимости). У меня так было: у пользователя вызываешь окно печати и сразу показывался предварительный просмотр, а у всех остальных показывалась кнопка "Показать предварительный просмотр", только после нажатия на которую появлялась картинка

+42 в информации содержащейся в файле, в том числе и о принтере

(41) и все же попробуйте это сделать, удалите все свойства (что вообще говоря необходимо делать перед тем как выкладывать документ куда либо в том числе в документооборот), потом откройте повторно. скорее всего никакой принтер уже не вылезет.

(44) А как очистить свойства? Программно.

(45) программно - не знаю. для начала вручную проверьте, даст ли это требуемый эффект.
если даст, можно и без программного - ввести регламент обязательного удаления свойств документа перед вложением в документооборот.
виновных расстрелять пару раз и все.

Да что вы все костыли девушке суете - надо чтобы работало в любом случае, с любым битым файлом.

Хорошо, что поднял...
Как изменить принтер по умолчанию?

Попытка
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");    
Исключение        
КонецПопытки;
ServicesSet    = Locator.ConnectServer(".");
ObjectSet    = ServicesSet.InstancesOf("Win32_Printer");
Для каждого Item Из ObjectSet Цикл
Если (НЕ Item.Default) Тогда
сообщить("1 - " + Item.Caption + " - " + Item.Default + " - " + Item.PrinterState + " - " + Item.PrinterStatus);
Item.SetDefaultPrinter();  
сообщить("2 - " + Item.Caption + " - " + Item.Default);
Прервать;
КонецЕсли;
КонецЦикла;

Не меняет...

Не, меняет...
Это ДО тормозит... Нещадно...

переустановить офис пробовали? другую версию?

Всё арбайтэн.
Алгоритм:
Если файл Excel:
- получаем принтер по умолчанию, сохраняем в переменную.
- по умолчанию устанавливаем принтер OneNote.
Открываем файл.
Возвращаем принтер по умолчанию (из переменной).

+ рассказываем всем любопытным имена принтеров по умолчанию в нашей сети.
дело хозяйское конечно, чаще всего без разницы, но принтеры могут быть сетевыми, а значит у них IP-адрес возможно будет прописан в имени, что уже менее приятно.
хотя смотря где у вас контур безопасности проходит конечно.

(34) Делаете пустой документ, демонстрирующий проблему. Отправляете 1С с жалобой "не работает". Ждете православного исправления.