Ошибка чтения файлов XLS под Windows 7

[Zabr]

Такая ситуация. Может кто встречался. Аксапта версии 4.0 SP2. Есть у нас несколько функций по загрузке в Аксапту чего-либо из файлов Excel. Например, накладных поставщиков. Все эти файлы присылаются в версиях Excel не выше 2003. Все эти загрузки великолепно работают на компах под WinXP. И вот стали у нас ставить новые компы с предустановленной Windows 7. Поставили мы туда 2007 офис. И стала в этих загрузках появляться плавающая ошибка:

Error Сообщение (13:28:19) Ошибка времени выполнения: Метод был вызван с недопустимым числом параметров.

Плавающая в том смысле, что один и тот же файл может загрузиться без ошибки, а потом с ошибкой в ячейке Х, а потом с ошибкой в ячейке Y, а потом опять без ошибки, а потом с ошибкой в ячейке Z.. И т.д.
Причем, в том же 2007 офисе, установленном на WinXP, ошибки нет. А на Windows 7 ошибка есть. Установка 2003 офиса на тот же Windows 7 не помогает, дает ту же ошибку. Чего-то значит сломалось в Windows 7, похоже в каких-то библиотеках по работе с com-объектами.
Стек вызовов такой (название нашего класса опускаю, даю стек начиная со стандартных классов по работе с excel:

Трассировка стека
(C)\Classes\COM\value
(C)\Classes\SysExcelCell_XP\value - line 12
(C)\Classes\SysDataExcelCOMFree\readRow - line 38
(C)\Classes\SysDataExcelCOM\read - line 11
(C)\Classes\SysDataImportExcel\read - line 3
(C)\Classes\SysDataImportDefBase\importFilename - line 38
(C)\Classes\SysDataImportExcel\importFilename - line 6
(C)\Classes\SysDataImportDefBase\import - line 23
(C)\Classes\SysDataImportExcel\import - line 10
(C)\Classes\SysDataImportDefBase\run - line 5

Все эти классы на слое sys, то есть модификаций в них не было.

Код метода, где появляется ошибка:

public COMVariant value(anytype _value = COMArgument::NoValue)
{
    COMVariant  ret;
    ;
    if (!prmisdefault(_value))
    {
        ret = cell.value(#xlRangeValueDefault,_value);
    }
    else
    {
        ret = cell.value(#xlRangeValueDefault);   // ВОТ В ЭТОЙ СТРОКЕ ПОЯВЛЯЕТСЯ ОШИБКА
    }
    return ret;
}

Не наблюдалось у кого то глюков в Windows 7 при стыковке Аксапты с MS Office ?

[Владимир Максимов]

Полно подобных ошибок при работе с любой версией MS Office в любой Windows. Правда, у меня они возникали при работе через терминал c Word, но, думаю, с Excel все то же самое. Посмотри вот эту тему

Ошибки Word 2003 при работе в терминальном режиме

там в конце я написал что надо и чего не надо делать при работе с MS Office.

Например, не очень корректное открытие файла может вызвать ошибку при разборе содержимого этого файла. Пройдись по всем используемым методам, на предмет корректного обрачивания параметров, передаваемых в Excel в ComVariant.

[Morpheus]

Предлагаю попробовать переписать методы заменив вызовы COM на CLR.

Пример кода создающий csv файл:

protected FileName excel2csv(FileName _excelFileName)
{
    Microsoft.Office.Interop.Excel._Application          excel;
    Microsoft.Office.Interop.Excel.Workbooks             workbooks;
    Microsoft.Office.Interop.Excel._Workbook             workbook;
    System.Type                                          type;
    System.Reflection.FieldInfo                          fieldInfo;
    System.Object                                        missing;
    Microsoft.Office.Interop.Excel.XlFileFormat          fileFormat;
    Microsoft.Office.Interop.Excel.XlSaveAsAccessMode    saveAsAccessMode;
    FileName                                             textFileName;
    FileName                                             path;
    FileName                                             name;
    FileName                                             extention;
    ;
    new InteropPermission(InteropKind::ClrInterop).assert();

    [path, name, extention] = fileNameSplit(_excelFileName);
    textFileName = path + name + '.csv';

    if (System.IO.File::Exists(textFileName))
        System.IO.File::Delete(textFileName);

    type             = System.Type::GetType('System.Reflection.Missing');
    fieldInfo        = type.GetField('Value');
    missing          = fieldInfo.GetValue(null);
    fileFormat       = ClrInterop::parseClrEnum('Microsoft.Office.Interop.Excel.XlFileFormat', 'xlTextWindows');
    saveAsAccessMode = ClrInterop::parseClrEnum('Microsoft.Office.Interop.Excel.XlSaveAsAccessMode', 'xlNoChange');

    excel            = new Microsoft.Office.Interop.Excel.ApplicationClass();
    workbooks        = excel.get_Workbooks();
    workbook         = workbooks._Open(_excelFileName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing);
    workbook.SaveAs(textFileName, fileFormat, missing, missing, missing, missing, saveAsAccessMode, missing, missing, missing, missing, missing);
    workbook.Close(false, _excelFileName, null);

    CodeAccessPermission::revertAssert();

    return textFileName;
}

[Zabr]

Цитата:

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

Пример кода создающий csv файл:

У меня Ax 4.0 (было написано выше). А это для какой версии? Не компилируется такое в четверке.

[Morpheus]

Цитата:

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

У меня Ax 4.0 (было написано выше). А это для какой версии? Не компилируется такое в четверке.

Необходимо Microsoft.Office.Interop.Excel добавить в узел References:

Procedure - Reference a New Assembly in the AOT
Use the following procedure to reference a new assembly in the AOT:
1. Right-click AOT > References.
2. Select Add Reference.
3. The Add Reference form appears.
4. The Add reference form contains all the assemblies that have been
registered in the Global Assembly Cache (GAC). However, you are
not restricted to just these assemblies. Click the Browse… button to
select an assembly from another location.

[Logger]

    fileFormat       = ClrInterop::parseClrEnum('Microsoft.Office.Interop.Excel.XlFileFormat', 'xlTextWindows');
    saveAsAccessMode = ClrInterop::parseClrEnum('Microsoft.Office.Interop.Excel.XlSaveAsAccessMode', 'xlNoChange');

А такое можно без парсинга сделать ?

[AndyD]

А разве так нельзя?
Microsoft.Office.Interop.Excel.XlFileFormat::xlTextWindows

[trud]

Цитата:

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

Предлагаю попробовать переписать методы заменив вызовы COM на CLR.

Тут вопрос возник, какой вообще смысл в такой операции. Внутренее то все равно будет работать COM
Т.е. методы COM заменяются на те же методы COM, которые вызываются не прямо, а через еще одно звено в виде CLR. Или я где-то не прав?

[Damn]

Цитата:

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

Предлагаю попробовать переписать методы заменив вызовы COM на CLR.

Пример кода создающий csv файл:

А у меня почему-то после обращения к Excel через Microsoft.Office.Interop.Excel (вызов workBooks.open(), workBook.saveas() и затем workBook.close()) в системе всё равно остаётся висеть процесс Excel. Со временем этих процессов становится всё больше и больше. Но оперирую я не csv, а xls-файлами. Использую Win Server 2008.
У всех так ? Может надо что-то ещё вызывать для завершения работы с Excel.

[gl00mie]

Как обычно, нужно вызвать Application.Quit()

[Damn]

Не помогает, эффекта от quit() никакого.
И сразу следующий вопрос - работает ли у кого-нибудь весь этот код в пакетном режиме на 64-битном АОСе ?

[AndyD]

Я бы предложил попробовать использовать класс ComDispFunction вместо прямого вызова методов.

У меня были подобные проблемы при использовании стороннего Com-класса под Win7 и Win2008R2 (кстати, в DAX3.0)
Вылечилось переписыванием всех вызовов.

[gogen600]

to Damn:

Прибить эксель из памяти поможет Garbage Collector:
...

new InteropPermission(InteropKind::ClrInterop).assert();

excel = null;

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

CodeAccessPermission::revertAssert();

[gl00mie]

Сегодня столкнулся с откровенной подставой со стороны Excel. Исходные данные:

• файл в формате Excel 2003, полученный извне, в нем несколько колонок с датами и установленным форматом ячеек "Дата" (дд.мм.гггг)
• Excel 2010 версии 14.0.6024.1000
• переписанное на .NET семейство классов SysExcel, с помощью которого читаются данные
• в SysExcelRange для удобства добавлен метод, который читает значение ячейки с помощью get_Value2() и возвращает его сконвертированным в желаемый базовый аксаптовский тип.

Так вот, оказалось, что для этих ячеек типа "Дата" методы get_Value(Microsoft.Office.Interop.Excel.XlRangeValueDataType::xlRangeValueDefault) и get_Value2() возвращают значения разных типов: первый - типа System.DateTime с нормальной датой/временем (той, которую я вижу в файле), а второй - типа System.Double со значением числа дней от начала "эпохи", НО! когда это значение скармливаешь аксаптовской функции num2date(), получается дата на 2 дня позже, чем в файле! Я в принципе наслышан про "особенности" Excel в плане работы с датами, но вот чтоб такие подставы... В общем, я переделал SysExcelRange на использование get_Value(), и все рассосалось.

[gl00mie]

Выложил семейство классов SysExcel, переписанное на работу через .NET, см. Взаимодействие с Excel через .NET (семейство классов SysExcel)