Приветствую всех! У меня возникла такая проблема - при экспорте сметы в ексель вылетает Run-Time err 94 Звонил в поддержку мне сказали проблема в офисе, переустановите. Офис переставил - ошибка осталась! Скрин приложил. 1111111111111111111111111111111111111111.png (192.01 Кб) Просмотров: 1585

Здравствуйте "PRODVi". 1. Укажите версию программы Smeta.ru (все 4 цифры)2. Прикрепите скриншот после нажатия на кнопочку Debug3. Прикрепите в формате sob объект или экспортный файл сметы в формате Excel

Версия программы 7.0.0.0Добавлю что все работало прекрасно. Данные проблемы возникли при переходе со статики на динамику (всмысле TCP/IP), хотя может это просто совпадение. Все файлы да и сама программа установлены на этом пк и на нем ничего не трогалось и не удалялось.Вот вывод при нажатии на Дебаг:Код: Выделить всёPublic Src As Excel.WorksheetPrivate Sub CBPrintMat_Click()  UpdateButtonRREnd SubPrivate Sub CBRR_Click()  UpdateButtonRREnd SubSub UpdateButtonRR()  CBPrintTrud.Enabled = CBRR.Value  CBPrintMash.Enabled = CBRR.Value  CBPrintMat.Enabled = CBRR.Value  On Error GoTo AutoCheck    'Set src = ActiveWorkbook.Sheets("Source")    CBPrintPriceInfo.Enabled = CBRR.Value And CBPrintMat.Value And Src.Cells(1, 7) = 0    Exit SubAutoCheck:  CBPrintPriceInfo.Enabled = CBRR.Value And CBPrintMat.ValueEnd SubPrivate Sub CommandButton1_Click()   With Form_Ls_Mtsn     Application.ScreenUpdating = False       unit_ls_mtsn.SkipAssignedPopr = .CheckBox10.Value       unit_ls_mtsn.Prm_IsPrnKodPopr = CheckBox12.Value       unit_ls_mtsn.Prm_IsPrnPrimPopr = CheckBox11.Value       unit_ls_mtsn.Prm_PrintPodoic = OBUtv.Value       'MK 19.01.2007 --->       unit_ls_mtsn.NewDoc = .OptionButton7.Value Or .OptionButton9.Value            <-- вот эта строчка выделена желтым цветом (вроде указывает что в ней что то не так)       unit_ls_mtsn.Form1b = .OptionButton9.Value       'NewDoc = .OptionButton7.Value       'MK 19.01.2007 <---       unit_ls_mtsn.Prm_Print_Comment = CheckBox14.Value       unit_ls_mtsn.Prm_Print_On_LS = CheckBox4.Value       unit_ls_mtsn.Prm_Print_Cenoobrazovanie = CheckBox16.Value       unit_ls_mtsn.Prm_AltTab = OptionButton11.Value       unit_ls_mtsn.Prm_PrintItogVidRab = OBVirRabPrint.Value       unit_ls_mtsn.Prm_FullEdIzm = .CBFullEdIzm.Value       unit_ls_mtsn.PrmPrintRR = CBRR.Value       unit_ls_mtsn.PrmPrintTrud = CBPrintTrud.Value And CBRR.Enabled       unit_ls_mtsn.PrmPrintMash = CBPrintMash.Value And CBRR.Enabled       unit_ls_mtsn.PrmPrintMat = CBPrintMat.Value And CBRR.Enabled       unit_ls_mtsn.PrmPrintPriceInfo = CBPrintPriceInfo.Value And CBRR.Enabled And CBPrintMat.Value       unit_ls_mtsn.Prm_ColumnAddNumSmeta = CBPrintPosSmeta.Value       Ls_MTSN DocType, _              .CheckBox4.Value, _              .CheckBox3.Value, _              .OptionButton4.Value, _              .CheckBox5.Value, _              .CheckBox1.Value, _              .CheckBox2.Value, _              .CheckBox6.Value, _              .OptionButton6.Value, _              .CheckBox7.Value, _              CheckBox8.Value, _              CheckBox9.Value, _              OBUtv.Value     Application.ScreenUpdating = True     .Hide   End WithEnd SubPrivate Sub CommandButton2_Click()  Form_Ls_Mtsn.HideEnd SubPrivate Sub UserForm_Activate()Dim IsCompens As Boolean  Set Src = ActiveWorkbook.Sheets("Source")  IsCompens = Application.Run("Main.xls!IsCompens", Src)  If IsCompens Then    Form_Ls_Mtsn.CheckBox16.Enabled = True    Form_Ls_Mtsn.CheckBox16.Value = False  Else    Form_Ls_Mtsn.CheckBox16.Enabled = False    Form_Ls_Mtsn.CheckBox16.Value = False  End If  Form_Ls_Mtsn.TextBox1.Value = unit_ls_mtsn.NRSPZPMEnd Sub

Для начала неплохо было бы установить последнее обновление для вашей версии(оно бесплатное и найти его можно на нашем сайте 7.0.0.10)Попробуйте удалить файл C:\StroySoft\Smeta.ru\Client\ExcelShabl\FormStorage.xls

Я конечн попробую сейчас удалить файл который вы сказали. Ставить патч я не буду так как не хочу получить не работоспособную программу (а так бывает), у меня хватает проблем и с этой ошибкой (кою не могу исправить уже более недели). Но добавлю - программа не экспортирует совершенно любые сметы, даже которые до этого экспортировались совершенно свободно. Так же в окне где делаются настройки вывода (где кнопка сформировать) ранее все выбиралось только один раз и в дальнейшем указывалось автоматом. Сейчас все нужно ставить постоянно вручную.

Timur СПАСИБО ВАМ ОГРОМНОЕ!!! Все получилось когда удалил файл, и сразу все галки нужные на места встали, все заработало. Еще раз вам Спасибо!пс. тему можно закрывать если есть оное)

А патч установите. Патчи, они понимаете ли, выпускаются для исправления ошибок.

Я не спорю, в них и справление ошибок, и добавление каких либо функций, и все такое-претакое. Только вот кто ручается кто он встанет как надо?? У меня просто нет времени да и желания переустанавливать смету. Плюс с патчем вдруг еще старые документы не будут открываться или еще какой трабл возникнет. Пока мне на него не жалуются - и слава Богу, а как будет че не так то можно и поставить.Кстати вспомнил еще там один глюк - почему то язык вместо русского - кривой. Тоесть менюшки все написаны на русском а при наведении на них мышью выскакивает описание, и оно на кривом языке. Эсли это патч исправит я конечн его поставлю, так как тоже является большой проблемой. Или есть другой способ исправить это? Подскажите кто знает!

Посмотрите здесь.

Ко мне пришла девушка от вас, и перепробывала все - и языки меняла, и реестр правила, и визуализацию меняла - ничего не помогло. Потом прогу переставляли - аналогично безрезультатно. Звонили разработчикам - они без понятия в чем дело. КУДА КОПАТЬ ЕЩЕ МОЖНО?

Договаривайтесь с консультантами и визите компьютер к нам.