Перенос справочника Контрагенты из файла *.xls в Торговлю и Склад 7.7 - возможно?

Новая тема
Уважаемые специалисты! Подскажите, перенос справочника "Контрагенты" из файла  *.xls в Торговлю и Склад 7.7 - возможно?
Возможен.
Если Справочник Контрагенты в ТиС не пустой, могут быть ньюансы.
Зовите программиста 1с.
В ТиС справочник пока пустой, а самостоятеьно никак не перенести? из 1с в другую 1С я переносила сама, а вот Эксельный файл меня пугает.
""из 1с в другую 1С я переносила" ...
значит разберетесь, вот вам подсказка:
ЗапущенExcel=0;
ВходнойФайлОткрыт = 0;

Попытка
ВходExcel = СоздатьОбъект("Excel.Application");
ЗапущенExcel=1;
Исключение      
Сообщить("Ошибка инициализации Excel Server-а");
КонецПопытки;

Если ЗапущенExcel=1 Тогда
Попытка
ВходExcel.Application.Workbooks.Open(ПутьКФайлу);
ВходExcel.ActiveWorkbook.Saved=1;
ВходнойФайлОткрыт = 1;
Исключение
ВходExcel.Quit();
Сообщить("Ошибка открытия файла "+ПутьКФайлу);
КонецПопытки;
КонецЕсли;

Если ВходнойФайлОткрыт = 1 Тогда
Попытка
Range=ВходExcel.ActiveCell.SpecialCells(11).Select;
ВсегоСтрок=ВходExcel.ActiveCell.Row;
Исключение
ВходExcel.Quit();
Сообщить("Ошибка определения размера листа книги Excel");
КонецПопытки;

Контрагенты=СоздатьОбъект("Справочник.Контрагенты");

НачатьТранзакцию();
Для i=1 По ВсегоСтрок Цикл
Контрагенты.Новый();
Контрагенты.Код=ВходExcel.ActiveSheet.Cells(i,1).Value;
Контрагенты.Наименование=ВходExcel.ActiveSheet.Cells(i,2).Value;
Контрагенты.Записать();
КонецЦикла;
ЗафиксироватьТранзакцию();
ВходExcel.Quit();
КонецЕсли;


но... все зависит от того, в каком виде у вас данные в Excel, какие страницы есть в рабочей книге, в какой странице данные расположены и как."
Читают тему
(гостей: 1)

Быстрый переход