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

@saray · Регистрация: 05.02.2019

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

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

Visual Basic

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.
Камнями не закидывайте за дубль темы и за то что массив не объявлен явно. Просто, лишние куски кода убрал, чтобы не мешали восприятию.

@АЕ · 14.02.2019, 17:15

saray, переменная У никак не меняется в цикле...
такая конструкция лично мне более понятна

Visual Basic

For Each Fields In doc.Items
    myarr(x, 0) = doc.Fields.Name
    myarr(x, 1) = doc.Fields.Value
    x = x + 1

@saray · 15.02.2019, 10:12 **[ТС]**

Сообщение от АЕ

saray, переменная У никак не меняется в цикле...
такая конструкция лично мне более понятна

Дальше будет меняться - код выложил не полный. Но для понимания сути происходящего достаточный.
Вопрос остается открытым - как вытащить наименование полей из формы документа? У меня требуемые данные не подтягиваются.

@saray · 19.02.2019, 14:37 **[ТС]**

Ап темы т.к. она ушла уже на другой лист, а вопрос еще актуален.

@saray · 25.02.2019, 16:13 **[ТС]**

Не оставляю надежду.
Тема UP.

@saray 3 / 2 / 1 Регистрация: 05.02.2019 Сообщений: 27
	15.02.2019, 10:12 [ТС]	3
	Сообщение от АЕ saray, переменная У никак не меняется в цикле... такая конструкция лично мне более понятна Дальше будет меняться - код выложил не полный. Но для понимания сути происходящего достаточный. Вопрос остается открытым - как вытащить наименование полей из формы документа? У меня требуемые данные не подтягиваются. 0

@saray 3 / 2 / 1 Регистрация: 05.02.2019 Сообщений: 27
	19.02.2019, 14:37 [ТС]	4
	Ап темы т.к. она ушла уже на другой лист, а вопрос еще актуален. 0

@saray 3 / 2 / 1 Регистрация: 05.02.2019 Сообщений: 27
	25.02.2019, 16:13 [ТС]	5
	Не оставляю надежду. Тема UP. 0

Опции темы