Нужно выгрузить 3 таблицы в Эксель, т.е. чтобы создалась книга с 3 листами. Книгу-то создаю с данными 1-го листа, а вот следующие листы что-то не идут. Код у меня такой (пока с 2 листами):

Процедура ВЭксель(Таб,Таб2,ИмяФайла="")
       Книга = Excel.WorkBooks.Open(ИмяФайла);
       Книга.Записать(?(ПустоеЗначение(ИмяФайла)=0,ИмяФайла,КаталогПользователя()+"Файл_начислений_01120.xls"),"XLS");
       Excel.Visible=1;      
       Лист1 = Книга.WorkSheets(1);
       Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),Таб.ШиринаТаблицы());
       Область.ВысотаСтроки(12);                
       Лист2 = Книга.WorkSheets.Add;
       Область2=Таб2.Область(1,1,Таб2.ВысотаТаблицы(),Таб2.ШиринаТаблицы());
       Область.ВысотаСтроки(12);                
       Лист1.Activate();
       Лист2.Activate();
КонецПроцедуры

Подскажите, что не так?!

Книга знаний: Исправление ошибки при экспорте в Excel (патчинг Moxel.dll)
Книга знаний: Сохранение данных MXL->XLS через HTML
Книга знаний: Выгрузка справочника в Excel

Лист2 = Книга.WorkSheets.Add(Лист1);

а что не получается ?

Ну, когда у меня добавляется 2-й лист (Лист2 = Книга.WorkSheets.Add;), то при открытии книги его нет. Только 1-й лист с данными, а второго листа нет.

(3) обычно листы не видны при создании из 1с.

Ну да. Я вижу только 1 лист. Точнее, ярлычка не вижу, только данные, которые должны быть рна первом листе. Вы хотите сказать, что надо открыть ярлычки? А программно из 1С этого не сделать?

Книга.Windows.Item(1).DisplayWorkbookTabs=-1;

(5) ну как вариант открыть ярлыки. они на самом деле есть, что-то нужно сдвинуть и ярлыки будут видны.


Книга.Windows.Item(1).DisplayWorkbookTabs = -1;
Книга.Windows.Item(1).TabRatio = 0.5;


Хорошо. Спасибо. Сейчас всё попробую.

А Excel откуда появляется ?
Кроме того, когда мы открываем файл Excel, то надо проверить, что в нём только один лист, а не несколько - иначе можно так надобавляться, что никто и не найдёт последние добавленные листы.

Ну, Экселья создаю
       Excel = СоздатьОбъект("Excel.Application");

Но вот что-то стало выбивать ошибку выражение

       Excel.WorkBooks.SaveAs(ИмяФайла,1);
при попытке создать файл в катклоге (ИмяФайла), хотя в отладчике путь прописывается правильно....

Имя файла - строка фиксированной длины, а пробелы кто-то забыл с конца удалить.

Понял. СокрЛП() надо...

(12) фигня, (11) ха это по башке линейкой надо и почаще

(14) Слава богу, что не ты мой учитель....
Вобщем, кому интересно, проблемку решил так, работает:

       Excel.Visible=1;      
       Excel.DisplayAlerts=0;
       Excel.WorkBooks.Add();
       Книга = Excel.WorkBooks.Item(1);

       Лист1 = Книга.WorkSheets(1);
       Лист1.Name = "Title1";

       Лист2 = Книга.WorkSheets.Add;
       Лист2.Name = "Title1";

Но вот, правда, ещё проблемка: по умолчанию Excel добавляет листы в начало, а надо бы в конец, т.е после последнего листа. Пробовал так (как пишет макрос):

   Книга.WorkSheets.Add After:=Книга.WorkSheets(Книга.WorkSheets.Count)

но 1С на слово "After" ругается всякий раз, хотя контекстом я манипулировал по-разному (напр., Книга.WorkSheets.Add(,After) )
Может, кто знает, в чём тут дело?

Excel.WorkBooks.Add();
       Книга = Excel.WorkBooks.Item(1);
---
розги и на горох )))
----
лист4 = Книга.WorkSheets.Add("",Книга.WorkSheets(3));
как-то так

(15) 1С не знает именованных параметров.
Посмотри в справке по VBA, на каком месте этот параметр стоять должен.

(16) Как-то так не катит, вылетает ошибка с указанием на строку (я пытался по аналогии добавить 2-ой лист к первому)

       Лист2 = Книга.WorkSheets.Add("",Книга.WorkSheets(1));

P/S. на горох меня надо?

угу, тебя на горох
---
Лист2 = Книга.WorkSheets.Add(,Книга.WorkSheets(1));
или
Лист2 = Книга.WorkSheets.Add(0,Книга.WorkSheets(1));

(19) не канает

(20) точна?

(21) да

блиннн, ну могет быть
---
ну тогда можно извратиться с Move