Добрый вечер!
Имеется отчет, как я могу выгрузить его в существующий файл Excel и поместить на определенный лист, например 3, сохранив данные на листе 1 и 2? В отчете много форматирования, хотелось бы его сохранить.

Книга знаний: Исправление ошибки при экспорте в Excel (патчинг Moxel.dll)

Excel = СоздатьОбъект("Excel.Application");
Excel.Workbooks.Open(ФЗ);
Лист=Excel.Worksheets(3);

//*******************************************
// CopyWorsheetExcel(vlParameter)
//
// Параметры:
//  vlParameter - Список значений. Должен содержать
//                следующие значения:
//                InBook  - Строка. Полное имя файла источника.
//                OutBook - Строка. Полное имя файла цели.
//                Sheet   - Строка. Имя листа.
//
// Возвращаемое значение:
//  Число. 0 - лист скопирован. Иначе код ошибки:
//         1 - Не пердали ни одного файла.
//         2 - Файл источник не существует.
//         3 - Файл цель не существует.
//         4 - Не передали имя листа.
//         5 - Excel не установлен.
//         6 - В файле источника отсутсвует лист с
//             переданным наименованием.
//
// Описание:
//  Функция копирует лист Excel из одной книги в другую.
//  Если передали только одно имя, то создается копия листа
//  в этой же книге.
//
function CopyWorsheetExcel(vlParameter);
   // Получим из списка имя файлов.
   InFile = vlParameter.Get("InBook");
   OutFile = vlParameter.Get("OutBook");
   // Проверим правильность полученных параметров.
   if (emptyvalue(InFile) = 1) and (emptyvalue(OutFile) = 1) then
       // Если не передали не одного имени файла,
       // то закончим с ошибкой.
       return 1;
   elsif emptyvalue(InFile) = 1 then
       // Если получили только OutBook скопируем его
       // значение. Будем копировать лист в одной книге.
       InFile = OutFile;
   elsif emptyvalue(OutFile) = 1 then
       // Аналогично.
       OutFile = InFile;
   endif;
   // Проверим существование файла источника.
   if fs.ExistFile(InFile) = 0 then
       return 2;
   endif;
   // Проверим существование файла цели.
   if fs.ExistFile(OutFile) = 0 then
       return 3;
   endif;
   // Получим имя листа.
   InWorksheet = vlParameter.Get("Sheet");
   if emptyvalue(InWorksheet) = 1 then
       // Если значение пустое, то закончим с
       // ошибкой.
       return 4;
   endif;
   // Пробуем подключиться к OLE Server Excel
   try
       Excel = createobject("Excel.Application");
   except
       return 5;
   endtry;
   // Откроем файл источника.
   Excel.Workbooks.Open(InFile);
   // Если источник не равен цели, то
   if InFile <> OutFile then
       // откроем и файл цели.
       Excel.Workbooks.Open(OutFile);
   endif;
   // Получим указатели на открытые нами книги.
   InBook = Excel.Workbooks.Item(ShortName(InFile));
   OutBook = Excel.Workbooks.Item(ShortName(OutFile));
   // Посмотрим есть ли у источника лист с нужным
   // нам наименованием.
   try
       // Если есть, то получим указатель на него.
       InSheet = InBook.Sheets(InWorksheet);
   except
       // Иначе, говорим об ошибке.
       return 6;
   endtry;
   // Копируем лист.
   InSheet.Copy(OutBook.Worksheets(1));
   // Покажем результат пользователю.
   Excel.Visible = 1;
   Excel.EnableEvents = 1;
   Excel.ScreenUpdating = 1;
   return 0;
endfunction

Т.е. механизм такой - сохраняем отчет во временный файл Excel и потом копируем лист из него в нужный мне файл Excel?

Спасибо, попробую:)

(3) а если нету МС офиса? Тогда выручает Йоксель, йопта. Юзай Яндекс или www.yoksel.ru, как мне помнится

(5)а если бы небыло, то так бы и сказали... а насчет йокселя согласен - йобата

(6) Я не разработчик Ёкселя, и не получаю деньгу за рекламу, НО это практически ЕДИНСТВЕННЫЙ  нормальный конвретер тз MXL to XLS, ИМХО. Я им пользуюсь,  юзеры в удовлетворении, я в еще большем. Так что, нулевой, юзай йоксель.

нулевой это когда хер висит между ног и не встает... лучше шлепай амортизацию начислять...

(5) Точнее: http://yoksel.net.ru  :)

(8) У мсье богатый жизненный опыт...

(9)достаточный что бы не пользоваться вашей подделкой под ексель

как из 1с программно установить защиту на группу ячеек в екселе?

(10) Ну естественно, когда такие проблемы, где уж тут пользоваться внешними компонентами :D

(12)давай не умничай помоги своим йопселем решить проблему

(13) Дык, все решается :D

вставить в лист макрос, выполнить его и получить результат

(15) Вставить в 1С макрос (ой, пардон, код на встроенном языке), выполнить его и получить результат. И главное, без всяких внешних ... макросов!!!

(16)как вставить в 1С макрос для екселя?

(17) А на хрен? Может, Йоксель тебе еще носки гладить должен? У него есть определенный набор возможностей. Каждый сам определяет, достаточны они для него или нет.

(18)мне надо обработать данные имея поноценный функционал возможностей VBA ... например разобрать компаунд...


я разве просил носки гладить... ты сказал, что йоксель замена екселя... то есть все таки йопселем не замена екселя?

(19) Если тебе нужен полноценный функционал VBA, то бери Excel и не парься.

То, что Йоксель замена Excel я никогда не говорил - это ты сам себе придумал и сам с этой глупостью борешься.

Йоксель в ряде случаев удобнее для создания файлов Excel, чем использование Мокселя или OLE-automation. Вот и все. Каждый сам решает, достаточен ли ему функционал Йокселя и делает выбор.

Пытаться же абсолютно все делать стандартным Мокселем и Excel через OLE как делаешь ты - неразумно. Пытаться абсолютно все делать Йокселем как НЕ ДЕЛАЮ я - тоже неразумно.

то есть переведя на русский... если вам нужен вот простой файлик екселя(аналог по возможностям стандартного мокселя) то имейте йоксель... а если более правильный и навороченый, то я пас... тут вам ексель в руки?

(21) Нет. Если перевести на русский, то звучит оно так: "Если вас устраивает функционал Йокселя по созданию файлов Excel, то используйте Йоксель. Если вас не устраивает функционал Йокселя, то используйте Excel".

(22)тогда не понял смысл твоего наезда... тебе не понравилось, что я твою подделку под екслеь йобатой назвал?

екслеь = ексель

минуточку. попкорн кончился.

(23) Что вы, что вы, здесь никто ни на кого не наезжает :D

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

(27) Испугался, да? :D

как медведь бочонка меда