Помогите пожалуйста разобраться с выгрузкой в excel

Новая тема
Показывать по 10 20 40 сообщений
Главное правильный смысмл =)
Раньше же было даже в стандартных типах сравнения термин "В Иерархии", а потом его заменили на "В группе". Все думал для кого это сделали, когда уже на протяжении пары лет научил юзеров этому слову. :)
ну да, для нас блондинок(без обид, если кто примет на свой счет), которые за 16 лет так и не научились говорить по русски, тьфу, по 1С!
"Все очень просто либо поместите ваш запрос в консоль запросов и вы увидите что все поля которые он выведет будут пустые но есть одна строка, что и показал Excel либо.  Измените Вашу обработку вот таким образом:
Перем     Диалог Экспорт;
Процедура  КнопкаВыполнитьНажатие() Экспорт;
КнопкаВыполнить();
КонецПроцедуры
Функция КнопкаВыполнить() Экспорт;
НачПериода='2011.01.01';  
КонПериода='2011.12.31';
       //Запрос    
ЗапросОС = Новый Запрос;
ЗапросОС.Текст = ("ВЫБРАТЬ
|   ХозрасчетныйОбороты.СуммаОборотДт,
|   ХозрасчетныйОбороты.СуммаОборотКт  
|ИЗ
|   РегистрБухгалтерии.Хозрасчетный.Обороты(&НачПериода, &КонПериода,, Счет = &Счет, , , , ) КАК ХозрасчетныйОбороты");
ЗапросОС.УстановитьПараметр("НачПериода", НачПериода);
ЗапросОС.УстановитьПараметр("КонПериода", КонПериода);
ЗапросОС.УстановитьПараметр("Счет", ЭтаФорма.ПланСчет);
 
РезультатЗапроса = ЗапросОС.Выполнить();
ВыборкаИтоги=РезультатЗапроса.Выгрузить();
КоличествоЗаписей = ВыборкаИтоги.Количество();
   //Выгрузка
ИмяФайла=(Диалог.ПолноеИмяФайла); //Путь- поле содержащие путь к файлу
       Excel= Новый COMОбъект("Excel.Application");
   Excel.WorkBooks.Open(ИмяФайла);
   Excel.Sheets(1).Cells(1,1).Value=ВыборкаИтоги[0].СуммаОборотДт; // возвращает 0
Excel.Sheets(1).Cells(1,2).Value=ВыборкаИтоги[0].СуммаОборотКт; // возвращает 0
Excel.Sheets(1).Cells(1,3).Value=КоличествоЗаписей; // возвращает 1
Excel.Visible= Истина;
КонецФункции
Функция ВыбратьФайл(Маска="""") Экспорт

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл для загрузки";
Диалог.ПолноеИмяФайла = """";
Диалог.Фильтр = "Файлы "+Маска+"|*."+Маска;;

Диалог.ПредварительныйПросмотр = Истина;

Если Диалог.Выбрать() Тогда
Возврат Диалог.ПолноеИмяФайла;
Иначе
Возврат """";
КонецЕсли;

КонецФункции
Процедура ВыбратьФайлКом(Команда) Экспорт

ИмяФайла = ВыбратьФайл("xls*");
Если СокрЛП(ИмяФайла)="""" Тогда
Возврат;
КонецЕсли;

КонецПроцедуры

Соответственно добавив реквизит на форму с видом ссылки на план счетов. И выбрав счет вы увидите что по данному счету нулевые цифры. А вот если выбрать суб счет 01.01 тогда результаты действительно есть)))"
Добрый день! Может научите как выгружать в excel, тех кто не знает. Но не за бесплатно конечно.
Что именно научить?
Что именно и откуда выгружать?
Читают тему
(гостей: 1)

Быстрый переход