Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
3 / 2 / 1
Регистрация: 05.02.2019
Сообщений: 20
1
Excel

Как определить наименование полей формы документа в Lotus Notes с последующей выгрузкой в Excel?

14.02.2019, 11:24. Просмотров 863. Ответов 4

Аналогичную тему создал в разделе Lotus Notes, но там тишина уже несколько дней. В связи с этим решил дублировать вопрос сюда, может, кто сталкивался?
Определение наименования полей

Суть проблемы:
Пишу код на VBA, подключаюсь к БД LN. Далее нахожу требуемый документ. Потом требуется получить полный список наименования полей, которые существуют у документа. Метод Items или Fields возвращает содержимое полей и иключительно даты (создание, изменение, изменение статуса документа и т.д.), а не наименование полей. В любом случае, искомое получить не удается.
Подскажите, что делаю не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Initialize()
 
Dim myarr As Variant
x=0
y=0
 
Set sess = CreateObject("Notes.NotesSession")
If sess Is Nothing Then Exit Sub
Set Bd = sess.getdatabase("xxx", "xxx", False)
If Bd Is Nothing Then Exit Sub
 
Set Collection = Bd.Search("Тут идет длинный спиок кретериев отбора")
 
cnt = Collection.Count
 
If cnt Is Nothing Then
    MsgBox ("По требуемым кретериям отбора не найдено ни одного документа")
    Exit Sub
End If
 
Set doc = Collection.getfirstdocument
 
For Each Fields In doc.Items
    myarr(x, y) = doc.Fields.Name
    x = x + 1
Next Fields
 
End Sub
P.S.
Камнями не закидывайте за дубль темы и за то что массив не объявлен явно. Просто, лишние куски кода убрал, чтобы не мешали восприятию.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2019, 11:24
Ответы с готовыми решениями:

Как развернуть окно Lotus Notes из Excel Vba?
Доброго времени суток! Очень нужно решить задачку: написать код в Excel VBA, который бы...

Открыть документ Lotus Notes в Excel
Возможно ли по гиперссылке (или другой вариант), которая хранится в книге в MS Excel, открыть...

Excel. Доступ к атрибутам документов Lotus Notes
Добрый день Помогите решить следующую задачу. Не являюсь программистом Lotus Notes, но хотел...

SQLite в памяти с последующей выгрузкой
Не подскажите, как сделать так что бы при работе с БД а вернее при INSERT бд не сохраняла все в...

4
1386 / 672 / 129
Регистрация: 13.12.2016
Сообщений: 2,313
Записей в блоге: 2
14.02.2019, 17:15 2
saray, переменная У никак не меняется в цикле...
такая конструкция лично мне более понятна
Visual Basic
1
2
3
4
For Each Fields In doc.Items
    myarr(x, 0) = doc.Fields.Name
    myarr(x, 1) = doc.Fields.Value
    x = x + 1
0
3 / 2 / 1
Регистрация: 05.02.2019
Сообщений: 20
15.02.2019, 10:12  [ТС] 3
Цитата Сообщение от АЕ Посмотреть сообщение
saray, переменная У никак не меняется в цикле...
такая конструкция лично мне более понятна
Дальше будет меняться - код выложил не полный. Но для понимания сути происходящего достаточный.
Вопрос остается открытым - как вытащить наименование полей из формы документа? У меня требуемые данные не подтягиваются.
0
3 / 2 / 1
Регистрация: 05.02.2019
Сообщений: 20
19.02.2019, 14:37  [ТС] 4
Ап темы т.к. она ушла уже на другой лист, а вопрос еще актуален.
0
3 / 2 / 1
Регистрация: 05.02.2019
Сообщений: 20
25.02.2019, 16:13  [ТС] 5
Не оставляю надежду.
Тема UP.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2019, 16:13

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

Как установить Lotus Notes с разными Com ?
http://help.pool.kiev.ua/help/help7_design...78?OpenDocument The Domino COM objects must be able...

Lotus Notes как почтовый клиент
можно ли через лотус нотс снимать почту скажем с gmail.com? как реализовать. что нужно?

Вот как сократят lotus notes нафиг...
IBM приступила к «крупнейшему сокращению штата в истории»

Как Установить Lotus Notes 7.0.2 И 8.5.3 На Один Комп?
Стоит задача на определенный переходный период установить на комп две версии Лотуса (7.0.2 и...

как насчет создание форума по lotus notes есть желающие?
как насчет создание форума по lotus notes есть желающие?

Открытие доступа к ящику lotus одного сотрудника для другого сотрудника средствами сервера lotus notes 8.5
Доброго времени суток! Как открыть доступ к ящику lotus одного сотрудника для другого сотрудника...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.