Перенос справочника Контрагенты из файла *.xls в Торговлю и Склад 7.7 - возможно?
13.03.2008
13:00
#1
Уважаемые специалисты! Подскажите, перенос справочника "Контрагенты" из файла *.xls в Торговлю и Склад 7.7 - возможно?
13.03.2008
13:42
#2
Возможен.
Если Справочник Контрагенты в ТиС не пустой, могут быть ньюансы.
Зовите программиста 1с.
Если Справочник Контрагенты в ТиС не пустой, могут быть ньюансы.
Зовите программиста 1с.
13.03.2008
13:53
#3
В ТиС справочник пока пустой, а самостоятеьно никак не перенести? из 1с в другую 1С я переносила сама, а вот Эксельный файл меня пугает.
13.03.2008
15:53
#4
""из 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, какие страницы есть в рабочей книге, в какой странице данные расположены и как."
значит разберетесь, вот вам подсказка:
Запущен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)