Програмная запись XLS файла

1С v8

☑

0 bborisko

13.06.13

✎

11:13

Нужно заполнить файл XlS из 1С - киньте пару примеров если есть. Спасибо!

1 Wobland

13.06.13

✎

11:14

Процедура КнопкаВыполнитьНажатие(Кнопка)
Попытка
Состояние("Загрузка Excel...");
Excel=Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Состояние("Открытие файла...");
ExcelFile=Excel.Workbooks.Open(Файл);
Состояние("Обработка файла...");
Sheet=ExcelFile.Sheets(1);
ПоследняяСтрока=Sheet.Cells.SpecialCells(11).Row;
ЭлементыФормы.Индикатор.Значение=0;
ЭлементыФормы.Индикатор.МаксимальноеЗначение=ПоследняяСтрока-8;
Для стр=8 По ПоследняяСтрока Цикл
ОбработкаПрерыванияПользователя();
ЭлементыФормы.Индикатор.Значение=ЭлементыФормы.Индикатор.Значение+1;
Артикул=СокрЛП(Sheet.Cells(стр, 1).Value);
КонецЦикла;
Excel.Quit();
КонецПроцедуры

2 teapot123

13.06.13

✎

11:20

ТабДокумент = ПечатьМаршрутов();//здесь подготавливаем табличный документ

Если ТабДокумент = "Пустой" Тогда
Возврат;
КонецЕсли;

тмпИмя = ПолучитьИмяВременногоФайла("xls");
ТабДокумент.Записать(тмпИмя, ТипФайлаТабличногоДокумента.XLS97);

ОбъектЕхсел = Новый COMОбъект("Excel.Application");
Ехсел = ОбъектЕхсел.WorkBooks.Open(тмпИмя);

ПараметрыСтраницы = Ехсел.ActiveSheet.PageSetup;
ПараметрыСтраницы.RightHeader = "Маршруты " + Ехсел.ActiveSheet.Cells(3,2).Value;
ПараметрыСтраницы.RightFooter = "Страница &P из &N";
ПараметрыСтраницы.LeftMargin = 1;
ПараметрыСтраницы.RightMargin = 1;
ПараметрыСтраницы.TopMargin = 30;
ПараметрыСтраницы.BottomMargin = 30;
ПараметрыСтраницы.HeaderMargin = 10;
ПараметрыСтраницы.FooterMargin = 10;
ПараметрыСтраницы.Zoom = Ложь;
ПараметрыСтраницы.FitToPagesWide = 1;
ПараметрыСтраницы.FitToPagesTall = 100;

Ехсел.Save();
Ехсел.Close();
ОбъектЕхсел.Application.Quit();
ОбъектЕхсел = Неопределено;

//ЗапуститьПриложение(тмпИмя);
КомандаСистемы(тмпИмя);

3 bborisko

13.06.13

✎

11:21

(1) Спасибо! А как то найти нужную строку можно и уже в нее вписать?

(2) Спасибо, но мне уже в существующий надо вписать значения.

4 Wobland

13.06.13

✎

11:27

(3) спроси у мсдн

5 bborisko

13.06.13