Уважаемые специалисты! Подскажите, перенос справочника "Контрагенты" из файла *.xls в Торговлю и Склад 7.7 - возможно?
Уважаемые специалисты! Подскажите, перенос справочника "Контрагенты" из файла *.xls в Торговлю и Склад 7.7 - возможно?
Возможен.<br>Если Справочник Контрагенты в ТиС не пустой, могут быть ньюансы.<br>Зовите программиста 1с.
В ТиС справочник пока пустой, а самостоятеьно никак не перенести? из 1с в другую 1С я переносила сама, а вот Эксельный файл меня пугает.
""из 1с в другую 1С я переносила" ...<br>значит разберетесь, вот вам подсказка:<br>ЗапущенExcel=0;<br>ВходнойФайлОткрыт = 0;<br><br>Попытка <br> ВходExcel = СоздатьОбъект("Excel.Application");<br> ЗапущенExcel=1;<br>Исключение <br> Сообщить("Ошибка инициализации Excel Server-а");<br>КонецПопытки;<br><br>Если ЗапущенExcel=1 Тогда<br> Попытка<br> ВходExcel.Application.Workbooks.Open(ПутьКФайлу);<br> ВходExcel.ActiveWorkbook.Saved=1;<br> ВходнойФайлОткрыт = 1;<br> Исключение<br> ВходExcel.Quit();<br> Сообщить("Ошибка открытия файла "+ПутьКФайлу);<br> КонецПопытки;<br>КонецЕсли;<br><br>Если ВходнойФайлОткрыт = 1 Тогда<br> Попытка<br> Range=ВходExcel.ActiveCell.SpecialCells(11).Select;<br> ВсегоСтрок=ВходExcel.ActiveCell.Row;<br> Исключение<br> ВходExcel.Quit();<br> Сообщить("Ошибка определения размера листа книги Excel");<br> КонецПопытки;<br> <br> Контрагенты=СоздатьОбъект("Справочник.Контрагенты");<br> <br> НачатьТранзакцию();<br> Для i=1 По ВсегоСтрок Цикл<br> Контрагенты.Новый();<br> Контрагенты.Код=ВходExcel.ActiveSheet.Cells(i,1).Value;<br> Контрагенты.Наименование=ВходExcel.ActiveSheet.Cells(i,2).Value;<br> Контрагенты.Записать();<br> КонецЦикла;<br> ЗафиксироватьТранзакцию();<br> ВходExcel.Quit();<br>КонецЕсли;<br><br><br>но... все зависит от того, в каком виде у вас данные в Excel, какие страницы есть в рабочей книге, в какой странице данные расположены и как."
26 апреля 2024 года — Форум пользователей «1С:Документооборота» |
1C:Лекторий: 7 мая 2024 года — Бесплатная онлайн-лекция о новом в 1С:ЗУП (версии 3.1.27-3.1.29): поддержка изменений по налогам и взносам, СЭДО, регистрация в органе статистики и другие изменения 1C:Лекторий: 14 мая 2024 года — Бесплатная онлайн-лекция об учете в 1С:БГУ 8 (ред. 2) невостребованной кредиторами задолженности. Серия 1С:Консалтинг для госсектора |