1С 7,7 Импорт *.xls
19.04.2006
11:46
#1
У меня стоит 1С 7,7 и список товаров около 5000 позиций2 как мне их залитв 1С что бы не вводить все руками!
19.04.2006
13:09
#2
Написать свою обработку (или может найти где-нибудь уже существующую) по выгрузке данных из Excel в 1С.
19.04.2006
16:09
#5
"В свое время нужно было перенести справочник материалов из excel файла в
базу 1с:Бухгалтерия 7.7. Подредактируй обработку к своим нуждам (все равно каждый справочник в каждой конфигурации разный - в бухгалтерии один, в ПУБ - другой в торговле третий). если хоть чуть знаком с программированием необязательно в 1С думаю разберешься
Задача: Есть документ в Excel следующего содержания:
№№ п/п Название товара Идентификационный № Количество цена
1 Пружина PMD 20008130 2 0,20
…
Нужно внести данные из такой таблицы в справочник «Материалы»
// Создаем новый отчет ?.ERT, во вкладке диалог добавляем 1 кнопку, по нажатию которой будет выполняться наша процедура (см. ниже). В свойстве «Формула» укажем название нашей процедуры.
// В вкладке модуль пишет нижеприведенный текст:
Процедура Делать()
// создаем внешний объект Excel
источник = создатьобъект ("Excel.Application");
// получаем доступ к экземпляру объекта «справочник.единицыизмерений»
едизм = создатьобъект("справочник.единицыизмерений");
// две следующие строки возможно понадобятся, если в документе Excel более 1 листа
// источникнига = источник.workbooks("sacmiord");
// источниклист = источникнига.worksheets("лист1");
// в нашей таблице 59 строк, но в принципе сюда можно поставить любое чсило и даже параметр
для ряд = 1 по 59 цикл
// далее заносим в четыре переменные данные из столбцов 2-5, ряд+1 означает, что мы начинаем со второй строки, т.к. первая строка - шапка
ячейка1 = источник.cells(ряд +1,2).value;
ячейка2 = источник.cells(ряд +1,3).value;
ячейка3 = источник.cells(ряд +1,4).value;
ячейка4 = источник.cells(ряд +1,5).value;
// получаем доступ к экземпляру объекта «справочник.материалы»
приемник = создатьобъект ("Справочник.Материалы");
// создаем новый экземпляр данного справочника
приемник.новый();
// далее заполняем его реквизиты, наименование получаем из столбцов «наименование товара» и «идентификационный номер»
приемник.наименование = """"+ячейка1+" "+ячейка2;
//реквизит «субсчет10» должен получать значение типа «счет», поэтому используем конструкцию вида счетпокоду, а не просто строковое обозначение счета
приемник.субсчет10 = счетпокоду("10.5");
//реквизит «единицаизмерения» получаем из справочника Единицаизмерения (экземпляр его был создан выше) приемник.единицаизмерения = едизм.НайтиПокоду(796);
// цену получаем из столбца 5
приемник.цена = ячейка4;
// записываем полученный новый материал в базу
приемник.записать();
// в табло просто пишем, что создан новый элемент и все такое…
сообщить ("Создан новый элемент: "+ячейка1+ " "+ячейка2,"!");
// завершаем цикл и процедуру
конеццикла;
конецпроцедуры;
"
базу 1с:Бухгалтерия 7.7. Подредактируй обработку к своим нуждам (все равно каждый справочник в каждой конфигурации разный - в бухгалтерии один, в ПУБ - другой в торговле третий). если хоть чуть знаком с программированием необязательно в 1С думаю разберешься
Задача: Есть документ в Excel следующего содержания:
№№ п/п Название товара Идентификационный № Количество цена
1 Пружина PMD 20008130 2 0,20
…
Нужно внести данные из такой таблицы в справочник «Материалы»
// Создаем новый отчет ?.ERT, во вкладке диалог добавляем 1 кнопку, по нажатию которой будет выполняться наша процедура (см. ниже). В свойстве «Формула» укажем название нашей процедуры.
// В вкладке модуль пишет нижеприведенный текст:
Процедура Делать()
// создаем внешний объект Excel
источник = создатьобъект ("Excel.Application");
// получаем доступ к экземпляру объекта «справочник.единицыизмерений»
едизм = создатьобъект("справочник.единицыизмерений");
// две следующие строки возможно понадобятся, если в документе Excel более 1 листа
// источникнига = источник.workbooks("sacmiord");
// источниклист = источникнига.worksheets("лист1");
// в нашей таблице 59 строк, но в принципе сюда можно поставить любое чсило и даже параметр
для ряд = 1 по 59 цикл
// далее заносим в четыре переменные данные из столбцов 2-5, ряд+1 означает, что мы начинаем со второй строки, т.к. первая строка - шапка
ячейка1 = источник.cells(ряд +1,2).value;
ячейка2 = источник.cells(ряд +1,3).value;
ячейка3 = источник.cells(ряд +1,4).value;
ячейка4 = источник.cells(ряд +1,5).value;
// получаем доступ к экземпляру объекта «справочник.материалы»
приемник = создатьобъект ("Справочник.Материалы");
// создаем новый экземпляр данного справочника
приемник.новый();
// далее заполняем его реквизиты, наименование получаем из столбцов «наименование товара» и «идентификационный номер»
приемник.наименование = """"+ячейка1+" "+ячейка2;
//реквизит «субсчет10» должен получать значение типа «счет», поэтому используем конструкцию вида счетпокоду, а не просто строковое обозначение счета
приемник.субсчет10 = счетпокоду("10.5");
//реквизит «единицаизмерения» получаем из справочника Единицаизмерения (экземпляр его был создан выше) приемник.единицаизмерения = едизм.НайтиПокоду(796);
// цену получаем из столбца 5
приемник.цена = ячейка4;
// записываем полученный новый материал в базу
приемник.записать();
// в табло просто пишем, что создан новый элемент и все такое…
сообщить ("Создан новый элемент: "+ячейка1+ " "+ячейка2,"!");
// завершаем цикл и процедуру
конеццикла;
конецпроцедуры;
"
Читают тему
(гостей: 1)