Вход | Регистрация
 

выгрузка из 1с в exl

выгрузка из 1с в exl
Я
   Gadin_V
 
09.07.19 - 08:06
столкнулся с проблемой, когда сохраняю в эксель из 1с, слетают все заливки и цвета, кто сталкивался? как это делаю ниже.    

МассивТабличныхДокументов = Новый Массив();
    
    МассивТабличныхДокументов.Добавить(.................);
    МассивТабличныхДокументов.Добавить(.................);
    МассивТабличныхДокументов.Добавить(.................);
    МассивТабличныхДокументов.Добавить(.................);
    МассивТабличныхДокументов.Добавить(.................);

            
    
        ДиалогВыбораФайла=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
        ДиалогВыбораФайла.ПолноеИмяФайла = "";
        ДиалогВыбораФайла.Фильтр="Файлы Microsoft Excel (*.xls)|*.xls|Все файлы (*.*)|*.*";
        ДиалогВыбораФайла.МножественныйВыбор=Ложь;
        ДиалогВыбораФайла.ПроверятьСуществованиеФайла=Истина;
        Если Не ДиалогВыбораФайла.Выбрать() Тогда
            Возврат;
        КонецЕсли;

        Попытка
            xlsApp=ПолучитьCOMОбъект("","Excel.Application");
            xlsApp.DisplayAlerts = Ложь;
            КнигаExcel = xlsApp.WorkBooks.Add();
            ЛистExcel = КнигаExcel.WorkSheets(1);

            ЦветаЭкселя = КнигаExcel.Colors.Выгрузить();
        Исключение
            Предупреждение("Ошибка при получении объекта Excel. Возможно не установлен Microsoft Office.",15);
            Возврат;
        КонецПопытки;
        

        book = xlsApp.Workbooks.Add();
        delSheet = book.Sheets(1);
        СчетчикЛистов = 1;
        
        Для Каждого ТабДок из МассивТабличныхДокументов Цикл
            ИмяФайла=ПолучитьИмяВременногоФайла("xls");
            ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
            tempBook=xlsApp.Workbooks.Open(ИмяФайла);
            tempBook.Sheets(1).Name=ТабДок.Имя;
            СчетчикЛистов=СчетчикЛистов+1;
            tempBook.Sheets(1).Copy(delSheet);
            tempBook.Close(0);

            УдалитьФайлы(ИмяФайла);
        КонецЦикла;
        Попытка
            delSheet.Delete();
        Исключение
        КонецПопытки;
        
        book.SaveAs(ДиалогВыбораФайла.ПолноеИмяФайла,-4143);
        xlsApp.DisplayAlerts = 1;
        xlsApp.Workbooks.Close();
        xlsApp.Quit();
 
 
   МимохожийОднако
 
1 - 09.07.19 - 08:31
А сразу сделать нужную заливку цветов в табличных документах без подключения Excel через COM не пробовал?
   Лодырь
 
2 - 09.07.19 - 08:41
   Лодырь
 
3 - 09.07.19 - 08:42
Возможно у тебя палитра меняется
   Gadin_V
 
4 - 09.07.19 - 09:36
(1) так я делаю заливку в тч, потом выгружаю в эксель и цвета не совпадают
   Gadin_V
 
5 - 09.07.19 - 12:59
(3) именно так и происходит, в тч в 1с заливка зеленая, сохраняю в эксель, заливка фиолетовая
   Лодырь
 
6 - 09.07.19 - 13:04
(5) Ну так скопируй ее. Зря что-ли ссылку скинул.

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.