Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 13:26

Посоветуйте как скинуть прайс номенклатуры из Excel в УТ 11

Автор Ленок87, 06 фев 2012, 13:26

0 Пользователей и 1 гость просматривают эту тему.

Ленок87

Здравствуйте. Очень нужен ваш совет ( начинающий программист,строго не судите если что не так) .Нужно скинуть прайс номенклатуры из Excel в УТ 11 пробую запустить файл "Загрузка файлов из табличной части" открывается пустое окно,хотя в конфигураторе все(вроде) нормально.

Yura063

А что ты хочешь куда добавить? В номенклатуру поставщика?
Помогли, отблагодари!

Yura063


Функция ЗагрузкаИзExcel(ИмяФайла)

    //Номер листа в книге Excel для получения данных
    НомерЛиста         = "НомерЛиста";
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
        Возврат Ложь;
    КонецПопытки;     
    //Подключились удачно, открываем файл
    Excel.Workbooks.Open(ИмяФайла);
    //Открываем необходимый лист
    Excel.Sheets(НомерЛиста).select();   
    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
    Если Версия = "8" тогда
        ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 12);
    Иначе
        ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
        ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;   
    Конецесли;
    // Выбираем данные из файла
// Ввод ВидаНоменклатуры

Для а = 2 по ФайлСтрок Цикл           
//Получим данные из соответсвующих ячеек
Номенклатура = Справочники.ВидыНоменклатуры.СоздатьЭлемент();
  Номенклатура.Наименование = СокрЛП(Excel.Cells(а,1).Value);
Номенклатура.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
Номенклатура.ИспользоватьХарактеристики = Истина;
Номенклатура.ИспользованиеХарактеристик = Перечисления.
ВариантыВеденияДополнительныхДанныхПоНоменклатуре.ИндивидуальныеДляНоменклатуры;
Номенклатура.Записать();
КонецЕсли;
  КонецЕсли;
Конеццикла;
    Excel.ActiveWorkbook.Close();   
КонецФункции


вставляй свои условия, выбирай справочник и вперед!!!
Помогли, отблагодари!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск