Взаимодействие с Excel через .NET (семейство классов SysExcel)

[gl00mie]

Во вложении - проект с семейством классов SysExcel, переписанным на работу с Excel через .NET (Microsoft.Office.Interop.Excel). Модификация возникла как решение проблемы взаимодействия ядра AX 2009 с офисными приложениями через COM, что подробно описано в темах Ошибка времени выполнения в ComExcelDocument_RU.findRange() и Ошибка чтения файлов XLS под Windows 7. Через .NET экспорты/импорты стали работать намного стабильнее и субъективно чуть быстрее.
Чтобы проект скомпилировался, дополнительно нужны модификации, выложенные в темах
Вспомогательные классы проверки условий и утверждений
Класс для преобразования значений между различными значимыми типами
Также для работы модификации, разумеется, нужны установленные сборки, в которых реализованы классы и enum'ы из пространства имен Microsoft.Office.Interop.Excel. Проверялось всё на Ms Office 2010 и ядре AX 2009 SP1 RU6/RU7.

Внимание! Работу с Excel вашего или чужого кода через .NET нужно тщательно тестировать, к примеру, у меня не заработало объединение ячеек, используемое в \Classes\SysDataExcelCOM\addLookup, которое на ура отрабатывает через COM. Включается работа сеймейства SysExcel через .NET в методе SysExcel::mustInteropViaNET(). Я лично не решился пока на тотальное включение взаимодействия с Excel через .NET и сделал метод, который анализирует стек вызовов и включает работу через .NET в зависимости от того, видит ли он там "разрешенные" классы или нет. За счет этого для включения/выключения работы через .NET не пришлось как-то специально править код, работающий с классами SysExcel, хотя другого рода правки потребовались: пришлось вычистить те места, где работа шла напрямую с COM-объектами, обертками для которых служит семейство SysExcel, в результате пришлось добавить несколько новых классов-оберток.
Для удобства импорта из Excel в SysExcelRange был добавлен метод valueTyped(), возвращающий значение ячейки, приведенное к требуемому базовому аксаптовскому типу. Вся логика преобразования типов реализована в отдельном классе. Также в SysExcelApplication был добавлен метод findRange(), позволяющий найти SysExcelRange из произвольного листа, - по аналогии с одноименным методом из ComExcelDocument_RU.
По непонятным для меня причинам всё семейство SysExcel объявлено как выполняющееся сугубо на клиенте. В моем случае это ограничение снято, чтобы можно было формировать файлы Excel в пакетных заданиях, выполняющихся на сервере, однако, в выложенном проекте эти изменения не отражены.

[Logger]

Кстати, а кто нибудь решил проблему с некорректной работой объединения ячеек через .Net ?
(Метод Union из Excel в \Classes\SysDataExcelCOM\ )

[Stainless]

Как раз очень интересует серверный режим работы, какие были подводные камни при переводе? (кроме изменения режима выполнения SysExcel на CalledFrom и простановке необходимых Permissions)

[gl00mie]

Подводный камень только один: решить, когда создавать SysExcelApplication нужно все-таки именно на клиенте, поскольку один и тот же серверный код может работать как в пакете, так и интерактивно, и в последнем случае, очевидно, Excel должен запускаться на клиентской машине. Я это решил так:

public static client server SysExcelApplication_NET construct(ClassRunMode _contructOnTier = ClassRunMode::Client)
{
    SysExcelApplication_NET ret;
    ;
    switch (_contructOnTier)
    {
        case ClassRunMode::Called :
        case ClassRunMode::ClientOrServer :
            ret = new SysExcelApplication_NET();
            break;
        case ClassRunMode::Client :
            ret = classFactory::makeObjectOnClient( classnum(SysExcelApplication_NET) );
            break;
        case ClassRunMode::Server :
            ret = classFactory::makeObjectOnServer( classnum(SysExcelApplication_NET) );
            break;
        default :
            throw error( Error::unsupportedEnumValue( _contructOnTier ) );
    }
    return ret;
}
public static client server SysExcelApplication construct()
{
    SysExcelApplication     ret;
    COM                     excel;
    real                    excelVersion;
    ;
    if (SysExcel::mustInteropViaNET())
    {
        return SysExcelApplication_NET::construct( clientKind() == ClientType::Server ? ClassRunMode::Server : ClassRunMode::Client );
    }
    // ...

Запрос всех InteropPermission'ов для взаимодействия с CLR на сервере в модификации реализован, так что вызывающий код об этом может не заботиться.

[Masel]

Цитата:

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

Подводный камень только один: решить, когда создавать SysExcelApplication нужно все-таки именно на клиенте, поскольку один и тот же серверный код может работать как в пакете, так и интерактивно, и в последнем случае, очевидно, Excel должен запускаться на клиентской машине. Я это решил так:

public static client server SysExcelApplication_NET construct(ClassRunMode _contructOnTier = ClassRunMode::Client)
{
    SysExcelApplication_NET ret;
    ;
    switch (_contructOnTier)
    {
        case ClassRunMode::Called :
        case ClassRunMode::ClientOrServer :
            ret = new SysExcelApplication_NET();
            break;
        case ClassRunMode::Client :
            ret = classFactory::makeObjectOnClient( classnum(SysExcelApplication_NET) );
            break;
        case ClassRunMode::Server :
            ret = classFactory::makeObjectOnServer( classnum(SysExcelApplication_NET) );
            break;
        default :
            throw error( Error::unsupportedEnumValue( _contructOnTier ) );
    }
    return ret;
}
public static client server SysExcelApplication construct()
{
    SysExcelApplication     ret;
    COM                     excel;
    real                    excelVersion;
    ;
    if (SysExcel::mustInteropViaNET())
    {
        return SysExcelApplication_NET::construct( clientKind() == ClientType::Server ? ClassRunMode::Server : ClassRunMode::Client );
    }
    // ...

Запрос всех InteropPermission'ов для взаимодействия с CLR на сервере в модификации реализован, так что вызывающий код об этом может не заботиться.

При создании книги (workbook) из шаблона на сервере аксапта кидает Exception::ClrError. Что я делаю не так? Кстати если создавать книгу не из шаблона, то все отрабатывает корректно.
Права на шаблон у учетки АОСа FullControl.

[Masel]

Нашел решение в интернете.

Решение:
для Windows 2008 Server x64 создать папку C:\Windows\SysWOW64\config\systemprofile\Desktop
для Windows 2008 Server x86 создать папку C:\Windows\System32\config\ systemprofile\Desktop


Я даже не знаю, что сказать на этот счет, у меня просто нет слов. Microsoft ***
Как я рад, что нашел это решение на 5-й странице поиска, с ужасом думаю что мог ее пролистать

[gl00mie]

Можно было ограничиться поиском по форуму: Сохранение документа Excel

[pasha_isaev]

Цитата:

Внимание! Работу с Excel вашего или чужого кода через .NET нужно тщательно тестировать, к примеру, у меня не заработало объединение ячеек, используемое в \Classes\SysDataExcelCOM\addLookup, которое на ура отрабатывает через COM

Уважаемые, решил ли кто-нибудь эту проблему? Какие танцы с бубном требуются для объединения разрозненных ячеек через .NET?

[Bega]

Почему-то при работе через .NET на клиенте, процесс Excel остается в памяти, даже когда пользователь закрывает Excel. Этот процесс исчезает только с выходом из DAX. Так что если пользователь весь день запускает отчеты, то у него может закончится память, да и некрасиво это.

Сравнивал с аналогичным вызовом через COM, там процесс сразу исчезает после закрытия Excel.

Есть идеи, как это побороть?
Вот код, который воспроизводит проблему (специально вытащил вызовы .NET из классов gl00mie для наглядности):

Microsoft.Office.Interop.Excel.ApplicationClass application_net = new Microsoft.Office.Interop.Excel.ApplicationClass();
Microsoft.Office.Interop.Excel.Workbooks        workbooks_net;
;
workbooks_net = application_net.get_Workbooks();
workbooks_net.Add("");
application_net.set_Visible(true);

[Logger]

Может попробовать принудительно запустить .Net сборку мусора ?
Обычно помогает.

[Bega]

Цитата:

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

Может попробовать принудительно запустить .Net сборку мусора ?
Обычно помогает.

Это как?

[abv2703]

О, обсуждение 13-го года Ничего не помогает: System.GC::Collect(); и все такое употребил - процесс висит. Что интересно, при последующем запуске в диспетчере наблюдается второй процесс, который благополучно завершается, а тот первоначальный все остается. Сейчас 21-год,
может решение есть? Собственно, не очень беспокоит, но что за фигня? Так и хочется вчинить иск нашему Биллу. ))))

[Logger]

Убедитесь, что перед вызовом
System.GC::Collect();
очистили все ссылки на Excel объекты.

Лучше еще вызвать
WaitForPendingFinalizers
после
System.GC::Collect();

Завершить процесс Excel 2013

[abv2703]

В том-то и штука, что все проделал:

void finalize()
{
;

//excel.Quit();

workBook = null;
workSheet = null;
excel = null;
workSheets = null;
workBooks = null;

System.GC::Collect();
System.GC::WaitForPendingFinalizers();


}

Однако ж нет

[Logger]

Ошибка чтения файлов XLS под Windows 7
https://groups.google.com/forum/?fro...ng/eNozbbwCZF0
и.т.п.

[Bega]

Цитата:

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

Ошибка чтения файлов XLS под Windows 7
https://groups.google.com/forum/?fro...ng/eNozbbwCZF0
и.т.п.

Действительно, вот такой вариант работает.

Microsoft.Office.Interop.Excel.ApplicationClass application_net = new Microsoft.Office.Interop.Excel.ApplicationClass();
    Microsoft.Office.Interop.Excel.Workbooks        workbooks_net;
    ;
    workbooks_net = application_net.get_Workbooks();
    workbooks_net.Add("");
    application_net.set_Visible(true);
    
    workbooks_net = null;
    application_net = null;
    
    System.GC::Collect();

[LeonDerCom]

Bega
Попробуйте

application_net.finalize

[Bega]

Цитата:

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

Bega
Попробуйте

application_net.finalize

Нет такого метода.

[LeonDerCom]

Bega
В данном случае не вчитался и подумал о ком объекте. А раз тут дотНет, то есть еще вот такой момент, в C# после Collect вызывал метод WaitForPendingFinalizers.

[Bega]

Цитата:

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

Bega
В данном случае не вчитался и подумал о ком объекте. А раз тут дотНет, то есть еще вот такой момент, в C# после Collect вызывал метод WaitForPendingFinalizers.

Да, видел этот метод, но без него тоже работает, посчитал что "wait" тут не нужно.