Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 сен 2024, 01:34

Выгрузка в Excel не работает

Автор Абылайхан, 13 апр 2015, 14:50

0 Пользователей и 1 гость просматривают эту тему.

Абылайхан

Помогите люди добрые! Есть модуль который выгружает некоторые данные в Эксель, он работает на всех компьютерах-клиентах кроме моего( При запуске он зависает и висит до бесконечности, а на других компах сразу открывается Эксель и все данные выгружаются! В чем может быть проблема, может что то с Экселем?

MuI_I_Ika

Возможно Эксель открывает при старте модальное окошко, которое вы не видите.

stillenough

Цитата: Абылайхан от 13 апр 2015, 14:50
Помогите люди добрые! Есть модуль который выгружает некоторые данные в Эксель, он работает на всех компьютерах-клиентах кроме моего( При запуске он зависает и висит до бесконечности, а на других компах сразу открывается Эксель и все данные выгружаются! В чем может быть проблема, может что то с Экселем?
дело может быть и в версии. EXEL имеет кучу разновидностей. Попробуйте переустановить и именно такой, как на клиентах

Абылайхан

Цитата: stillenough от 13 апр 2015, 17:09
Цитата: Абылайхан от 13 апр 2015, 14:50
Помогите люди добрые! Есть модуль который выгружает некоторые данные в Эксель, он работает на всех компьютерах-клиентах кроме моего( При запуске он зависает и висит до бесконечности, а на других компах сразу открывается Эксель и все данные выгружаются! В чем может быть проблема, может что то с Экселем?
дело может быть и в версии. EXEL имеет кучу разновидностей. Попробуйте переустановить и именно такой, как на клиентах

да вроде нет, версии одинаковые. на Эксель 2013 тоже работает у других юзеров.
Добавлено: 14 апр 2015, 08:39


Цитата: MuI_I_Ika от 13 апр 2015, 15:40
Возможно Эксель открывает при старте модальное окошко, которое вы не видите.

А как можно посмотреть что он открывает? что можно сделать?

cska-fanat-kz

отлаживайте обработку.
перво наперво убедитесь что КОМ объект корректно создается,
потом непосредственно выгрузку...
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

MuI_I_Ika

Можно внутри самой обработки свойство visible сделать истиной и посмотреть что там происходит.

MuI_I_Ika

Еще очень часто откроют тот же самый эксель самостоятельно и ждут, что программа его откроет. Не откроет. Дважды один и тот же файл открыть нельзя.

Абылайхан

//Выгрузка в Excel
Процедура ВыгрузитьВЭксельНажатие(Элемент)
Если ТЗ.Колонки.Количество() = 0 Тогда
Предупреждение("Нет данных для выгрузки.");
Возврат;
КонецЕсли;


Эксель  = Новый  COMОбъект("Excel.Application") ;
Книга = Эксель.WorkBooks.Add();
Пока  Книга.Sheets.Count > 1 Цикл
Книга.Sheets(1).Delete();
КонецЦикла;
Лист = Книга.WorkSheets(1);
Лист.Name = "ВыгрузкаДанных";

i = 0;

Для Каждого Стр Из ТЗ Цикл
i = i + 1;
//Val_2 = Формат(Стр.Год,"ЧГ=0;ЧЦ=10")+"."+Мц;
Лист.Cells(i,1).NumberFormat = "@";
Лист.Cells(i,1).Value = Стр.Период;
Лист.Cells(i,2).NumberFormat = "@";
Лист.Cells(i,2).Value = Стр.КодОрганизации;
Лист.Cells(i,3).NumberFormat = "@";
Лист.Cells(i,3).Value = Стр.НомерСчета;
Лист.Cells(i,4).NumberFormat = "@";
Лист.Cells(i,4).Value = Стр.А1;
Лист.Cells(i,5).NumberFormat = "@";
Лист.Cells(i,5).Value = Стр.А2;
Лист.Cells(i,6).NumberFormat = "@";
Лист.Cells(i,6).Value = Стр.А3;
Лист.Cells(i,7).NumberFormat = "@";
Лист.Cells(i,7).Value = Стр.А4;
Лист.Cells(i,8).NumberFormat = "@";
Лист.Cells(i,8).Value = Стр.А5;
Лист.Cells(i,9).NumberFormat = "@";
Лист.Cells(i,9).Value = Стр.А6;
Лист.Cells(i,10).NumberFormat = "@";
Лист.Cells(i,10).Value = Стр.А7;
Лист.Cells(i,11).NumberFormat = "@";
Лист.Cells(i,11).Value = Стр.А8;
Лист.Cells(i,12).NumberFormat = "@";
Лист.Cells(i,12).Value = Стр.А9;
Лист.Cells(i,13).NumberFormat = "@";
Лист.Cells(i,13).Value = Стр.А10;
Лист.Cells(i,14).NumberFormat = "@";
Лист.Cells(i,14).Value = Стр.А11;
Лист.Cells(i,15).NumberFormat = "@";
Лист.Cells(i,15).Value = Стр.KZT;
Лист.Cells(i,16).NumberFormat = "############0,00";
Лист.Cells(i,16).Value = Стр.Сумма;
Лист.Cells(i,17).NumberFormat = "@";
Лист.Cells(i,17).Value = Стр.ДатаВремя;
Лист.Cells(i,18).NumberFormat = "@";
Лист.Cells(i,18).Value = Стр.СчетУС;
Лист.Cells(i,19).NumberFormat = "@";
Лист.Cells(i,19).Value = Стр.КорСчетУС;
Лист.Cells(i,20).NumberFormat = "@";
Лист.Cells(i,20).Value = Стр.ТипДанных;
КонецЦикла;
Эксель.Visible = true;
Лист = 0;
Книга = 0;
Эксель = 0;
КонецПроцедуры


Цитата: cska-fanat-kz от 14 апр 2015, 08:41
отлаживайте обработку.
перво наперво убедитесь что КОМ объект корректно создается,
потом непосредственно выгрузку...

Добавлено: 14 апр 2015, 13:31


Цитата: MuI_I_Ika от 14 апр 2015, 09:25
Можно внутри самой обработки свойство visible сделать истиной и посмотреть что там происходит.

Да все вроде так как и должно быть.

MuI_I_Ika

вы его видимым делаете только после обработки. а у вас до этой точки скорее всего не доходит. сделайте его видимым вначале и смотрите что там происходит.

Абылайхан

Цитата: MuI_I_Ika от 14 апр 2015, 13:34
вы его видимым делаете только после обработки. а у вас до этой точки скорее всего не доходит. сделайте его видимым вначале и смотрите что там происходит.

{Обработка.ВыгрузкаДанных.Форма.Форма.Форма(1622)}: Ошибка при установке значения атрибута контекста (Value)
Лист.Cells(i,8).Value = Стр.А5;
по причине:
Произошла исключительная ситуация (0x800ac472)


Поставил как Вы сказали, открывает Эксель и заполняет данные, но почему то выкидывает такую ошибку как выше причем каждый раз в разных строках.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск