8.х Сохранение в Excel

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Sevish, 30 июн 2016.

  1. TopicStarter Overlay
    Sevish
    Offline

    Sevish Опытный в 1С

    Регистрация:
    24 дек 2010
    Сообщения:
    115
    Симпатии:
    1
    Баллы:
    29
    Добрый день!
    Вот код:
    врИмя = ИмяФайла + " " + врСтраница.Имя + ".xls";
    врТабДок.Записать(врИмя, ТипФайлаТабличногоДокумента.XLS);
    врКнигаВременная = ОбъектExcel.Workbooks.Open(врИмя);
    врКнигаВременная.Sheets(1).Cells.Select();
    ОбъектExcel.Application.Selection.Copy();
    врКнига.Sheets(врСчетСтраниц + 1).Activate();
    врКнига.Sheets(врСчетСтраниц + 1).Cells.Select();
    ОбъектExcel.Application.ActiveSheet.Paste();
    врКнигаВременная.Close();
    DeleteFiles(врИмя);

    врКнига создается вот так:
    ОбъектExcel = New COMObject("Excel.Application");
    ОбъектExcel.DisplayAlerts = Ложь;
    врКнига = ОбъектExcel.Workbooks.Add();
    Для врСчетСтраниц = 1 По врКнига.Sheets.Count - 1 Цикл
    врКнига.Sheets(1).Delete();
    КонецЦикла;

    Под 2007 офисом всё работает, под 2013 следующая ошибка:
    на строке "врКнига.Sheets(врСчетСтраниц + 1).Cells.Select();" ошибка "Метод Select из класса Range завершен неверно"

    При этом "врКнигаВременная.Sheets(1).Cells.Select();" и "врКнига.Sheets(врСчетСтраниц + 1).Activate();" чудесно срабатывают без проблем!

    Как в такой ситуации понять почему ошибка?

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