Доброго дня! С утра еще файле работал исправно, сейчас запустил. такая проблема. Решения пока не нашел, но и проблему ни у кого такую не встречал, что может быть? Прикрепил скриншот Файл большей, не знаю, стоит ли его именно прикреплять?
Доброго дня! С утра еще файле работал исправно, сейчас запустил. такая проблема. Решения пока не нашел, но и проблему ни у кого такую не встречал, что может быть? Прикрепил скриншот Файл большей, не знаю, стоит ли его именно прикреплять?lFJl
Какая прелесть! У меня похожее было как-то. После перезагрузки компа само вылечилось. Если перезагрузка не поможет (кстати, сначала попробуйте просто перезапустить Excel). Есть ли в файле макросы? Если да, то какие? Покажите. Больше никаких ругательств не было? Не только при открытии, но и в предыдущей сессии. На крайняк - есть ли возможность переустановки Офиса? Кстати, как файл открывается на другой машине?
Какая прелесть! У меня похожее было как-то. После перезагрузки компа само вылечилось. Если перезагрузка не поможет (кстати, сначала попробуйте просто перезапустить Excel). Есть ли в файле макросы? Если да, то какие? Покажите. Больше никаких ругательств не было? Не только при открытии, но и в предыдущей сессии. На крайняк - есть ли возможность переустановки Офиса? Кстати, как файл открывается на другой машине?_Boroda_
У меня похожее было как-то. После перезагрузки компа само вылечилось.
Да ... перезагрузка - большая сила. У меня, на бывшей работе, была корпоративная заставка с подписью:
Цитата
Если что-то не работает - не спешите звонить администратору - сначала перезагрузите компьютер.
У меня, если что-то не работает, я всегда делаю два действия после закрытия офиса: 1. удаляю файлы (находиться в скрытых папках - нужно сначала их сделать видимыми) "c:\Users\Пользователь\AppData\Roaming\Microsoft\Excel\Excel15.xlb" все файлы из папки:"c:\Users\Пользователь\AppData\Local\Microsoft\Windows\WER\ReportQueue\" 2.если первое не помогло - опять закрываю офис - повторяю первое действие -- Перезагружаю комп
У меня похожее было как-то. После перезагрузки компа само вылечилось.
Да ... перезагрузка - большая сила. У меня, на бывшей работе, была корпоративная заставка с подписью:
Цитата
Если что-то не работает - не спешите звонить администратору - сначала перезагрузите компьютер.
У меня, если что-то не работает, я всегда делаю два действия после закрытия офиса: 1. удаляю файлы (находиться в скрытых папках - нужно сначала их сделать видимыми) "c:\Users\Пользователь\AppData\Roaming\Microsoft\Excel\Excel15.xlb" все файлы из папки:"c:\Users\Пользователь\AppData\Local\Microsoft\Windows\WER\ReportQueue\" 2.если первое не помогло - опять закрываю офис - повторяю первое действие -- Перезагружаю комп
Перезагрузка ПК, перезапуск Excel файла не помогли В других файлах с макросами все работает как часы. В файле есть макросы, в основном это копирование с листа на лист, создание и удаление листов Например:
[vba]
Код
Sub Счет1() On Error Resume Next
MsgBox ("Нужно скопировать поступление, как на скрине")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lLastRow = Cells(30, 1).End(xlUp).Row If Target.Row > lLastRow Then Range("E1").Select End If
End Sub
[/vba]
Остальные макросы похожи на первый
Ругательства были, когда выполнял например первый макрос, но перезагрузкой ПК все решалось. Переустановка офиса к сожалению не возможна. На другом компе та же проблема. Мне этот файл служил верой и правдой больше полугода, в нем ничего не менял последние пару месяцев, почему такие дела происходят иногда, я понять не могу.
Перезагрузка ПК, перезапуск Excel файла не помогли В других файлах с макросами все работает как часы. В файле есть макросы, в основном это копирование с листа на лист, создание и удаление листов Например:
[vba]
Код
Sub Счет1() On Error Resume Next
MsgBox ("Нужно скопировать поступление, как на скрине")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lLastRow = Cells(30, 1).End(xlUp).Row If Target.Row > lLastRow Then Range("E1").Select End If
End Sub
[/vba]
Остальные макросы похожи на первый
Ругательства были, когда выполнял например первый макрос, но перезагрузкой ПК все решалось. Переустановка офиса к сожалению не возможна. На другом компе та же проблема. Мне этот файл служил верой и правдой больше полугода, в нем ничего не менял последние пару месяцев, почему такие дела происходят иногда, я понять не могу.lFJl
SLAVICK, Там около ста таких макросов? А это само собой много времени, потому что нужно в каждый вникнуть, проще будет заново написать! :) Тем более, думаю это не уберет эту ошибку, и только время заря потрачено будет. Может есть решение данной проблемы, менее трудозатратное и наиболее быстрое.
SLAVICK, Там около ста таких макросов? А это само собой много времени, потому что нужно в каждый вникнуть, проще будет заново написать! :) Тем более, думаю это не уберет эту ошибку, и только время заря потрачено будет. Может есть решение данной проблемы, менее трудозатратное и наиболее быстрое.lFJl
Взял недельный бэкап, работает исправно, в этом файле только база данных пополняется. но если вдруг найдется решение, как это убрать, или из-за чего это происходит, то напишите пожалуйста. Тем более, макросы я причесать могу, а вот куча листов, которые появились лишние, с ними-то что делать?
Взял недельный бэкап, работает исправно, в этом файле только база данных пополняется. но если вдруг найдется решение, как это убрать, или из-за чего это происходит, то напишите пожалуйста. Тем более, макросы я причесать могу, а вот куча листов, которые появились лишние, с ними-то что делать? lFJl
Обычно порядок действий такой - убиваем все макросы (просто сохранив файл в xlsx), закрываем - открываем - смотрим, если все в порядке, то косяк в макросах, возвращаемся к предыдущей версии и убиваем половину макросов вручную, закрываем - открываем - смотрим, если все в порядке, то косяк в том, что мы убили, возвращаемся к предыдущей версии и убиваем половину макросов из той половины, что убили раньше, и так далее, пока не найдем врага. Не забывайте про макросы в модулях книги и листов. Конечно, можно предварительно глазами выявить наиболее вероятных косячников, но для этого нужен некоторый опыт.
куча листов, которые появились лишние, с ними-то что делать?
У Вас листы реально в книге появились или только в VBA Вы их видите? А удалить лишние листы быстро можно или в том же VBA, или открыв файл любым архиватором и там уже удалить их как обычные файлы.
Обычно порядок действий такой - убиваем все макросы (просто сохранив файл в xlsx), закрываем - открываем - смотрим, если все в порядке, то косяк в макросах, возвращаемся к предыдущей версии и убиваем половину макросов вручную, закрываем - открываем - смотрим, если все в порядке, то косяк в том, что мы убили, возвращаемся к предыдущей версии и убиваем половину макросов из той половины, что убили раньше, и так далее, пока не найдем врага. Не забывайте про макросы в модулях книги и листов. Конечно, можно предварительно глазами выявить наиболее вероятных косячников, но для этого нужен некоторый опыт.
куча листов, которые появились лишние, с ними-то что делать?
У Вас листы реально в книге появились или только в VBA Вы их видите? А удалить лишние листы быстро можно или в том же VBA, или открыв файл любым архиватором и там уже удалить их как обычные файлы._Boroda_
'Function ФайлСущ(s$) As Boolean ' On Error Resume Next ' ФайлСущ = Dir(s) <> "" 'End Function
[/vba] Этой функцией я проверяю наличие файла
Код
=ЕСЛИ(ФайлСущ(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg")); ГИПЕРССЫЛКА(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg");[@[у_акт]]); "Нет заявки от ОСО!")
Вот формула к ней Странно, что я ее как написал, все работало исправно больше пары месяцев, и только сегодня "выстрельнуло", что скажите?
Не путайте понятие НАписать и ЗАписать - то что у Вас(большая часть) - записано ... т.е. макрорекодер записал Ваши действия.
Я не перепутал, имел в виду написать.
Кстати, старый файл так же перестал работать!
Сегодня у нас в организации обновилась винда, может что-то новое в этом обновлении, только как это понять... Но там не менее до этого все работало!
_Boroda_, Понял, походу я нашел виновника! [vba]
Код
'Function ФайлСущ(s$) As Boolean ' On Error Resume Next ' ФайлСущ = Dir(s) <> "" 'End Function
[/vba] Этой функцией я проверяю наличие файла
Код
=ЕСЛИ(ФайлСущ(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg")); ГИПЕРССЫЛКА(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg");[@[у_акт]]); "Нет заявки от ОСО!")
Вот формула к ней Странно, что я ее как написал, все работало исправно больше пары месяцев, и только сегодня "выстрельнуло", что скажите?
Не путайте понятие НАписать и ЗАписать - то что у Вас(большая часть) - записано ... т.е. макрорекодер записал Ваши действия.
Я не перепутал, имел в виду написать.
Кстати, старый файл так же перестал работать!
Сегодня у нас в организации обновилась винда, может что-то новое в этом обновлении, только как это понять... Но там не менее до этого все работало!lFJl