Загрузка из Excel

31.07.2006, 18:54. **Показов** 31653. **Ответов** 1

Студворк — интернет-сервис помощи студентам

здрасте!
Сейчас будет всем надоевшая фраза, а шо делать;). Итак!
Я новичок( вот она фраза):lol:.
Решаю( уже 4 дня) задачу загрузки из Excel в базу новых товаров и обновления цен. Основная сложность: Иерархические справочники(вложеность до 3-х уровней)

Excel-файл имеет формат

!!названиеВидаТовара!!
названиеПроизводителя!!
назание товара
названиеПроизводителя
.....

Код

функция Загрузка()

ВыбратьФайл();
Если ПустаяСтрока(ИмяФайла)=1
Тогда Сообщить(" файл не выбран. Конец загрузки"); возврат 1;
КонецЕсли;
СпрТовара=СоздатьОбъект("Справочник.Това ры");
Эксель=СоздатьОбъект("Excel.Application" );
РабочаяКнига=Эксель.Workbooks;
РабочаяКнига.Open(ИмяФайла,0,1);

к=1;

Пока ПустаяСтрока(Буфер)=0
Цикл
Буфер=ПолучитьЗначение(Эксель,к,1);
//Буфер=AnsiToOem(Буфер);
повтор=СтрЧислоВхождений(Буфер,"!!");
Если повтор=1
Тогда ОпределитьГрпТовара(Буфер);
Иначе
Если повтор=2
Тогда ОпределитьГрпФирмы(Буфер); // процедура ищет группу, если таковой нет добавляет
Иначе
//строка содержит наименование товара
СпрТовара.ИспользоватьРодителя(грпФирмы) ;

Если СпрТовара.НайтиПоНаименованию(Буфер)=0
Тогда
СпрТовара.ИспользоватьДату(ДатаДок);
СпрТовара.Новый();
СпрТовара.Наименование=Строка(ПолучитьЗн ачение(Эксель,к,1));
СпрТовара.Остаток=СпрТовара.Остаток+Числ о(ПолучитьЗначение(Эксель,к,2));
СпрТовара.Прих_Цена=Число(ПолучитьЗначен ие(Эксель,к,3));

СпрТовара.Розн_Цена=Число(ПолучитьЗначен ие(Эксель,к,4));
СпрТовара.Записать();
Сообщить("Добавлен Товар");
Иначе
Если СпрТовара.ЭтоГруппа()=0
Тогда СпрТовара.Прих_Цена=Число(ПолучитьЗначен ие(Эксель,к,3));
СпрТовара.Розн_Цена=Число(ПолучитьЗначен ие(Эксель,к,4));
СпрТовара.Записать();
Иначе Сообщить("неправильно организована таблица.Работай внимательней")
КонецЕсли;
КонецЕсли;

КонецЕсли;

КонецЕсли;

к=к+1;
КонецЦикла;

Проблема : при запуске Документа из 1С, нажимаю загрузить , указываю файл.... и все больше ничего не происходит(ни сообщений о выполнении, ни ошибок).
В отладчике не запускал: потому что не знаю как с ним работать

В общем буду очень благодарен за любые советы. Заранее спасибо!

Кто действительно захочет помочь маякните. расскажу подробнее.ICQ 332834572

31.07.2006, 20:10

да уж! не много ответов.

Нашел глюк. Глуппая ошибка:(.

//здесь не хватало инициализации Буфер

Буфер=ПолучитьЗначение(Эксель,1,1); // вот эта строка.забыл что Буфер только объявлен

Пока ПустаяСтрока(Буфер)=0
Цикл
Буфер=ПолучитьЗначение(Эксель,к,1);
......

Код работает!!!!! Ура!!

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

syrduk

	Загрузка из Excel 31.07.2006, 18:54. Показов 31653. Ответов 1 Метки нет (Все метки) здрасте! Сейчас будет всем надоевшая фраза, а шо делать;). Итак! Я новичок( вот она фраза):lol:. Решаю( уже 4 дня) задачу загрузки из Excel в базу новых товаров и обновления цен. Основная сложность: Иерархические справочники(вложеность до 3-х уровней) Excel-файл имеет формат !!названиеВидаТовара!! названиеПроизводителя!! назание товара названиеПроизводителя ..... Код функция Загрузка() ВыбратьФайл(); Если ПустаяСтрока(ИмяФайла)=1 Тогда Сообщить(" файл не выбран. Конец загрузки"); возврат 1; КонецЕсли; СпрТовара=СоздатьОбъект("Справочник.Това ры"); Эксель=СоздатьОбъект("Excel.Application" ); РабочаяКнига=Эксель.Workbooks; РабочаяКнига.Open(ИмяФайла,0,1); к=1; Пока ПустаяСтрока(Буфер)=0 Цикл Буфер=ПолучитьЗначение(Эксель,к,1); //Буфер=AnsiToOem(Буфер); повтор=СтрЧислоВхождений(Буфер,"!!"); Если повтор=1 Тогда ОпределитьГрпТовара(Буфер); Иначе Если повтор=2 Тогда ОпределитьГрпФирмы(Буфер); // процедура ищет группу, если таковой нет добавляет Иначе //строка содержит наименование товара СпрТовара.ИспользоватьРодителя(грпФирмы) ; Если СпрТовара.НайтиПоНаименованию(Буфер)=0 Тогда СпрТовара.ИспользоватьДату(ДатаДок); СпрТовара.Новый(); СпрТовара.Наименование=Строка(ПолучитьЗн ачение(Эксель,к,1)); СпрТовара.Остаток=СпрТовара.Остаток+Числ о(ПолучитьЗначение(Эксель,к,2)); СпрТовара.Прих_Цена=Число(ПолучитьЗначен ие(Эксель,к,3)); СпрТовара.Розн_Цена=Число(ПолучитьЗначен ие(Эксель,к,4)); СпрТовара.Записать(); Сообщить("Добавлен Товар"); Иначе Если СпрТовара.ЭтоГруппа()=0 Тогда СпрТовара.Прих_Цена=Число(ПолучитьЗначен ие(Эксель,к,3)); СпрТовара.Розн_Цена=Число(ПолучитьЗначен ие(Эксель,к,4)); СпрТовара.Записать(); Иначе Сообщить("неправильно организована таблица.Работай внимательней") КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; к=к+1; КонецЦикла; Проблема : при запуске Документа из 1С, нажимаю загрузить , указываю файл.... и все больше ничего не происходит(ни сообщений о выполнении, ни ошибок). В отладчике не запускал: потому что не знаю как с ним работать В общем буду очень благодарен за любые советы. Заранее спасибо! Кто действительно захочет помочь маякните. расскажу подробнее.ICQ 332834572

syrduk
	31.07.2006, 20:10
	да уж! не много ответов. Нашел глюк. Глуппая ошибка:(. //здесь не хватало инициализации Буфер Буфер=ПолучитьЗначение(Эксель,1,1); // вот эта строка.забыл что Буфер только объявлен Пока ПустаяСтрока(Буфер)=0 Цикл Буфер=ПолучитьЗначение(Эксель,к,1); ...... Код работает!!!!! Ура!!