Универсальная обработка для загрузки данных из Экселя в табличную часть документа

Публикация № 15879

Обмен - Загрузка и выгрузка в Excel

538
Загружает данные из Экселя в табличную часть документа (БЕЗ ПАРОЛЯ).

Загружает данные из Экселя в любую табличную часть любого документа. Единственное требование: в таблице Экселя в первой строке должны быть проставлены наименования колонок.

Поиск элементов справочников - по наименованию. Если элемент не найден - тогда выдается вопрос "Добавить??". При утвердительном ответе появляется форма нового элемента справочника, ее рученьками заполняем. Сохраняем - и элемент попадает в строку документа.

 

538

Скачать файлы

Наименование Файл Версия Размер
ЗагрузкаИзЭкселяВДокумент
.epf 11,39Kb
20.03.13
3982
.epf 11,39Kb 3982 Скачать бесплатно
Инструкция
.1212140420 0,65Kb
20.03.13
2261
.1212140420 0,65Kb 2261 Скачать бесплатно

См. также

Специальные предложения

Комментарии
Избранное Подписка Сортировка: Древо
1. tango 488 30.05.08 14:17 Сейчас в теме
Можно ли считать дамой девушку, имевшую диск ИТС? ну, более-менее регулярно
2. ОбнажЁнная_Маха 1313 30.05.08 15:42 Сейчас в теме
(1) Не поняла шутки юмора... Что Вы имеете ввиду?
turbomilo@mail.ru; +1 1 Ответить
3. tango 488 30.05.08 16:12 Сейчас в теме
Цитата из ИТС, если Вы понимаете, что я имею в виду на этот раз:
Обработка ЗагрузкаДанныхИзТабличногоДокумента.epf находится в каталоге \1СITS\EXE\ExtReps\Unireps8
Это по-существу. А тон вызван предчувствием появления у вас трех и более плюсиков за это.
5. ОбнажЁнная_Маха 1313 30.05.08 16:39 Сейчас в теме
Цитата из ИТС, если Вы понимаете, что я имею в виду на этот раз:Обработка ЗагрузкаДанныхИзТабличногоДокумента.epf находится в каталоге \1СITS\EXE\ExtReps\Unireps8

(3) а, я так и думала! :) Ну и что?? Просто интересно мне было самой такую штуку написать - вот я и написала :)))

А тон вызван предчувствием появления у вас трех и более плюсиков за это.

а вас что - завидки берут?? Так не мужское это дело, товарищ, чужие плюсики считать и эмоции отрицательные по поводу их количества растущего испытывать :P
rabota.v8.1c; jhfrek; kenza; Borisych; tretyi; Kolunya; ded00786; cs25; vasilykushnir; +9 1 Ответить
6. vasilykushnir 30.05.08 17:02 Сейчас в теме
(5)Ай да молодца, девочка! Браво!
rabota.v8.1c; Archangel1; +2 Ответить
4. Abadonna 3820 30.05.08 16:17 Сейчас в теме
>Можно ли считать дамой девушку
Все женщины делятся на:
- дам
- не дам
- дам, но не Вам
;)
kojinandrej; Hello; Учтено; ded00786; +4 Ответить
7. tango 488 30.05.08 17:05 Сейчас в теме
(4) ок. правильный вопрос: чем делится девушка с ИТСом? раньше, говорят, в парках девушки были с ВЕСЛОм, гипсовые. они никак не делились, поэтому их больше нету. а у нас есть. жизнерадостные от того, что тоже пишут.
8. Lapitskiy 898 31.05.08 06:07 Сейчас в теме
Это недолго. Пока замуж не возьмут. Потом желание программировать у девушек пропадает напрочь.
9. Abadonna 3820 31.05.08 06:13 Сейчас в теме
(9) Не всегда. Знаю одну мадам, замужем. Мало того - муж крутой бизнесмен, и ей ваще работать не обязательно. Программит, ходит на работу - ей этого хочется
10. ОбнажЁнная_Маха 1313 31.05.08 12:33 Сейчас в теме
я вобще понять не могу, какая связь между желанием заниматься любимым делом (неважно, каким, например программированием) и личной жизнью... Опыт подсказывает, что одно другому ни капельки не мешает! :)
rabota.v8.1c; jhfrek; busko; for-elenak; tur_gad1; +5 1 Ответить
11. cs25 80 01.06.08 12:54 Сейчас в теме
12. tango 488 02.06.08 14:15 Сейчас в теме
"опыт подсказывает, что... не могу понять" :) даже "я вообще не могу понять" :)
13. ded00786 346 02.06.08 15:00 Сейчас в теме
Чего пристали к девушке... или к мадам... или к мадмуазель... в общем к Махе :)
Если человек программирует и ему это нравится, то какая нахр..н разница парень это или девушка, пусть даже "ОбнажЁнная"???
Да и потом, у многих девушек логическое мышление развито намного лучше, чем у большинтсва парней...
Хотя, опять-же, какая к черту разница...
for-elenak; tur_gad1; +2 Ответить
14. vasilykushnir 02.06.08 15:19 Сейчас в теме
(13) Ну не скажи... Бог для того и создал женщин, чтобы:
а) к ним приставать
б) мужики не спились от счастья...

или б) - все таки была первоначальная задумка?...
А относительно логики... Все-таки такой дисскусии не место в теме разработки. А Маху никто не обижает (капелька иронии еще никому не вредила) и даже смирились, что она Обнаженная.
19. ded00786 346 02.06.08 16:50 Сейчас в теме
(13) :)
(15) Откуда такая неприязнь? Или вы знакомы? А нас дурите? ;)
20. ОбнажЁнная_Маха 1313 02.06.08 17:18 Сейчас в теме
(19) не знакомы. мне вот тоже удивительно - откуда такая неприязнь??..
15. tango 488 02.06.08 15:23 Сейчас в теме
между прочим, никто не может утверждать, что этот учаснег - женскава полу
16. Abadonna 3820 02.06.08 15:40 Сейчас в теме
17. tango 488 02.06.08 15:57 Сейчас в теме
18. Abadonna 3820 02.06.08 16:09 Сейчас в теме
(17) Вообще-то город в профайле указан :)
21. rasswet 82 04.06.08 12:59 Сейчас в теме
понравилась обработка. в отличии от нескольких других сработала без дополнительного шаманства.
22. blacky64 04.06.08 13:59 Сейчас в теме
23. MX 06.06.08 18:11 Сейчас в теме
Подобный велосипед давно катается на дисках ИТС. Но и этот неплох, поставил плюсик.
24. CheBurator 06.06.08 18:18 Сейчас в теме
подобный велосипед лайт-версия на 7.7 позволяет грузить и быстро соотносить "похожие" названия... (продемонстрировано на примере заявок загрузок покупателей)
http://www.infostart.ru/profile/174/projects/393/
.. спрашивается: а что нового в *-ке...? ;-)
27. ОбнажЁнная_Маха 1313 08.06.08 14:37 Сейчас в теме
(24) клевая идея! очень мне понравилась.... я даже плюсанула! :) вот что значит опыт! мне такое даже в голову не приходило...
25. asvel 136 07.06.08 10:48 Сейчас в теме
1C и Женщина = две вещи совместные! Плюс!
ОбнажЁнная_Маха; +1 Ответить
26. ОбнажЁнная_Маха 1313 07.06.08 15:45 Сейчас в теме
28. RegrZ 58 09.06.08 10:23 Сейчас в теме
Умница, красиво и оригинально :)
ОбнажЁнная_Маха; +1 Ответить
29. poppy 3348 10.06.08 05:40 Сейчас в теме
Сделаю девушке приятно - оставлю комментарий!

Мдааа... Лучше-б я не смотрела эту обработку. Только расстроилась.

Некрасиво и неоригинально. Куча ошибок и ляпов.
Особый шедевр - выбор вида документа... Жесть. :(

Имхо в коде опреатор Выполнить лишний. Такой функционал можно реализовать и без него.

Например, вместо:
Код
   СтрокаДляВыполнения = "ВспомогательныйРеквизит = Документы." + Документ.Метаданные().Имя + ".ПолучитьФормуНовогоДокумента();";
   Выполнить(СтрокаДляВыполнения);
...
      Выполнить("ЗагружаемаяТЧ = ВспомогательныйРеквизит.ДокументОбъект." + ЭлементыФормы.ТабличныеЧастиДока.ТекущиеДанные.НаименованиеТЧ + ";");
Показать полностью

можно написать:
Код
   ВспомогательныйРеквизит = Документы[Документ.Метаданные().Имя].ПолучитьФормуНовогоДокумента();
...
      ЗагружаемаяТЧ = ВспомогательныйРеквизит.ДокументОбъект[ЭлементыФормы.ТабличныеЧастиДока.ТекущиеДанные.НаименованиеТЧ];
Показать полностью

ОбнажЁнная_Маха; +1 Ответить
30. tango 488 10.06.08 08:59 Сейчас в теме
(29) люди смотрят на маху, как она пишет, а не на то, что она написала
31. ОбнажЁнная_Маха 1313 10.06.08 09:28 Сейчас в теме
poppy, спасибо! я не знала, что так можно... каюсь. :) буду теперь использовать!
На ошшибках, как говорится, учатся...
32. nvetal 14.06.08 13:16 Сейчас в теме
А загружает ли он с группировками?
33. ОбнажЁнная_Маха 1313 14.06.08 15:26 Сейчас в теме
(32) не совсем поняла, что имеется ввиду... но если в разные группы справочника, то для этого в экселевском документе должен быть столбец "Группа"
34. Fixator 18.06.08 08:31 Сейчас в теме
35. gp42 26.06.08 10:24 Сейчас в теме
ОбнажЁнная_Маха исправь такую ошибку
У тебя метод НайтиПоНаименованию(<значение ячейки из Excel>)
Теперь такой момент, у меня в наименованиях товаров встречаються кавычки например (телевизор "Philips")
метод НайтиПоНаименованию("телевизор "P<?>hilips"") выдает ошибку .....
Продумай вариант замены кавычки " на две ковычки ""
37. poppy 3348 27.06.08 22:11 Сейчас в теме
(35)
Можно обойтись и без замены кавычек. Если отказаться от оператора "Выполнить". О чем говорилось в (29).

Код:
Код
Выполнить("Если " + строка.ТипРеквизитаТЧДока + ".НайтиПоНаименованию(""" + 
ДокЭксель.Sheets(1).Cells(счСтрок,счКолонок).Value + """) = " + 
строка.ТипРеквизитаТЧДока + ".ПустаяСсылка() тогда " + 
"Ответ = Вопрос(""Элемент справочника " + 
Прав(строка.ТипРеквизитаТЧДока,СтрДлина(строка.ТипРеквизитаТЧДока) - 
Найти(строка.ТипРеквизитаТЧДока,".")) + " с наименованием " + 
ДокЭксель.Sheets(1).Cells(счСтрок,счКолонок).Value + 
" не найден! Добавить элемент??"", Режим, , , ""Вопрос"");" + 
"Если Ответ = КодВозвратаДиалога.Да Тогда ФормаЭлемента = " + 
строка.ТипРеквизитаТЧДока + 
".СоздатьЭлемент().ПолучитьФорму(); ФормаЭлемента.Элементыформы.Наименование.Значение = """ + 
ДокЭксель.Sheets(1).Cells(счСтрок,счКолонок).Value + 
"""; ФормаЭлемента.ОткрытьМодально(); СтрокаТЧ." + строка.РеквизитТЧДока + 
" = " + строка.ТипРеквизитаТЧДока + ".НайтиПоНаименованию(""" + 
ДокЭксель.Sheets(1).Cells(счСтрок,счКолонок).Value + 
"""); КонецЕсли; КонецЕсли;");
Показать полностью


Заменить на:
Код
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(СтрокаТЧ[Строка.РеквизитТЧДока])) Тогда
   
   Спр = Новый(ТипЗнч(СтрокаТЧ[Строка.РеквизитТЧДока]));
   Наименование = ДокЭксель.Sheets(1).Cells(счСтрок,счКолонок).Value;
   
   Если Справочники[Спр.Метаданные().Имя].НайтиПоНаименованию(Наименование).Пустая() Тогда
      Ответ = Вопрос("Элемент справочника " + Спр.Метаданные().Имя + " с наименованием " + 
      Наименование + " не найден! Добавить элемент??", РежимДиалогаВопрос.ДаНет, , , "Вопрос");
      Если Ответ = КодВозвратаДиалога.Да Тогда 
         ФормаЭлемента = Справочники[Спр.Метаданные().Имя].СоздатьЭлемент().ПолучитьФорму();
         ФормаЭлемента.Элементыформы.Наименование.Значение = Наименование;
         ФормаЭлемента.ОткрытьМодально();
         СтрокаТЧ[Строка.РеквизитТЧДока] = ФормаЭлемента.Ссылка;
      КонецЕсли;
   КонецЕсли;
КонецЕсли;
Показать полностью
36. gp42 26.06.08 10:58 Сейчас в теме
сними с пароля модуль отчета, я его немного доработать хочу
38. VicAlex 56 19.07.08 22:20 Сейчас в теме
Сделать бы еще поиск не только по Наименованию, но и по выбранному реквизиту.
Могут быть элементы с одинаковыми наименованиями, но с каким-то "ключевым" реквизитом.
39. Sergey K 65 23.07.08 08:16 Сейчас в теме
Зачем закрывать модуль обработки..
я предполагаю, ничего сверхъестественного там нет.. :)
40. ОбнажЁнная_Маха 1313 23.07.08 08:53 Сейчас в теме
(39) А чтобы не видно было моего некрасивого и неоптимального кода! :D
IgorTsapko; +1 Ответить
41. gutentag 254 13.08.08 12:51 Сейчас в теме
А как загрузить данные в Операцию(хотя бы в бух.учет) ?
42. strah4 02.10.08 16:49 Сейчас в теме
Мммм... не понял, а почему справочники по наименованию? Имена ж не уникальны. Или я туплю?
43. vitae 03.12.08 15:56 Сейчас в теме
44. grey82 78 07.04.09 11:45 Сейчас в теме
Жаль, что код модуля закрыт. Хотелось бы взглянуть, как некоторые моменты реализованы. Может что нить полезное почерпнул бы.
45. Redmonkey 04.05.09 20:29 Сейчас в теме
У меня почему-то не находит элементы справочника, надо загрузить 5500 номеннклатур в установку цен, может я что-то не то делаю? помогите плиз
46. Атеист33 05.05.09 09:34 Сейчас в теме
тут все разбирают по делу или по полу ?
47. Redmonkey 05.05.09 18:39 Сейчас в теме
объясните как пользоваться пожалуйста(
49. 1981ink 20.05.09 18:58 Сейчас в теме
Народ кто нить для 7ки подобное видел
50. Solo1 29.10.09 15:30 Сейчас в теме
на локальной восьмерке все работает на ура, а на сетевой выдает ошибку (может, это не от восьмерки зависит, я не знаю). Объясните, пожалуйста, как исправить.
{Форма.Форма(54)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект): Ошибка получения объекта COM: Класс не зарегистрирован
ДокЭксель = ПолучитьCOMОбъект(ПутьКФайлу);
по причине:
Ошибка получения объекта COM: Класс не зарегистрирован
51. Solo1 02.11.09 09:45 Сейчас в теме
Люди! Объясните кто-нибудь как сделать, чтобы обработка работала!!
52. nikser 20.01.10 10:31 Сейчас в теме
Ни фига не работает. привязка к наименованию тупиковый путь . Пробел лишний поставил и всё не работает. И коряво описание сделано. Без поллитра не разобраться. Если выкладываете , то хотя бы не такой сырой продукт.
53. Asima 18.02.10 16:26 Сейчас в теме
В обновленной конфигурации 1с7.7. (7.70.165) ни обна из обработок по заполнению накладных из EXCEl не работает выдает ошибку (104) поле агрегатного объекта не обнаружено (ВИД) как исправить?
Очень нужна такая обработка, подскажите!
54. ОбнажЁнная_Маха 1313 03.03.10 13:45 Сейчас в теме
:!: Внимание! Пароль снят, доступ к телу открыт! Теперь всё в ваших руках, товарисчи!
55. sairus 09.07.10 13:28 Сейчас в теме
открываю в 1с v8.1 говорит ошибка при вызове метода создать, даже в конфигураторе не открывается... :-/
56. Enverkadirov 27.03.11 18:38 Сейчас в теме
57. DoctorRoza 27.03.11 18:55 Сейчас в теме
У армянского радио сросили: "Что общего у морских свинок и девушек - программистов?"
"Первые никак не относятся ни свиньям ни к морю, также как и вторые ни к девушкам ни к программистам" - ответило армянское радио. :D (Шутка!)
58. bela88 19.09.11 15:00 Сейчас в теме
59. Doubl 23.09.11 11:13 Сейчас в теме
Огромное спасибо! Обработка очень помогла. Самим писать времени не было, а тут очень вовремя попалась)
60. MrXaN 45 26.09.11 08:30 Сейчас в теме
Как можно оставить девушку без внимания))), Спасибо девушке что она у нас есть.
61. K_Tanusik 27.09.11 14:35 Сейчас в теме
спасибо за обработку. Использую ее в том виде какая есть, чего не хватает доделываем руками...
62. SGordon1 28.09.11 14:35 Сейчас в теме
под новый эксел (xslsx) надо подшаманить строку соединения...
63. borman 75 06.10.11 02:44 Сейчас в теме
плюсану не скачивая
приятно делать девушке приятно
64. vovgun 20.10.11 12:48 Сейчас в теме
Спасибо, полезная весч, один раз попользовал, надеюсь что буду ещё, кстати товарищи дорогие, любимые, как заработать баллов, ато я всё просрал и тепреь не могу качнуть очень нужную весч)) Написанно, что чем больше напишешь - тем больше баллов накинут, короче надо по-больше потыкать по кнопкам, хотя нате вам анекдот, всё больше пользы))):
Стою в пробке, причем реально стою, минут 15 уже. От нечего делать начинаю головой крутить. Ну и замечаю, что левее стоит машинка, а в ней магнитола светится как у меня (я на джипе, чуть выше сижу). Заинтриговался. Достал пульт и выключил мужику магнитолу. Пауза, он ее включил. Я ему звук отрегулировал, каналы настроил. В общем, минут 10 мужика доводил до белого каления. Он аж панельку снял...
и есчо:
Мой приятель - любитель побороться за права пешеходов, ненавидит, когда водители нарушают правила, вечно ругается с ними и т.д. Прогуливаемся с ним однажды по тротуару, сзади сигналит "Ауди" - видно водила решил срезать, чтобы в пробке не стоять. Приятель, ни слова не говоря, отходит на газон и пропускает машину. Я его спрашиваю, чего, мол, ты такой тихий сегодня. Он, невинно улыбаясь: "Там метров через тридцать поворот и ступеньки".
65. umtz 08.11.11 23:31 Сейчас в теме
очень надо импорт в тис 7.70.027 для украины из екселя
66. rodoz32 09.11.11 14:43 Сейчас в теме
молодец!хорошая обработка!
67. Anton_prezident 05.12.11 22:53 Сейчас в теме
Крутяк,можно теперь тз по заливке номенклатуры не делать)
68. SSO 13.12.11 05:43 Сейчас в теме
Как раз занимаюсь загрузкой справочников в 1С из EXCEL. Так что очень помогла данная разработка. Спасибо.
69. tehas 47 21.12.11 00:32 Сейчас в теме
70. natnat3 27.12.11 11:48 Сейчас в теме
vovgun пишет:
Спасибо, полезная весч, один раз попользовал, надеюсь что буду ещё, кстати товарищи дорогие, любимые, как заработать баллов, ато я всё просрал и тепреь не могу качнуть очень нужную весч)) Написанно, что чем больше напишешь - тем больше баллов накинут, короче надо по-больше потыкать по кнопкам, хотя нате вам анекдот, всё больше пользы))):

Реально посмешил, молодца!
71. xxx6662000 27.12.11 12:58 Сейчас в теме
Как то нужно было нечто подобное.
Спасибо! посмотрим что тут есть
72. piffoff 55 15.01.12 15:05 Сейчас в теме
А отличия от ИТСовской обработки есть или это одно и тоже.? А то чет не понятен этот момент. Написать его в заголовок
73. svad1 10 18.01.12 19:13 Сейчас в теме
74. shavrova.v 25.01.12 12:55 Сейчас в теме
Единственное что хотела добавить, было бы неплохо написать какую-нибудь обработочку, более менее универсальную по выгрузке табличных частей из документов. И выложить на сайте в одном архиве две обработки, так сказать для полной комплектации.
75. alexm73 02.04.12 14:59 Сейчас в теме
А такую же обработку, но из LibreOffice кто-нибудь видел? А то фриваре наступает...
76. svetanik 3 30.07.12 21:18 Сейчас в теме
Поставлю плюсик, т.к. по-моему я эту обработку использовала-заточила для себя ;) Спасибочки.
77. yuraos 960 13.03.13 15:12 Сейчас в теме

Плиззз, если скачиваете - "плюсаните" рейтинг, оставьте комментарий... сделайте девушке приятно! :)


+504 - куда больше ???

Могу также "приятный" анегдот рассказать...
78. Zas1402 12.06.13 11:41 Сейчас в теме
автору спасибо за старания
79. agrustny 18 18.04.14 12:59 Сейчас в теме
80. vln 46 26.06.14 13:43 Сейчас в теме
Пишет - "Внешняя обработка не может быть прочитана текущей версией программы"
81. vln 46 26.06.14 14:31 Сейчас в теме
извините, после конвертации в конфигураторе открылось
83. tali6272 05.02.16 16:58 Сейчас в теме
Добрый день. Подскажите, что я делаю не так? Не загружается номенклатура
Прикрепленные файлы:
84. merlin1975 2 13.08.17 21:01 Сейчас в теме
Здравия!
Спасибо аз обработку. Такой вопрос: инициализация колонок, строк и др. проходит правильно, но один из реквизитов ТЧ - ссылка на справочник и при выполнении обработки он не заполняется... Посоветуйте, что надо поменять.
85. ssn5810 84 17.02.18 12:38 Сейчас в теме
почему в описании нет что это не управляемые формы ????
86. МихаилМ 17.02.18 23:11 Сейчас в теме
87. ssn5810 84 18.02.18 06:23 Сейчас в теме
сейчас есть, очень большой труд написать 2 слова...
Оставьте свое сообщение