Результат скд в excel

I need help, товарисчи… Задача такая — получить список номенклатуры с ценой и выгрузить в эксель — для передачи файла покупателю. Покупатель в свою очередь проставляет в экселевском файле количество товара, а сумма должна автоматически посчитаться — т.е. ячейка Сумма должна содержать формулу (= введенное количество*цену товара).

Как 1с экспортирует отчет в Эксель, полученный с помощью СКД — устраивает, дабы чтоб упростить себе работу и не выгружать «ручками» весь отчет я заполняю колонку «СУММА» в СКД формулой, полученной из VB (ActiveCell.FormulaR1C1 = «=RC[-2]*RC[-1]»). Пример запроса для СКД:

ВЫБРАТЬ

   спрНоменклатура.Родитель КАК Группа,

   спрНоменклатура.Артикул КАК Артикул,

   спрНоменклатура.Ссылка КАК Номенклатура,

   0 КАК ЗаказШт,

   ЦеныНоменклатурыСрезПоследних.Цена КАК БазоваяЦенаРуб,

   «=RC[-2]*RC[-1]» КАК Сумма

ИЗ

   Справочник.Номенклатура КАК спрНоменклатура

       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних

       ПО спрНоменклатура.Ссылка = ЦеныНоменклатурыСрезПоследних.Номенклатура.Ссылка

           И (ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦены)

ГДЕ

   спрНоменклатура.ПометкаУдаления = ЛОЖЬ

   И спрНоменклатура.ЭтоГруппа = ЛОЖЬ

Результат: формула передается как символы, но если в ячейке сумма нажать энтр))) — то считает %))))

Есть ли нормальный способ передать формулу?

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

ТабличныйДокумент (SpreadsheetDocument)

Записать (Write)

Синтаксис:

Записать(<Имя файла>, <Тип файла таблицы>)

Excel = Новый COMОбъект(«Excel.Application»);

Excel.Workbooks.Open(ИмяФайлаОбработки);

Excel.Range(«AD» + КоличествоСтрокВЭкселе).Select();

Excel.Application.ActiveCell.FormulaR1C1 = «=RC[-2]*RC[-1]»;

Excel.Application.Selection.AutoFill(Excel.Range(«AD» + ПерваяСтрока + «:AD» + КоличествоСтрокВЭкселе), 0);

Здесь AD — буквенный номер столбца с формулой

Количество строк в экселе можно получить так:

КоличествоСтрокВЭкселе = Excel.Cells.SpecialCells(11).Row;

не получается….

в форму — в «Результат» — выводится результат СКД, ниже поле выбора файла для сохранения:

Процедура ФайлНачалоВыбора(Элемент, СтандартнаяОбработка)

// Выделим имя каталога из имени файла

   ИмяКаталога = Файл;

   ДлинаСтроки = СтрДлина( Файл );

   Для Пц = 1 По ДлинаСтроки Цикл

       Симв = сред(Файл, ДлинаСтроки — Пц + 1, 1);

       Если Симв = «» Тогда

           ИмяКаталога = Лев(Файл, ДлинаСтроки — Пц);

           Прервать;

       КонецЕсли;

   КонецЦикла;

   
   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

   Диалог.Каталог = ИмяКаталога;

   
   Режим = РежимДиалогаВыбораФайла.Сохранение;

   ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим);

   ДиалогСохраненияФайла.ПолноеИмяФайла = «»;

   Фильтр = «Лист Excel97(*.xls)|*.xls»;

   ДиалогСохраненияФайла.Фильтр = Фильтр;

   
   Если ДиалогСохраненияФайла.Выбрать() = Истина Тогда

       Файл = ДиалогСохраненияФайла.ВыбранныеФайлы.Получить(0);

   КонецЕсли;

   
   ЭлементыФормы.Результат.Записать(Файл );

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

Файл эксель — абракадабра получается, а если большой список в отчете (без отборов — весь справочник Номенклатура), то эксель ругается что файл загружен не полностью:

Это сообщение может появиться, если:

Попытка открыть файл, содержащий более 65 536 строк или 256 столбцов. Чтобы устранить это затруднение, откройте исходный файл в текстовом редакторе, например Microsoft Word. Сохраните исходный файл, разделив его на несколько меньших файлов, удовлетворяющих ограничениям на число строк и столбцов, а затем откройте эти меньшие файлы в приложении Excel. Если не удается открыть исходный файл в текстовом редакторе, попробуйте импортировать данные в Microsoft Access, а затем экспортировать подмножества данных из Access в Excel.

Попытка вставить данные, разделенные знаком табуляции, в слишком маленькую область. Чтобы устранить это затруднение, выделите в таблице область, в которой могут поместиться все элементы с разделением.

Примечания.>

Настройка приложения Excel на превышение предела в 65 536 строк и 256 столбцов не предусмотрена.

По умолчанию книга Excel состоит из трех листов. Каждый лист может содержать до 65 536 строк и 256 столбцов данных, книги могут состоять из более чем трех листов; при этом у компьютера должен быть достаточный объем оперативной памяти для работы с дополнительными данными.

ТабличныйДокумент (SpreadsheetDocument)

Записать (Write)

Синтаксис:

Записать(<Имя файла>, <Тип файла таблицы>)

Записывает табличный документ в файл.

Примечание:

При работе на сервере или через com-соединение использует только файлы форматов mxl и txt.

Здесь:

ЭлементыФормы.Результат.Записать(Файл );

Надо указывать тип файла

ТипФайлаТабличногоДокумента (SpreadsheetDocumentFileType)

Значения

HTML (HTML)

HTML3 (HTML3)

HTML4 (HTML4)

MXL (MXL)

MXL7 (MXL7)

TXT (TXT)

XLS (XLS)

XLS95 (XLS95)

XLS97 (XLS97)

programmistochka

28 — 06.08.10 — 10:17

Перерыв весь интернет не смог найти простого способа сохранить отчет с большим числом строк в формате Excel. Везде предлагалось писать процедуры построчной записи, ADO, COMSafeArray и прочее.
Метод же, используемый во всех найденный публикациях «Результат.Записать(ИмяФайла,ТипФайлаТабличногоДокумента.XLSX)», не работает при большом числе строк.
Публикация http://infostart.ru/public/77128/ натолкнула на простую идею, которую и реализовал.

&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

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

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

&НаКлиенте
Процедура СохранитьВЭксель(Команда)

    Результат.Записать(ИмяФайлаHTML4,ТипФайлаТабличногоДокумента.HTML4);

Попытка
ЭксельОбъект = Новый COMОбъект("Excel.Application");
ЭксельОбъект.Application.Visible = Ложь;
Книга = ЭксельОбъект.Application.Workbooks.Open(ИмяФайлаHTML4);
Книга.Windows(1).Visible = Истина;
Книга.Application.DisplayAlerts = False;
Книга.SaveAs(ПутьКФайлу,51);
Книга.Close();
ЭксельОбъект.Application.Quit();
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

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

Книга.Windows(1).Visible = Истина;