[РЕШЕНО] После чтения Excel предлагает сохранить файл

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем MyNameNoName, 13 авг 2015.

  1. TopicStarter Overlay
    MyNameNoName
    Offline

    MyNameNoName Опытный в 1С

    Регистрация:
    17 май 2013
    Сообщения:
    931
    Симпатии:
    0
    Баллы:
    26
    Обработка по загрузке данных из Excel:
    Код:
    Попытка
    Эксель = Новый COMОбъект("Excel.Application");
    Сообщить(ОписаниеОшибки());
    Возврат 0;
    КонецПопытки;
    Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
    Книга.ActiveSheet.Unprotect();
    Лист = Книга.WorkSheets(1);
    ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
    Эксель.Quit();
    Во время выполнения обработки выскакивает окно и предлагает сохранить изменения в файле. Как от этого уйти? Может можно как-нибудь программно закрыть это окно? Или по другому как-нибудь?
  2. Draco
    Offline

    Draco Модераторы Команда форума Модератор

    Регистрация:
    28 окт 2009
    Сообщения:
    13.628
    Симпатии:
    946
    Баллы:
    204
    вот это вам зачем?
    Книга.ActiveSheet.Unprotect();

    Попробуйте без него
    MyNameNoName нравится это.
  3. TerANik
    Offline

    TerANik Профессионал в 1С

    Регистрация:
    19 ноя 2014
    Сообщения:
    997
    Симпатии:
    70
    Баллы:
    54
    Может быть не изменять?
    Снятие защиты необходимо для чтения?
    Workbook.Unprotect - метод

    Удаляет защиту из книги. Если в книге отсутствует защита, этот метод не работает.
    MyNameNoName нравится это.
  4. nomad_irk
    Offline

    nomad_irk Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    7.548
    Симпатии:
    716
    Баллы:
    204
    делаем
    Эксель.DisplayAlerts = False.
    после инициализации экселя,
    и перед
    Эксель.Quit();

    делаем:
    Книга.SaveAs(ПутьКФайлу);
    MyNameNoName нравится это.
  5. TopicStarter Overlay
    MyNameNoName
    Offline

    MyNameNoName Опытный в 1С

    Регистрация:
    17 май 2013
    Сообщения:
    931
    Симпатии:
    0
    Баллы:
    26
    Получилось, спасибо. Выручили меня.

Поделиться этой страницей