Подскажите как загрузить данные из Excel в 1с бух
13.12.2005
08:46
#2
"Описание встроенного языка. Часть 2. Стр. 905-908. Пример на странице 908.
Еще один маленький пример:
Перем м,мес,ном;
Процедура Сформировать()
Док=СоздатьОбъект("Документ.отсут");
Док.ВыбратьДокументы("01/01/2005","31/07/2005");
ОкноExcel=СоздатьОбъект("Excel.Application");
ОкноExcel.Caption="мой_отчет";
Новыерабочиекниги=ОкноExcel.workbooks;
рабочаякнига=Новыерабочиекниги.add();
Числорядов=100;
ЧислоСтолбцов=2;
Для ряд=1 по Числорядов цикл
Ячейка=ОкноExcel.cells(ряд+1,1);
Ячейка.value="СТР"+Строка(РЯД);
Конеццикла;
Для столбец=1 по Числостолбцов цикл
Ячейка=ОкноExcel.cells(1,столбец+1);
Ячейка.value="СТл"+Строка(столбец);
Конеццикла;
ряд=1;
Пока Док.получитьдокумент()=1 цикл
текдок=док.текущийДокумент();
Ячейка=ОкноExcel.cells(ряд+1,2);
Ячейка.value=Текдок.НомерДок;
Ячейка=ОкноExcel.cells(ряд+1,3);
Ячейка.value=Текдок.ДатаДок;
ряд=ряд+1;
Конеццикла;
ОкноExcel.visible=1;
КонецПроцедуры
"
Еще один маленький пример:
Перем м,мес,ном;
Процедура Сформировать()
Док=СоздатьОбъект("Документ.отсут");
Док.ВыбратьДокументы("01/01/2005","31/07/2005");
ОкноExcel=СоздатьОбъект("Excel.Application");
ОкноExcel.Caption="мой_отчет";
Новыерабочиекниги=ОкноExcel.workbooks;
рабочаякнига=Новыерабочиекниги.add();
Числорядов=100;
ЧислоСтолбцов=2;
Для ряд=1 по Числорядов цикл
Ячейка=ОкноExcel.cells(ряд+1,1);
Ячейка.value="СТР"+Строка(РЯД);
Конеццикла;
Для столбец=1 по Числостолбцов цикл
Ячейка=ОкноExcel.cells(1,столбец+1);
Ячейка.value="СТл"+Строка(столбец);
Конеццикла;
ряд=1;
Пока Док.получитьдокумент()=1 цикл
текдок=док.текущийДокумент();
Ячейка=ОкноExcel.cells(ряд+1,2);
Ячейка.value=Текдок.НомерДок;
Ячейка=ОкноExcel.cells(ряд+1,3);
Ячейка.value=Текдок.ДатаДок;
ряд=ряд+1;
Конеццикла;
ОкноExcel.visible=1;
КонецПроцедуры
"
Выгрузка проводок из ЗиК258 в Бюджетку513 - КОСГУ почти не виден... UPDзапуск 1С 7.7.025 монопольно автоматом
Читают тему
(гостей: 1)