|
Програмная запись XLS файла | ☑ | ||
---|---|---|---|---|
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
✎
11:49
|
А как указать Exel что мне всегда надо сохранять - чтоб не спрашивал сохранять ли изменения?
|
|||
6
Wobland
13.06.13
✎
11:49
|
(5) дисплай алертс
|
|||
7
Wobland
13.06.13
✎
11:50
|
ну или саве
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |