Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
25 Июн 2018, 22:22
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Помогите пожалуйста решить задачу по выгрузки из 1С в excel  (Прочитано 3782 раз)

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

Оффлайн MrPlankton

  • *
  • Сообщений: 2
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2012-05-11
  • Сайт: 
  • Профессия: Ученик 1С
Доброго времени суток.
Необходимо сделать выгрузку значений из оборотно-сальдовой ведомости 1С в excel(шаблонный файл-в разные ячейки на разных листах). Пытаюсь для начала выгрузить обороты по дебету и кредиту счета "Основные средства" за 2011 год. Но в ячейки excel возвращаются значения 0 - Дт, 0- Кт, 1- Количество записей всего. Обороты по счету за указанный период есть. Помогите пожалуйста. Код процедуры модуля формы внешней обработки:

Процедура КнопкаВыгрузкаНажатие(Элемент);
НачПериода='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= Истина;
КонецПроцедуры


Оффлайн MrPlankton

  • *
  • Сообщений: 2
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2012-05-11
  • Сайт: 
  • Профессия: Ученик 1С
Еще раз код:
Процедура КнопкаВыгрузкаНажатие(Элемент);
НачПериода='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= Истина;
КонецПроцедуры

Оффлайн ChakChak

  • *
  • Сообщений: 19
  • РЕПУТАЦИЯ: 5
  • КПД: 26%
  • Регистрация: 2012-04-01
  • Сайт: 
  • Профессия: Программист 8.1
Excel.Sheets(1).Cells(1,1).Value=ВыборкаИтог ты пытаешься в ячейку, записать целую таблицу.
Как я понимаю, необходимо обойти всю таблицу(ВыборкаИтог) и каждую ее ячейку записать в соответствующую ячейку в Excel.


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

AIFrame AIFrame
126 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
118 Сообщений
alexandr_ll
65 Сообщений
pavl_vs
40 Сообщений
alex0402
28 Сообщений
buketov.av buketov.av
24 Сообщений
magnifico61
21 Сообщений
wise wise
16 Сообщений
ilyay ilyay
15 Сообщений
mixei
14 Сообщений

* Кто онлайн

  • Точка Гостей: 300
  • Точка Скрытых: 0
  • Точка Пользователей: 15
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal