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

[LeonDerCom]

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

[Bega]

Цитата:

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

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

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

[Bega]

Есть какой-то способ вставки в range массива, как это было возможно с COM?
Вот пример для COM, он работает:

ComExcelDocument_RU         comExcel;
    ArrayExtend_RU              arrayStr = new ArrayExtend_RU(Types::String, 10);
    ;
    comExcel = new ComExcelDocument_RU();
    comExcel.newFile("", false);
    
    arrayStr = new ArrayExtend_RU(Types::String, 2);
    arrayStr.value(1, "AAA");
    arrayStr.value(2, "БББ");
    
    comExcel.insertValue("A1:B1", arrayStr);
    
    comExcel.visible(true);

А для .NET не работает:

SysExcelApplication_NET     sysExcelApplication;
    SysExcelWorksheet_NET       sysExcelWorksheet;
    SysExcelRange_NET           range;
    ArrayExtend_RU              arrayStr = new ArrayExtend_RU(Types::String, 10);
    ;
    sysExcelApplication = SysExcelApplication_NET::construct();
    sysExcelApplication.workbooks().add("");
    sysExcelWorksheet = sysExcelApplication.worksheets().itemFromNum(1);
    arrayStr = new ArrayExtend_RU(Types::String, 2);
    arrayStr.value(1, "AAA");
    arrayStr.value(2, "БББ");
    range = sysExcelWorksheet.range("A1:B1");

    range.value2(arrayStr);

    sysExcelApplication.visible(true);

Пытался различными способами передать массив, прямая передача или упаковка через CLRInterop::getObjectForAnyType(arrayStr ) выдает ошибку о невозможности преобразования.

[Bega]

Нашел способ через System.Array:

SysExcelApplication_NET     sysExcelApplication;
    SysExcelWorksheet_NET       sysExcelWorksheet;
    SysExcelRange_NET           range;
    System.Array                array;
    System.Type                 type;
    ;
    sysExcelApplication = SysExcelApplication_NET::construct();
    sysExcelApplication.workbooks().add("");
    sysExcelWorksheet = sysExcelApplication.worksheets().itemFromNum(1);
    
    type = System.Type::GetType('System.String');
    array = System.Array::CreateInstance(type, 2);
    
    array.SetValue(CLRInterop::getObjectForAnyType("AAA"), 0);
    array.SetValue(CLRInterop::getObjectForAnyType("БББ"), 1);
    
    range = sysExcelWorksheet.range("A1:B1");
    range.value2(array);
    
    sysExcelApplication.visible(true);

[Damn]

Цитата:

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

Нашел способ через System.Array:

Если весь array состоит из System.String, то всё получается корректно. А если в некоторых ячейках числа (переведённые в строковый вид), то они потом экселем всё равно воспринимаются как строки Даже если при этом используется шаблон xlt, в котором у этой ячейки стоит формат данных числовой.
Числа нужно вставлять отдельным массивом с числовым типом ?

[ex3em]

Цитата:

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

Нашел способ через System.Array:

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

Причем если вместо array вставлять обычную строку все нормально работает

    SysExcelApplication_NET     sysExcelApplication;
    SysExcelWorksheet_NET       sysExcelWorksheet;
    SysExcelRange_NET           range;
    System.Array                array;
    System.Type                 type;
    ;

    new InteropPermission( InteropKind::ClrInterop ).assert();
    // BP deviation documented

    sysExcelApplication = SysExcelApplication_NET::construct();
    sysExcelApplication.visible(true);
    sysExcelApplication.workbooks().add("");
    sysExcelWorksheet = sysExcelApplication.worksheets().itemFromNum(1);

    type = System.Type::GetType('System.String');
    array = System.Array::CreateInstance(type, 2);
    array.SetValue(CLRInterop::getObjectForAnyType("AAA"), 0);
    array.SetValue(CLRInterop::getObjectForAnyType("БББ"), 1);

    range = sysExcelWorksheet.range("A1:B1");
    range.value2(array); // !!!! здесь вылетает Axapta

[Damn]

Цитата:

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

range.value2(array); // !!!! здесь вылетает Axapta

С какой ошибкой вылетает ? AifUtil::getClrErrorMessage() что говорит ?

Я кстати CLRInterop::getObjectForAnyType("AAA") не использую, вставляю значение (строковое, числовое и т.д.) без конвертирования. Работает и в пакетном и в обычном режиме.

[ex3em]

Вылетает с стандартной критической ошибкой (Приложение выполнело недопустимую операцию и будет закрыто, отправить отчет в microsoft или запустить дебагер и т.д.), до catch не доходит. В Событиях операционки ничего не говорящее сообщение
Faulting application name: Ax32.exe, version: 5.0.1600.2596, time stamp: 0x53171f5d
Faulting module name: Ax32.exe, version: 5.0.1600.2596, time stamp: 0x53171f5d
Exception code: 0xc0000005
Fault offset: 0x001dbf2f
Faulting process id: 0x1b78
Faulting application start time: 0x01d02fec081571f8
Faulting application path: C:\Program Files (x86)\Microsoft Dynamics AX\50\Client\Bin\Ax32.exe
Faulting module path: C:\Program Files (x86)\Microsoft Dynamics AX\50\Client\Bin\Ax32.exe
Report Id: 8818c4b7-9bdf-11e4-80ea-0050569a5ddc
Faulting package full name:
Faulting package-relative application ID:

CLRInterop::getObjectForAnyType - убрал, но ситуацию не спасает ((

Procmon.exe - тоже толком ничего не выдает, отказ на доступ к файлам/папкам не заметил.
Office 2013.
Интересно у кого-нибудь данный код не вышибает Аксапту?