Процедура Ячейка(Лист,х,у,Значение)
ТекущаяЯчейка=Лист.Cells(х,у);
Если ПустоеЗначение(Значение)=0 Тогда
ТекущаяЯчейка.Value=Значение;
ИначеЕсли ПустоеЗначение(СокрЛП(Строка(ТекущаяЯчейка.Value)))=0 Тогда
ТекущаяЯчейка.Value=Значение;
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура Сформировать()
ПутьКФайлу = "C:\Documents and Settings\Администратор\Рабочий стол\";
ОкноЕхсеl = СоздатьОбъект("Excel.Application");
ОкноЕхсеl.Caption = "Для импорта из 1с";
РабочиеКниги = ОкноЕхсеl.Workbooks;
РабочаяКнига = РабочиеКниги.Open(ПутьКФайлу+"cntr.xls", 0, 0, 1,,,1);
Лист=РабочаяКнига.Worksheets("Cntr");
Ячейка(Лист,10,5,"Тест");
Ячейка(Лист,1,1,"Код");
Ячейка(Лист,1,2,"Наименование");
Ячейка(Лист,1,3,"ПолнНаименование");
Ячейка(Лист,1,4,"Адрес");
Ячейка(Лист,1,5,"ФизАдрес");
Ячейка(Лист,1,6,"Телефоны");
Ячейка(Лист,1,7,"Директор");
Ячейка(Лист,1,8,"ГлавныйБухгалтер");
Ячейка(Лист,1,9,"ЕДРПОУ");
Ячейка(Лист,1,10,"ИНН");
Ячейка(Лист,1,11,"НомерСвидетельства");
Ячейка(Лист,1,12,"ВидТорговли");
Ячейка(Лист,1,13,"БазДоговор");
Ячейка(Лист,1,14,"Контакт");
Ячейка(Лист,1,15,"ДокСерия");
Ячейка(Лист,1,16,"ДокНомер");
Ячейка(Лист,1,17,"ДокКемВыдан");
Ячейка(Лист,1,18,"ДокДатаВыдачи");
Ячейка(Лист,1,19,"ВидВзаиморасчетов");
Ячейка(Лист,1,20,"СтарыйПолныйКод");
Ячейка(Лист,1,21,"ПлательщикНалогаНаПрибыль");
У = 1;
СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
Если СпрКонтрагенты.ВыбратьЭлементы() = 1 Тогда
Пока СпрКонтрагенты.ПолучитьЭлемент() = 1 Цикл
Если (СокрЛП(СпрКонтрагенты.Наименование) <> "Новый") Тогда
У = У + 1;
Ячейка(Лист,У,1,СпрКонтрагенты.Код);
Ячейка(Лист,У,2,СокрЛП(Строка(СпрКонтрагенты.Наименование)));
Ячейка(Лист,У,3,СокрЛП(Строка(СпрКонтрагенты.ПолнНаименование)));
Ячейка(Лист,У,4,СокрЛП(Строка(СпрКонтрагенты.Адрес)));
Ячейка(Лист,У,5,СокрЛП(Строка(СпрКонтрагенты.ФизАдрес)));
Ячейка(Лист,У,6,СокрЛП(Строка(СпрКонтрагенты.Телефоны)));
Ячейка(Лист,У,7,СокрЛП(Строка(СпрКонтрагенты.Директор)));
Ячейка(Лист,У,8,СокрЛП(Строка(СпрКонтрагенты.ГлавныйБухгалтер)));
Ячейка(Лист,У,9,СокрЛП(Строка(СпрКонтрагенты.ЕДРПОУ)));
Ячейка(Лист,У,10,СокрЛП(Строка(СпрКонтрагенты.ИНН)));
Ячейка(Лист,У,11,СокрЛП(Строка(СпрКонтрагенты.НомерСвидетельства)));
Ячейка(Лист,У,12,СокрЛП(Строка(СпрКонтрагенты.ВидТорговли)));
Ячейка(Лист,У,13,СокрЛП(Строка(СпрКонтрагенты.БазДоговор)));
Ячейка(Лист,У,14,СокрЛП(Строка(СпрКонтрагенты.Контакт)));
Ячейка(Лист,У,15,СокрЛП(Строка(СпрКонтрагенты.ДокСерия)));
Ячейка(Лист,У,16,СокрЛП(Строка(СпрКонтрагенты.ДокНомер)));
Ячейка(Лист,У,17,СокрЛП(Строка(СпрКонтрагенты.ДокКемВыдан)));
Ячейка(Лист,У,18,СокрЛП(Строка(СпрКонтрагенты.ДокДатаВыдачи)));
Ячейка(Лист,У,19,СокрЛП(Строка(СпрКонтрагенты.ВидВзаиморасчетов)));
Ячейка(Лист,У,20,СокрЛП(Строка(СпрКонтрагенты.СтарыйПолныйКод)));
Ячейка(Лист,У,21,СокрЛП(Строка(СпрКонтрагенты.ПлательщикНалогаНаПрибыль)));
КонецЕсли;
КонецЦикла;
КонецЕсли;
РабочаяКнига.SaveAs(ПутьКФайлу+"cntr_g.xls");
ОкноЕхсеl.Quit();
КонецПроцедуры
Вернуться в Вопросы по разработке в системе
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8