Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заполнение колонок таблицы из внешнего источника - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Заполнение колонок таблицы из внешнего источника
ALARMus Дата: Воскресенье, 05.08.2012, 12:33 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 181
Репутация: 0 ±
Замечаний: 20% ±

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

Можно ли и как организовать связь имеющейся таблицы с источником данных.
Немного поконкретнее.
Таблица содержит колонку с уникальным полем (Account name) необходимо заполнить колонки соответствующие этим уникальным полям.
Источник данных ActiveDirectory.
Известно какие имена полей из AD в какие колонки в файле надо вставить/обновить.
 
Ответить
СообщениеЕсть таблица которую надо держать в актуальном состоянии, надоело копировать в нее данные экспортируя из другого источника и вставляя в эту таблицу.

Можно ли и как организовать связь имеющейся таблицы с источником данных.
Немного поконкретнее.
Таблица содержит колонку с уникальным полем (Account name) необходимо заполнить колонки соответствующие этим уникальным полям.
Источник данных ActiveDirectory.
Известно какие имена полей из AD в какие колонки в файле надо вставить/обновить.

Автор - ALARMus
Дата добавления - 05.08.2012 в 12:33
KuklP Дата: Воскресенье, 05.08.2012, 17:40 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
И че? Про ВПР когда-нить слышали?


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеИ че? Про ВПР когда-нить слышали?

Автор - KuklP
Дата добавления - 05.08.2012 в 17:40
ALARMus Дата: Воскресенье, 05.08.2012, 18:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 181
Репутация: 0 ±
Замечаний: 20% ±

Да в целом то совсем "ни че".
Но поясню подробнее, коль вижу недопонимание есть.
Надо прямо из AD брать данные как из внешнего источника (по LDAP запросу).


Сообщение отредактировал ALARMus - Воскресенье, 05.08.2012, 18:33
 
Ответить
СообщениеДа в целом то совсем "ни че".
Но поясню подробнее, коль вижу недопонимание есть.
Надо прямо из AD брать данные как из внешнего источника (по LDAP запросу).

Автор - ALARMus
Дата добавления - 05.08.2012 в 18:28
KuklP Дата: Воскресенье, 05.08.2012, 22:28 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Понятно. Я об ActiveDirectory слышу в первый раз, поэтому и пропустил мимо ушей. Боюсь, что Вам придется подождать кого-нибудь, кто сталкивался с LDAP запросами. И подозреваю, что таковых не густо.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПонятно. Я об ActiveDirectory слышу в первый раз, поэтому и пропустил мимо ушей. Боюсь, что Вам придется подождать кого-нибудь, кто сталкивался с LDAP запросами. И подозреваю, что таковых не густо.

Автор - KuklP
Дата добавления - 05.08.2012 в 22:28
ALARMus Дата: Понедельник, 06.08.2012, 00:06 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 181
Репутация: 0 ±
Замечаний: 20% ±

Ну допустим, что сам запрос в LDAP у меня есть - как в самом XLS организовать его выполнение и запись результата в нужную ячейку.
 
Ответить
СообщениеНу допустим, что сам запрос в LDAP у меня есть - как в самом XLS организовать его выполнение и запись результата в нужную ячейку.

Автор - ALARMus
Дата добавления - 06.08.2012 в 00:06
Gustav Дата: Понедельник, 06.08.2012, 16:46 | Сообщение № 6
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Могу предложить чуть подправленный мной под Excel макрос отсюда: http://support.microsoft.com/kb/187529
[vba]
Code

Sub test()

     Dim conn As ADODB.Connection
     Dim rs As ADODB.Recordset
      
     Set conn = New ADODB.Connection
     conn.Provider = "ADSDSOObject"
     conn.Open "ADs Provider"
      
     Set rs = conn.Execute( _
           "<LDAP://server/o=organization/ou=site/cn=recipients>;" _
           & "(objectClass=*);ADsPath,objectClass,cn;subtree")
          
     Range("A1").CopyFromRecordset rs
      
     conn.Close

End Sub
[/vba]
Перед запуском в редакторе VB в меню Tools\References установить ссылку на библиотеку "Microsoft ActiveX Data Objects ... Library", где ... - номер версии. Можно выбрать любой максимальный (6.0, 2.8, 2.5...) из того, что установлено на компьютере.

Сам я работоспособность не проверял по причине неимения запросов LDAP, но направление, думаю, правильное. Должно сработать.


МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеМогу предложить чуть подправленный мной под Excel макрос отсюда: http://support.microsoft.com/kb/187529
[vba]
Code

Sub test()

     Dim conn As ADODB.Connection
     Dim rs As ADODB.Recordset
      
     Set conn = New ADODB.Connection
     conn.Provider = "ADSDSOObject"
     conn.Open "ADs Provider"
      
     Set rs = conn.Execute( _
           "<LDAP://server/o=organization/ou=site/cn=recipients>;" _
           & "(objectClass=*);ADsPath,objectClass,cn;subtree")
          
     Range("A1").CopyFromRecordset rs
      
     conn.Close

End Sub
[/vba]
Перед запуском в редакторе VB в меню Tools\References установить ссылку на библиотеку "Microsoft ActiveX Data Objects ... Library", где ... - номер версии. Можно выбрать любой максимальный (6.0, 2.8, 2.5...) из того, что установлено на компьютере.

Сам я работоспособность не проверял по причине неимения запросов LDAP, но направление, думаю, правильное. Должно сработать.

Автор - Gustav
Дата добавления - 06.08.2012 в 16:46
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!