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

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

есть ли какая нибудь возможность обойти эту проблему?
ну или хотя бы узнать занят сейчас Excel или нет?
...
Рейтинг: 0 / 0
09.05.2007, 16:41
| Ответить | Цитировать | Написать  
Ошибка: Сервер занят.
    #34514950
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
09.05.2007, 22:48
| Ответить | Цитировать | Написать  
Ошибка: Сервер занят.
    #34515084
guestneon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guestneon
Гость
vbaproокно не появится, а возникшая ошибка будет означать, что Excel занят

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

спасибо!
...
Рейтинг: 0 / 0
10.05.2007, 05:23
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Ошибка: Сервер занят.
    #38653906
eternal_digger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eternal_digger
Гость
vbapro, Доброго времени суток.
У меня такая же ошибка, только возникает она несколько в другой ситуации.
На лист excel выводятся Real Time Data с помощью функции ДРВ.
Все работает, но через некоторое время выскакивает эта ошибка: "Сервер занят" "Действие не может быть завершено....."
Хотел было локализовать ошибку посредством On Error Resume Next, но никак не могу сообразить каким образом связать
эту строку с событием возникновения ошибки. Ну т.е. Вы в своем примере используете событие Click, а какое событие в моем случае непонятно. Буду очень признателен, если подскажите.
Спасибо.
...
Рейтинг: 0 / 0
27.05.2014, 22:36
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Ошибка: Сервер занят.
    #39199239
Komil_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
24.03.2016, 07:49
| Ответить | Цитировать | Написать  
Ошибка: Сервер занят.
    #39199353
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
24.03.2016, 10:46
| Ответить | Цитировать | Написать  
Ошибка: Сервер занят.
    #39199636
Komil_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komil_
Гость
The_Prist,

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

Да и " On Error GoTo rrr " уже не катит в VB скрипт.
...
Рейтинг: 0 / 0
24.03.2016, 13:28
| Ответить | Цитировать | Написать  
Ошибка: Сервер занят.
    #39199867
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Komil_Да и " On Error GoTo rrr " уже не катит в VB скрипт. Но есть On Error Resume Next и Err.Number - этого вполне достаточно, чтобы реализовать то, что "не катит"
...
Рейтинг: 0 / 0
24.03.2016, 15:46
| Ответить | Цитировать | Написать  
Ошибка: Сервер занят.
    #39199968
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Komil_этот код уже не совсем рабочийА предыдущий был совсем рабочий? :) Вы написали про ранее связывание - я показал как от него избавится.
А что Вам там надо дальше - мне неведомо. Я полагал, что раз задаете вопрос по VBScript - значит дальше-то проблем нет. А получается, что проблема во всем, т.к. VBScript Вы не знаете. Тогда уж пишите что Вам надо в итоге, а не "не катит" и прочее. Там много чего не катит.
...
Рейтинг: 0 / 0
24.03.2016, 17:07
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ошибка: Сервер занят.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34514950&tid=2173141]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 301ms
total:  422ms
созд. / загр.: 422ms
x
x
Закрыть


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