Закачка данных из Excel в 1С

[ALMA]

Ребята, помогите!
Перехожу на 1С "Торговля и склад". Но вот проблема - у меня справочник номенклатуры около 5 тыс., да еще по 5 цен на каждую позицию. Руками набивать просто нереально долго. Поэтому есть вопрос: как закачать из экселя в 1С данные?

[Panda]

написать программу которая это сделает? да?

[ALMA]

написать программу которая это сделает? да?

Я думала что можно каким-то запросом это выполнить... я ж юзер, поэтому такие вопросы и задаю.

[Sergio_Zab]

Я думала что можно каким-то запросом это выполнить... я ж юзер, поэтому такие вопросы и задаю.

Из DBF подойдет!
http://rapidshare.com/files/53570911/ImportDBF.ert.html

[Firewoolf]

Ребята, помогите!
Перехожу на 1С "Торговля и склад". Но вот проблема - у меня справочник номенклатуры около 5 тыс., да еще по 5 цен на каждую позицию. Руками набивать просто нереально долго. Поэтому есть вопрос: как закачать из экселя в 1С данные?

Пишешь обработку которая читает данные из экселевского документа и благополучно их запихуеть в твою новую базу
Либо через DBF

[maxx™]

Ребята, помогите!
Перехожу на 1С "Торговля и склад". Но вот проблема - у меня справочник номенклатуры около 5 тыс., да еще по 5 цен на каждую позицию. Руками набивать просто нереально долго. Поэтому есть вопрос: как закачать из экселя в 1С данные?

Вот тебе пример загрузки в справочник некоторых полей справочника:
Процедура ЗанрузитьХарактеристики()
Если ПустоеЗначение(ИмяФайла)=1 Тогда
Предупреждение("Не задано имя файла!");
Возврат;
КонецЕсли;
Если ФС.СуществуетФайл(ИмяФайла)=0 Тогда
Предупреждение("Неверно задано имя файла!");
Возврат;
КонецЕсли;
НачатьТранзакцию();
Попытка
Excel = СоздатьОбъект("Excel.Application");
Исключение
Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.","!");
Возврат;
КонецПопытки;
Excel.Workbooks.Open(Сокрлп(ИмяФайла));
Книга = Excel.ActiveWorkbook;
Строк = Excel.Cells.CurrentRegion.Rows.Count;
Тов=СоздатьОбъект("Справочник.ТМЦ");
Тов.ИспользоватьРодителя(ВыбТМЦ);
Тов.ИспользоватьДату(ВыбДата);

Для ТекСтрока=1 по Строк Цикл
КодВид = Excel.Cells(ТекСтрока, 1).Value;


// Если ПустаяСтрока(Накл)=1 Тогда
// Продолжить;
// КонецЕсли;


Если Тов.НайтиПоКоду(Строка(КодВид),1)= 0 Тогда
Сообщить("Не найден товар! "+ КодВид);
Продолжить;
КонецЕсли;

Если КолТУ <> 0 Тогда
Тов.ТУ = Excel.Cells(ТекСтрока, КолТУ).Value;;
КонецЕсли;

Если КолМат <> 0 Тогда
Тов.Материал = Excel.Cells(ТекСтрока, КолМат).Value;
КонецЕсли;

Если КолПр <> 0 Тогда
Тов.Производитель = Excel.Cells(ТекСтрока, КолПр).Value;
КонецЕсли;

Если КолНакл <> 0 Тогда
Тов.Накл = Excel.Cells(ТекСтрока, КолНакл).Value;
КонецЕсли;

Сообщить(Тов.код+" "+Тов.Наименование+" загружено ");

Тов.Записать();


КонецЦикла;
ЗафиксироватьТранзакцию();
Excel.Visible=1;
Сообщить(" - Загрузка ЗАВЕРШЕНА !!!");

КонецПроцедуры