Выгрузка в Excel

Тема в разделе "Lotus - Программирование", создана пользователем NataliGinger, 13 ноя 2007.

  1. NataliGinger

    NataliGinger Гость

    Привет.

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Выделенные доки
    тут

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

    NataliGinger Гость

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: NataliGinger
    Используя NotesViewEntry посмотреть где курсор.
    Потом NotesView.GetAllDocumentsByKey или NotesView.GetAllEntriesByKey.

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

    NataliGinger Гость

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

    NataliGinger Гость

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

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

    serEJa Shabalin Гость

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

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    Да, это проблема ... пытался решить но руки опустились...
    Вариант Edit->Copy selected as table не очень удобен.

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Всегда можно вызвать диалог со списком категорий, где выбираешь нужные. А дальше дело техники.
     
  10. root

    root Гость

    Medevic +
    Код (Text):
    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)
     
Загрузка...

Поделиться этой страницей