powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ошибка: Сервер занят.
10 сообщений из 10, страница 1 из 1
Ошибка: Сервер занят.
    #34514704
guestneon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Господа программисты... есть такая задача: нужно из программы обращаться к Excel'ю во время того как пользователь редактирует ячейки или диаграммы(в общем вводит данные).

если так делать, то будет выводится ошибка, дословно: "Действие не может быть заврешено, так как программа "Microsoft Excel Лист1" занята. Перейдите в нужное окно с помощью кнопки "Переключится" и устраните ошибку. И на выбор дает мне 3 кнопки:Переключиться, Отмена, Повторить...

есть ли какая нибудь возможность обойти эту проблему?
ну или хотя бы узнать занят сейчас Excel или нет?
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #34514950
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guestneonГоспода программисты... есть такая задача: нужно из программы обращаться к Excel'ю во время того как пользователь редактирует ячейки или диаграммы(в общем вводит данные).

если так делать, то будет выводится ошибка, дословно: "Действие не может быть заврешено, так как программа "Microsoft Excel Лист1" занята. Перейдите в нужное окно с помощью кнопки "Переключится" и устраните ошибку. И на выбор дает мне 3 кнопки:Переключиться, Отмена, Повторить...

есть ли какая нибудь возможность обойти эту проблему?
ну или хотя бы узнать занят сейчас Excel или нет?по первому абзацу - вряд ли возможно..
по второму - попробуйте использовать обработчик ошибок и не изменять данные, а изменить какое-нибудь свойство (не объект) в качестве тестового запроса.. например exApp.DisplayAlerts = False

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Command1_Click()
Dim exApp As New Excel.Application

    Set exApp = GetObject(, "Excel.Application")

On Error GoTo rrr
    exApp.DisplayAlerts = False
On Error GoTo  0 

    exApp.Range("A1").Select
    Set exApp = Nothing
    Exit Sub
    
rrr:
Set exApp = Nothing
End Sub
окно не появится, а возникшая ошибка будет означать, что Excel занят
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #34515084
guestneon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vbaproокно не появится, а возникшая ошибка будет означать, что Excel занят

если изменять свойства, как понимаю получаю Exception, а не Error, что гораздо лучше!

спасибо!
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Ошибка: Сервер занят.
    #38653906
eternal_digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vbapro, Доброго времени суток.
У меня такая же ошибка, только возникает она несколько в другой ситуации.
На лист excel выводятся Real Time Data с помощью функции ДРВ.
Все работает, но через некоторое время выскакивает эта ошибка: "Сервер занят" "Действие не может быть завершено....."
Хотел было локализовать ошибку посредством On Error Resume Next, но никак не могу сообразить каким образом связать
эту строку с событием возникновения ошибки. Ну т.е. Вы в своем примере используете событие Click, а какое событие в моем случае непонятно. Буду очень признателен, если подскажите.
Спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Ошибка: Сервер занят.
    #39199239
Komil_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vbapro...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Command1_Click()
Dim exApp As New Excel.Application

    Set exApp = GetObject(, "Excel.Application")

On Error GoTo rrr
    exApp.DisplayAlerts = False
On Error GoTo 0

    exApp.Range("A1").Select
    Set exApp = Nothing
    Exit Sub
    
rrr:
Set exApp = Nothing
End Sub

окно не появится, а возникшая ошибка будет означать, что Excel занят

Никто не подскажет как перевести этот код в VB скрипт? Там к сожалению нет возможности раннего связывания. :(
А так код самый раз.
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #39199353
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Komil_Там к сожалению нет возможности раннего связыванияТочно VBScript имеете ввиду? Там же есть GetObject.
Вот New Excel.Application здесь точно лишнее в любом случае. Это же раннее связывание. Поэтому должно быть так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim exApp
Set exApp = GetObject(, "Excel.Application")
On Error GoTo rrr
    exApp.DisplayAlerts = False
On Error GoTo 0
    exApp.Range("A1").Select
    Set exApp = Nothing
    Exit Sub
rrr:
Set exApp = Nothing
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #39199636
Komil_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Prist,

Прикол в том, что этот код уже не совсем рабочий. В смысле если Excel "занят" (юзер редактирует ячейку или открыл диалоговое окно), то программа виснет и выводит сообщение об этом. А хотелось бы "красиво" обработать ошибку.
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #39199642
Komil_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Prist,

Да и " On Error GoTo rrr " уже не катит в VB скрипт.
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #39199867
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Komil_Да и " On Error GoTo rrr " уже не катит в VB скрипт. Но есть On Error Resume Next и Err.Number - этого вполне достаточно, чтобы реализовать то, что "не катит"
...
Рейтинг: 0 / 0
Ошибка: Сервер занят.
    #39199968
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Komil_этот код уже не совсем рабочийА предыдущий был совсем рабочий? :) Вы написали про ранее связывание - я показал как от него избавится.
А что Вам там надо дальше - мне неведомо. Я полагал, что раз задаете вопрос по VBScript - значит дальше-то проблем нет. А получается, что проблема во всем, т.к. VBScript Вы не знаете. Тогда уж пишите что Вам надо в итоге, а не "не катит" и прочее. Там много чего не катит.
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ошибка: Сервер занят.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]