Привет всем. Подскажите, где можно взять подробное описание как написать обработку, которая будет загружать данные из Excel в 1с.
Привет всем. Подскажите, где можно взять подробное описание как написать обработку, которая будет загружать данные из Excel в 1с.
"В любой книжке по Excel, где в оглавлении есть слова OLE или COM. А так же раздел документации 1С, посвящённый работе с OLE. Кажется, "Описание встроенного языка", второй том. Ниже пример кода, который из счет-фактуры Excel загружает данные в 1С.<br><br>//**************<br><br>Попытка<br><br> // запускаем Excel-Server<br><br> ВходExcel = СоздатьОбъект("Excel.Application");<br><br> ЗапущенExcel = 1;<br><br>Исключение<br><br> ЗапущенExcel = 0;<br><br> Предупреждение("MS Excel не загружен!");<br><br> Возврат;<br><br>КонецПопытки;<br><br>Если ЗапущенExcel=1 Тогда<br><br> Попытка<br><br> // открываем файл<br><br> ВходExcel.Application.Workbooks.Open(ИмяФайла);<br><br> Исключение<br><br> ВходExcel.Quit();<br><br> Предупреждение("Не удается открыть Файл!");<br><br> Возврат;<br><br> КонецПопытки;<br><br>КонецЕсли;<br><br><br><br>НомСтр = 18; //данные начинаются в 18 строке<br><br>Пока 1 = 1 Цикл<br><br> Артикул = ВходExcel.ActiveSheet.Cells(НомСтр,1).Value;<br><br> Наименование = ВходExcel.ActiveSheet.Cells(НомСтр,2).Value;<br><br> Если ПустоеЗначение(Артикул) * ПустоеЗначение(Наименование) = 1 Тогда //пустая строка?<br><br> Прервать;<br><br> КонецЕсли;<br><br> НомСтр = НомСтр + 1;<br><br>КонецЦикла;<br><br>ВсегоСтрок = НомСтр - 1; //последняя непустая строка<br><br><br><br>Для НомСтр = 18 По ВсегоСтрок Цикл<br><br> <br><br> Артикул = СокрЛП(ВходExcel.ActiveSheet.Cells(НомСтр,1).Value);<br><br> Наименование = СокрЛП(ВходExcel.ActiveSheet.Cells(НомСтр,2).Value);<br><br> Количество = Число(ВходExcel.ActiveSheet.Cells(НомСтр,4).Value);<br><br> Сумма = Число(ВходExcel.ActiveSheet.Cells(НомСтр,7).Value);<br><br> <br><br> Сообщить("Товар: "+Наименование+". Код: "+Артикул+". Кол: "+Количество+". Сумма: "+Сумма, "!");<br><br> <br><br>КонецЦикла;<br><br>ВходExcel.ActiveWindow.Close();<br><br><br><br>"
За 20$ Пришлю обработку, да и технология загрузки там видна на лицо
За 10$ я согласна.
Сайт
26 апреля 2024 года — Форум пользователей «1С:Документооборота» |
1C:Лекторий: 25 апреля 2024 года — Бесплатная онлайн-лекция об учете НМА в 2024 году, практические рекомендации в 1С 1C:Лекторий: 7 мая 2024 года — Бесплатная онлайн-лекция о новом в 1С:ЗУП (версии 3.1.27-3.1.29): поддержка изменений по налогам и взносам, СЭДО, регистрация в органе статистики и другие изменения |