Winrik ошибка excel application import module

У меня кстати тоже с эксель проблемки, выпускаю форму-4 , и везде в итогах( по разделам, в общем итоге) выдаёт ошибку #####, но это после того вижу, как открою файл в папке темп, а так сразу выдаёт

«Сообщение : Тип — EOleSysError

Причина — Ошибка — Excel Application ::ImportModule

Позиция — 5

Путь 1 — C:RIKSM_RWRTmpFormsForma4_98c87222.xls Путь 2 — C:RIKUTILSWinRikExcelMWRFuncsCur.bas Функция = ClearExcel Колонка = 12 TrudEdA4LS»

Зараннее благодарен!

Смотрите здесь

А так же в РИК’е:
меню «Справка->Инструкции->Описание программного комплекса», Приложение В. Настройка Microsoft Excel

В частности:
Для нормальной работы Office 2007 необходимо:

Настройка уровня безопасности Excel в случае возникновения ошибки:

• Закрыть на компьютере все приложения, включая РИК и MS Excel.
• Открыть любой лист MS Excel, если такого нет, то создать новый и открыть его.
• Нажать кнопку «Office» в левом верхнем углу.
• В нижней части выпавшего списка команд выбрать «Параметры Excel»
• Выбрать команду «Центр управления безопасностью» и справа внизу «Параметры центра управления безопасностью»
• В окне «Центр управления безопасностью» слева выбрать «Параметры макросов» и в этом окне справа:
• поставить точку «Включить ВСЕ макросы»
• поставить галочку «Доверять доступ к объектной модели…»
• Нажать кнопку «ОК» два раза и закрыть лист Excel.

При попытке выпуска сметы, составленной в программе WinРИК, в Microsoft Office Excel иногда происходит следующий сбой: появляется окно Исключение с сообщением «Сообщение: Тип – EOleSysError. Причина — Ошибка — ExcelApplication::ImportModule…».

Настройка Microsoft Office Excel 2003 для выпуска смет, созданных в программе WinРИК: 

– запустите Диспетчер задач Windows (например, с помощью клавиш Ctrl+Alt+Del, или с помощью Пуск –> Выполнить… –> taskmgr.exe); 
– откройте вкладку Процессы; 
– выделите EXCEL.EXE, нажмите Завершить процесс; 
– в окне Предупреждение диспетчера задач нажмите Да; 
– запустите Microsoft Office Excel 2003; 
– выберите меню Сервис –> Макрос –> Безопасность…; 
– в окне Безопасность откройте вкладку Надежные издатели;

– установите флажки Доверять всем установленным надстройкам и шаблонам и Доверять доступ к Visual Basic Project –> OK; 

– закройте Microsoft Office Excel 2003.

Настройка Microsoft Office Excel 2007/2010 для выпуска смет, созданных в программе WinРИК: 

– запустите Диспетчер задач Windows (например, с помощью клавиш Ctrl+Alt+Del, или с помощью Пуск –> Выполнить… –> taskmgr.exe); 
– откройте вкладку Процессы; 
– выделите EXCEL.EXE, нажмите Завершить процесс; 
– в окне Предупреждение диспетчера задач нажмите Да;
– запустите Microsoft Office Excel 2007/2010; 
– нажмите кнопку Office; 
– в контекстном меню выберите Параметры Excel;

– в окне Параметры Excel выберите Центр управления безопасностью –> Параметры центра управления безопасностью…;  

– в окне Центр управления безопасностью выберите Параметры макросов;

– установите флажок Доверять доступ к объектной модели проектов VBA –> OK –> OK; 

– закройте Microsoft Office Excel.   

Аналогичным образом – для выпуска смет, составленных в программе WinРИК, – настраивается и Microsoft Office Word.

This is a well-described issue, and it exactly matches what I have just experienced (even including the fact that I haven’t been versioning recently).

My file has an xlsb suffix. Resaving with a different suffix did not work for me on the same PC, but I emailed the file to another PC, opened it, saved as xlsm, sent it back to the original machine and it now works fine again. I can even re-save with my preferred xlsb suffix and it still works.

I’ve also run this script to make a backup of my modules:

Sub ExportVbaModules()
     
'Acknowledgements to Andy Pope [ozgrid thread 60787]
     
    Dim objMyProj As VBProject 'if error, go to VBA editor - tools - References - Microsoft Visual Basic-Extensibility5.3
    Dim objVBComp As VBComponent
     
    Set objMyProj = Application.ActiveWorkbook.VBProject
     
    For Each objVBComp In objMyProj.VBComponents
        If objVBComp.Type = vbext_ct_StdModule And objVBComp.Name <> "" Then
            objVBComp.Export "C:UsersMyNameVbaBackups" & objVBComp.Name & ".txt"
        End If
    Next

End Sub

The And objVBComp.Name <> "" stops it from erroring when it encounters a corrupted module but turned out not to be necessary as the ‘fixed’ file contained no corrupted modules.

Since that export routine is so fast (40 modules / 100kb saved in <1s) I will be assigning it to a button on the ribbon with a better naming convention for the files it creates.