gifts2017

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

Опубликовал Маха (ОбнажЁнная_Маха) в раздел Обмен - Загрузка и выгрузка в Excel

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

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

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

 

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

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

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

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

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

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

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

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

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

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

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

ОбнажЁнная_Маха; +1 Ответить 2
30. Михаил Ражиков (tango) 10.06.08 08:59
(29) люди смотрят на маху, как она пишет, а не на то, что она написала
31. Маха (ОбнажЁнная_Маха) 10.06.08 09:28
poppy, спасибо! я не знала, что так можно... каюсь. :) буду теперь использовать!
На ошшибках, как говорится, учатся...
32. Виталий (nvetal) 14.06.08 13:16
А загружает ли он с группировками?
33. Маха (ОбнажЁнная_Маха) 14.06.08 15:26
(32) не совсем поняла, что имеется ввиду... но если в разные группы справочника, то для этого в экселевском документе должен быть столбец "Группа"
34. FIXator (Fixator) 18.06.08 08:31
35. Кузьмин Евгений (gp42) 26.06.08 10:24
ОбнажЁнная_Маха исправь такую ошибку
У тебя метод НайтиПоНаименованию(<значение ячейки из Excel>)
Теперь такой момент, у меня в наименованиях товаров встречаються кавычки например (телевизор "Philips")
метод НайтиПоНаименованию("телевизор "P<?>hilips"") выдает ошибку .....
Продумай вариант замены кавычки " на две ковычки ""
36. Кузьмин Евгений (gp42) 26.06.08 10:58
сними с пароля модуль отчета, я его немного доработать хочу
37. Poppy (poppy) 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;
   
   Если Справочники[Спр.Метаданные().Имя].НайтиПоНаименованию(Наименование).Пустая() Тогда
      Ответ = Вопрос("Элемент справочника " + Спр.Метаданные().Имя + " с наименованием " + 
      Наименование + " не найден! Добавить элемент??", РежимДиалогаВопрос.ДаНет, , , "Вопрос");
      Если Ответ = КодВозвратаДиалога.Да Тогда 
         ФормаЭлемента = Справочники[Спр.Метаданные().Имя].СоздатьЭлемент().ПолучитьФорму();
         ФормаЭлемента.Элементыформы.Наименование.Значение = Наименование;
         ФормаЭлемента.ОткрытьМодально();
         СтрокаТЧ[Строка.РеквизитТЧДока] = ФормаЭлемента.Ссылка;
      КонецЕсли;
   КонецЕсли;
КонецЕсли;
Показать полностью
38. Виктор (VicAlex) 19.07.08 22:20
Сделать бы еще поиск не только по Наименованию, но и по выбранному реквизиту.
Могут быть элементы с одинаковыми наименованиями, но с каким-то "ключевым" реквизитом.
39. Sergey (Sergey K) 23.07.08 08:16
Зачем закрывать модуль обработки..
я предполагаю, ничего сверхъестественного там нет.. :)
40. Маха (ОбнажЁнная_Маха) 23.07.08 08:53
(39) А чтобы не видно было моего некрасивого и неоптимального кода! :D
IgorTsapko; +1 Ответить
41. Igоr Sаulеviсh (gutentag) 13.08.08 12:51
А как загрузить данные в Операцию(хотя бы в бух.учет) ?
42. Strah4 (strah4) 02.10.08 16:49
Мммм... не понял, а почему справочники по наименованию? Имена ж не уникальны. Или я туплю?
44. Sergey (grey82) 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. Igor Kurlov (1981ink) 20.05.09 18:58
Народ кто нить для 7ки подобное видел
50. Solo (Solo1) 29.10.09 15:30
на локальной восьмерке все работает на ура, а на сетевой выдает ошибку (может, это не от восьмерки зависит, я не знаю). Объясните, пожалуйста, как исправить.
{Форма.Форма(54)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект): Ошибка получения объекта COM: Класс не зарегистрирован
ДокЭксель = ПолучитьCOMОбъект(ПутьКФайлу);
по причине:
Ошибка получения объекта COM: Класс не зарегистрирован
51. Solo (Solo1) 02.11.09 09:45
Люди! Объясните кто-нибудь как сделать, чтобы обработка работала!!
52. nikser Serov (nikser) 20.01.10 10:31
Ни фига не работает. привязка к наименованию тупиковый путь . Пробел лишний поставил и всё не работает. И коряво описание сделано. Без поллитра не разобраться. Если выкладываете , то хотя бы не такой сырой продукт.
53. Asima (Asima) 18.02.10 16:26
В обновленной конфигурации 1с7.7. (7.70.165) ни обна из обработок по заполнению накладных из EXCEl не работает выдает ошибку (104) поле агрегатного объекта не обнаружено (ВИД) как исправить?
Очень нужна такая обработка, подскажите!
54. Маха (ОбнажЁнная_Маха) 03.03.10 13:45
:!: Внимание! Пароль снят, доступ к телу открыт! Теперь всё в ваших руках, товарисчи!
55. rus mat (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. Pavel Nevzorov (MrXaN) 26.09.11 08:30
Как можно оставить девушку без внимания))), Спасибо девушке что она у нас есть.
61. Татьяна Катцына (K_Tanusik) 27.09.11 14:35
спасибо за обработку. Использую ее в том виде какая есть, чего не хватает доделываем руками...
62. Steve Gordon (SGordon1) 28.09.11 14:35
под новый эксел (xslsx) надо подшаманить строку соединения...
63. Алексей Козаченко (borman) 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) 21.12.11 00:32
70. Наталия Ткаченко (natnat3) 27.12.11 11:48
vovgun пишет:
Спасибо, полезная весч, один раз попользовал, надеюсь что буду ещё, кстати товарищи дорогие, любимые, как заработать баллов, ато я всё просрал и тепреь не могу качнуть очень нужную весч)) Написанно, что чем больше напишешь - тем больше баллов накинут, короче надо по-больше потыкать по кнопкам, хотя нате вам анекдот, всё больше пользы))):

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

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


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

Могу также "приятный" анегдот рассказать...
78. Игор Мудрицкий (Zas1402) 12.06.13 11:41
автору спасибо за старания
79. анд гру (agrustny) 18.04.14 12:59
80. vln (vln) 26.06.14 13:43
Пишет - "Внешняя обработка не может быть прочитана текущей версией программы"
81. vln (vln) 26.06.14 14:31
извините, после конвертации в конфигураторе открылось
83. Наталья Гуля (tali6272) 05.02.16 16:58
Добрый день. Подскажите, что я делаю не так? Не загружается номенклатура
Прикрепленные файлы:
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа