Как контролировать названия имён файлов созданных с помощью COMExcelDocument_RU

[miklenew]

Интересно. Кто нибудь знает простое решение такой задачи.
Есть класс через класс COMExcelDocument_RU создаёт определённый отчет через шаблон exel-я.
Так вот например шаблон называется primer. Отчёт формирует файл primer1.
Вызываю ещё раз. Ещё primer1. И т.д.
А можно сделать так чтоб либо класс сам нашёл какие документы были созданы через этот шаблон (по имени). Ну это сложное решение.
Или чтоб можно было подкидывать индексы. Ничего не изменяя при этом в классе COMExcelDocument_RU (ну или по минимуму). Ну т.е. может стандартное решение какое нибудь есть.
Ну или пусть присваивает какое нибудь имя.
А как его потом заменить на своё, корректно.

[belugin]

Сохранить как

[miklenew]

Цитата:

Сообщение от belugin

Сохранить как

А без соханения. Это же не правильно. Может пользователь передумает.
Я ведь когда exel открываю.
Имена появляются книга1, книга2.
А ещё ни чего не сохранено.

[Gustav]

Цитата:

Сообщение от miklenew

Так вот например шаблон называется primer. Отчёт формирует файл primer1.
Вызываю ещё раз. Ещё primer1. И т.д.

А почему еще раз primer1? Должно быть primer2, primer3 и т.д. Если у вас каждый раз primer1, то значит каждый раз открывается новая сессия Excel, ибо в одном открытом приложении не может быть двух рабочих книг с одинаковыми именами.

Генерите все отчеты в одной сессии Excel. Когда закончите, то можете получить список имен всех этих, еще не сохраненных, книг перебором в цикле for коллекции Workbooks объекта Excel.Application. У каждой Workbook в цикле читаем свойство Name. Запомнить список имен можно в любой подходящий класс-коллекцию Аксапты (Set, Array, List и т.п.).

Далее, имея список имен файлов, можете обратиться к любому из них методом Item, т.е. грубо COM текущаяКнига = Workbooks.Item('<имя из списка>') и дальше с COM текущаяКнига делаете свои желаемые действия, например, "Сохранить Как".

P.S. Свойство Name у рабочей книги - read-only, поэтому единственный способ "изменения" имени - через "Сохранить Как <новое имя>" (естественно, изменение имени сохраненного файла средствами ОС за пределами Excel не рассматриваем )

Какие конкретные изменения нужно внести в COMExcelDocument_RU не знаю, я с ним не работаю. По-моему, он как раз не очень удачно "заточен" именно на работу только с одним документом.

Привожу в качестве примера метод из некоторого своего класса, который управляемо по желанию либо создает новую сессию Excel (newInstance = true), либо стучится в существующую (newInstance = false) . Метод возвращает массив ссылок на объекты, полезные при дальнейшей работе с сессией Excel. Вам будет интересен прежде всего фрагмент между пунктирными линиями:

static Array getExcelSession(  str        openFileName = ''   ,
                               anytype    workSheet    = 1    ,
                               str        rangeAddress = 'A1' ,
                               boolean    newInstance  = false)
{
    COM xlApplication;
    COM xlWorkbooks, xlWorkbook;
    COM xlWorksheets, xlWorksheet;
    COM xlRange;
    Array comArray = new Array(Types::Class);
    ;

//------------------------------------------------------------------
    xlApplication = COM::getObject('Excel.Application');

    if( !xlApplication || newInstance )
        xlApplication = new COM('Excel.Application');
//------------------------------------------------------------------

    xlWorkbooks = xlApplication.Workbooks();

    if (! openFileName )
        xlWorkbook  = xlWorkbooks.Add();
    else
        xlWorkbook  = xlWorkbooks.Open( openFileName );

    xlWorksheets = xlWorkbook.Worksheets();
    xlWorksheet  = xlWorksheets.Item( workSheet );

    xlRange  = xlWorksheet.Range( rangeAddress );

    comArray.value(1, xlApplication);
    comArray.value(2, xlWorkbooks  );
    comArray.value(3, xlWorkbook   );
    comArray.value(4, xlWorksheets );
    comArray.value(5, xlWorksheet  );
    comArray.value(6, xlRange      );

    return comArray;
}

[miklenew]

Gustav спасибо. Да уж не очень приятно получается. Просто самому это бага не очень нравиться. Ну из аналитиков пожеланий в эту сторону не было. Будет сделаю. Но это прийдётся класс COMExcelDocument_RU перекручивать. Создавать какой нибудь метод возвращающий и устанавливающий application. Не люблю подобные классы править, даже если очень нужно. Начнёшь править можно увлечься.

[Gustav]

Цитата:

Сообщение от miklenew

Но это прийдётся класс COMExcelDocument_RU перекручивать. Создавать какой нибудь метод возвращающий и устанавливающий application.

Глянул бегло в COMExcelDocument_RU. Да, получается, что в newFile надо разделить вызовы initApplication и newDocument по разным методам
И еще одна засада в родителе:

abstract class ComOfficeDocument_RU
{
    COM m_comApplication;   // COM interface to MS Office application
    COM m_comDocument;      // COM interface to MS Office documnet
    .................
}

т.е. есть приложение, документ (таки один!), а семейства документов (для хранения всех Workbooks)- увы, нет. И как его ввернуть без кардинальной перетряски класса - фиг знает. В параметры методов типа insertRow, insertValue, insertSheet и других придется добавить конкретный workbook (а не только worksheet как сейчас). Такие вот дела...

[miklenew]

Получилось.
И без изменений в базовом классе ComExcelDocument_ru.
Главное создать один объект от этого класса. А дальше просто вызвать метод newFile();
Вот пример класса который создаёт 5 книг Exell и имена индексируются. Example1, Example2, Example3 и т.д.
Мож кому пригодиться.