Выгрузка в Excel

[NataliGinger]

Привет.

Вопрос: как выгрузить в Excel только отмеченные категории и информацию по ним?
Если можно, пример кода, please.

 

[morpheus]

Выделенные доки
тут

Работа с Excel тут - зделать тоже самое тока не записывать ячейки в докумет. а наоборот считывать из Excel

 

[NataliGinger]

А если документы не отмечены, а отмечены только КАТЕГОРИИ в свернутой вью?

 

[Medevic]

Для: NataliGinger
Используя NotesViewEntry посмотреть где курсор.
Потом NotesView.GetAllDocumentsByKey или NotesView.GetAllEntriesByKey.

Только не NotesViewEntry использовать, а NotesUIView.CaretCategory. Остальное всё так.

 

[NataliGinger]

NotesUIView.CaretCategory возвращает текущую категорию, а как получить список выделенных категорий?

 

[NataliGinger]

Неправильно сформулировала вопрос. Надо так, наверное:

Как получить список отмеченных категорий?

 

[serEJa Shabalin]

Как вариант получать выделенные категории через Edit->Copy selected as table

 

[DNT]

Да, это проблема ... пытался решить но руки опустились...
Вариант Edit->Copy selected as table не очень удобен.

Если нельзя програмно взять выделенные категории, может тогда можно програмно вызвать Edit->Copy selected as table???

 

[Medevic]

Всегда можно вызвать диалог со списком категорий, где выбираешь нужные. А дальше дело техники.

 

[root]

Medevic +

Dim session As New NotesSession
Dim db As NotesDatabase
Dim vc As NotesViewEntryCollection
Dim picklist As Variant
Set db=session.CurrentDatabase 
picklist = workspace.Pickliststrings..... 'выборка 
Set view = db.GetView("") ' вид
Set vc = view.GetAllEntriesByKey(picklist)