Excel 2016 тормозит при работе с файлами, выгруженными из 1С

RSS

Excel 2016 тормозит при работе с файлами, выгруженными из 1С, Решение проблемы с загрузкой процессора файлами из 1с, открытыми в Excel 2016

shlang

Пользователь

Сообщений: 57 Регистрация: 08.04.2013

29.03.2018 10:29:24

Уважаемые форумчане! Долго искал решение проблемы: почему файл, выкачанный из 1с, в Excel 2010 работает абсолютно нормально, а при открытии в Excel 2016 сильно загружает процессор и вызывает зависание всех открытых файлов Excel. Сегодня на одном из форумов нашел решение, хотел поделиться, если кто-то не сделал это раньше меня:
Решение проблемы между файлами 1с и Excel 2016

wowick

Пользователь

Сообщений: 972 Регистрация: 14.01.2014

29.03.2018 10:40:13

Реально бесит такая фигня с 1С. Выгружаешь файл, там всего один лист, делаешь какую-нить сводную, кладешь ее в новый лист, а к исходному листу после этого уже нет доступа. Приходится заходить в Параметры - Дополнительно и там ставить галочку в параметр "Показывать ярлыки листов", и только потом можно отодвинуть эту заслонку и получить доступ к листам!

Если автоматизировать бардак, то получится автоматизированный бардак.

TheBestOfTheBest Пользователь Сообщений: 2368 Регистрация: 03.04.2015 Excel 2010 +PLEX +SaveToDB +PowerQuery	#3 29.03.2018 10:40:52 Это решение давно известно, сохраняйте в xlsx и не будут тормозить. Неизлечимых болезней нет, есть неизлечимые люди.

wowick

Пользователь

Сообщений: 972 Регистрация: 14.01.2014

29.03.2018 10:42:05

Цитата
TheBestOfTheBest написал: сохраняйте в xlsx и не будут тормозить.

7.7 не знает такого формата, там только xls.

Если автоматизировать бардак, то получится автоматизированный бардак.

shlang

Пользователь

Сообщений: 57 Регистрация: 08.04.2013

29.03.2018 10:44:35

Цитата
Это решение давно известно, сохраняйте в xlsx и не будут тормозить.

Нет, xlsx не спасает, это неправда. Попробуйте сами. Если бы решение было таким простым, никто бы не писал на форум тех. поддержки Майкрософт.

TheBestOfTheBest Пользователь Сообщений: 2368 Регистрация: 03.04.2015 Excel 2010 +PLEX +SaveToDB +PowerQuery	#6 29.03.2018 10:44:36 если утановлена 7.7, то и эксель д.б. соответствующий Неизлечимых болезней нет, есть неизлечимые люди.

TheBestOfTheBest

Пользователь

Сообщений: 2368 Регистрация: 03.04.2015

Excel 2010 +PLEX +SaveToDB +PowerQuery

29.03.2018 10:46:53

Цитата
shlang написал: Нет, xlsx не спасает, это неправда

В 2-х компаниях спасло. Видимо у Вас ошибка на локальной машине (обновления офиса и винды)

Изменено: TheBestOfTheBest - 29.03.2018 10:47:37

Неизлечимых болезней нет, есть неизлечимые люди.

Vladal

Пользователь

Сообщений: 4 Регистрация: 28.03.2018

29.03.2018 11:04:27

А подошёл способ с форума Майкрософт по ссылке выше?

Цитата

Сегодня нашел косяк!!! Файл сформирован из 1С , листы снизу скрыты(задвинуды полосой пролистывания) - прокруткой и при этом тормозит при копировании, перескакивании по ячейкам. Как только отодвигаю эту задвижку и становятся видны листы, так перестают тормозть файлы!!!!

Проверил на 12 файлах, на 4х компьютерах!! Задвигаешь обратно (скрываешь листы, так сразу начинает тупить при копировании ячейки)

Из первого поста не вся картина ясна, есть несколько неизвестных:

Цитата
shlang написал: почему файл, выкачанный из 1с,

1. Какая платформа 1С (7.7, 8.х)
2. Каким способом сохраняется файл из 1С?

Для v8:

Код

ТабДокумент.Записать(ПолноеИмяФайла, ТипФайлаТабличногоДокумента.XLS);
Excel = Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ПолноеИмяФайла); 
Excel.Visible = 0;
Excel.ActiveWindow.DisplayWorkbookTabs = 1; 
Excel.ActiveWindow.TabRatio = 0.6;         
FullName = Excel.ActiveWorkbook.FullName;            
Excel.DisplayAlerts = false;
Excel.ActiveWorkbook.SaveAs(FullName, 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013
//Excel.Visible = 1;       // если нужно поработать дальше с книгой
//Excel.Application.Quit() // если просто выходим

Для v7:

Код

ТабДокумент.Записать(ПолноеИмяФайла, "XLS");
Excel = СоздатьОбъект("Excel.Application");
Excel.WorkBooks.Open(ПолноеИмяФайла);
Excel.Visible = 0;
Excel.ActiveWindow.DisplayWorkbookTabs = 1;
Excel.ActiveWindow.TabRatio = 0.6;
FullName = Excel.ActiveWorkbook.FullName;
Excel.DisplayAlerts = false;
Excel.ActiveWorkbook.SaveAs(FullName, 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013
//Excel.Visible = 1;       // если нужно поработать дальше с книгой
//Excel.Application.Quit() // если просто выходим

Цитата
wowick написал: 7.7 не знает такого формата, там только xls.

Знает, если сохранять не средствами платфомы 1С

Код
ТабличныйДокумент.Записать("c:\Отчет.xls", 1);

А как в примере выше - вызывая Excel.Application

Вот еще один способ, с созданием (копированием) листов в Excel:

Скрытый текст

Код

// Процедура копирует первый лист из книги ПутьИмяЛиста 
// в книгу ПутьИмяКнигиОтчетов и присваивает этому листу имя НовоеИмяЛиста.
// Если книги ПутьИмяКнигиОтчетов еще нет - она создается
// Если в книге ПутьИмяКнигиОтчетов уже есть лист с именем НовоеИмяЛиста - он заменяется на новый
Процедура ПеренестиОтчетВКнигуExcel(ПутьИмяКнигиОтчетов, ПутьИмяЛиста, НовоеИмяЛиста,Ном) Экспорт
    // Дотянуться до Экселя
    Попытка
        Эксель = СоздатьОбъект("Excel.Application");
    Исключение
        Предупреждение("У Вас на компьютере не установлен Microsoft Excel. Импорт невозможен!");
        Возврат;
    КонецПопытки;
    // Сам Эксель невидимый
    Эксель.Visible = 0;    
    // И лишних вопросов задавать не должен
    Эксель.DisplayAlerts = 0;
    // Получить книгу из параметра ПутьИмяКнигиОтчетов
    Попытка                          
        КнигаОтчетов = Эксель.Workbooks.Open(ПутьИмяКнигиОтчетов);
    Исключение
        КнигаОтчетов = Эксель.Workbooks.Add;
        КнигаОтчетов.SaveAs(ПутьИмяКнигиОтчетов);
    КонецПопытки;
    // Получить книгу из параметра ПутьИмяЛиста
    Попытка                          
        ЛистОтчета = Эксель.Workbooks.Open(ПутьИмяЛиста);
    Исключение
        Предупреждение("Не найден файл "+ПутьИмяЛиста+"!");
        Эксель = 0;
        Возврат;
    КонецПопытки;
    // Попробовать удалить отчет НовоеИмяЛиста из книги, если он уже есть
    Попытка                          
        КнигаОтчетов.Worksheets(НовоеИмяЛиста).Delete();
    Исключение
    КонецПопытки;  
    // Скопировать лист из ЛистОтчета в КнигаОтчетов:
    ЛистОтчета.Worksheets(1).Name = НовоеИмяЛиста;
    ЛистОтчета.Worksheets(1).Copy(КнигаОтчетов.Worksheets(Ном));
    ЛистОтчета.Close(0);
    КнигаОтчетов.Save();
    КнигаОтчетов.Close(-1);
    Эксель = 0;
КонецПроцедуры

Изменено: Vladal - 29.03.2018 11:32:28

Читают тему