Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
1

Ошибка 80004005 при запуске VBScript

07.02.2018, 10:16. Просмотров 938. Ответов 32
Метки нет (Все метки)

Здравствуйте. Помогите пожалуйста решить проблему.
У меня имеется код - разово запускающий макрос в открытом документе эксель.
Visual Basic
1
2
3
4
With GetObject(CreateObject("WScript.Shell").CurrentDirectory & "\111.xls").Application
     .DisplayAlerts = False : .Run "Макрос2"
     .ActiveSheet.Calculate
End With
Но срабатывает этот скрипт одним единственным способом: нужно щелкать по нему мышкой.
Обязательно запуск должен быть связан со щелчком мышки и больше никак.

Когда я пытаюсь запустить его удаленно, через ссылку на этот скрипт, то он выдает ошибку:
"Windows Script Host, неопознанная ошибка, код 80004005"

(даже если сослаться не на сам файл скрипта, а на его ярлык или на запуск bat-файла то все равно выдает эту ошибку)
Как исправить эту ошибку, чтобы скрипт срабатывал?

Окно ошибки показано на картинке:
0
Миниатюры
Ошибка 80004005 при запуске VBScript  
Вложения
Тип файла: rar 11.rar (14.6 Кб, 1 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2018, 10:16
Ответы с готовыми решениями:

Ошибка при запуске программ.
Доброго времени суток... Извените меня, незнал где создать эту тему, решил...

Ошибка при запуске MS Office
Добрый день. Установил на серв под windows ms office в надежде на то, чтобы...

Ошибка при запуске скрипта 800a01a8
Доброго всем дня. Есть скрипт Set objTextFile =...

Ошибка 2503 при запуске компонента MSOffice 2003
Здравствуйте. При первом после установки запуске любого офисного приложения...

Как создать лог-файл, если при запуске скрипта произошла ошибка?
Помогите, пожалуйста. Вот есть скрипт для отправки почты: strEmail =...

32
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
08.02.2018, 13:44  [ТС] 21
FlasherX, и как тогда записать эту команду?
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
08.02.2018, 14:35 22
ВасилисаЛкн, ну, вы даёте. Так же, только без угловых скобок.
0
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
08.02.2018, 17:48  [ТС] 23
FlasherX, по прежнему никакой реакции
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
08.02.2018, 22:40 24
ВасилисаЛкн, ну, если у вас включен только пересчёт, то во многих случаях реакции и не будет видно. Вы строку обратно раскомментировали?
0
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
09.02.2018, 05:34  [ТС] 25
FlasherX, да, строка обратно раскомментирована.
Команда на выполнение такая:
wscript.exe C:\11\1-.vbs
Код выглядит так:
Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
With GetObject("C:\11\111.xls").Application
     .DisplayAlerts = False : .Run "Макрос2"
     .ActiveSheet.Calculate
End With

Никакой реакции вообще не выдает
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
09.02.2018, 12:05 26
ВасилисаЛкн, а в имени 1-.vbs действительно дефис есть?
Попробуйте полный путь до wscript.exe указать: C:\Windows\system32\wscript.exe
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
10.02.2018, 13:55 27
ВасилисаЛкн, на всякий случай ещё такой код проверьте:
Visual Basic
1
2
3
4
5
6
7
For Each WB In GetObject(,"Excel.Application").Workbooks
  If WB.FullName = "C:\11\111.xls" Then
    With WB.Application
      .DisplayAlerts = False : .Run "Макрос2" : .ActiveSheet.Calculate
    End With : Exit For
  End If
Next
0
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
16.02.2018, 20:46  [ТС] 28
FlasherX, пишет : "невозможно создание объекта контейнером ActiveX"
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
16.02.2018, 20:57 29
ВасилисаЛкн, при запущенном Excel?
0
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
16.02.2018, 23:42  [ТС] 30
FlasherX, да.
При запущенном эксель.
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
17.02.2018, 00:43 31
ВасилисаЛкн, а если обычным образом запускать?

Вообще похоже на какой-то баг интерфейса системы распознавания речи. Советую ещё попробовать прицепить к ней ярлык с путём к wscript.exe и путём к скрипту в качестве параметра.
0
ВасилисаЛкн
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 64
17.02.2018, 13:42  [ТС] 32
FlasherX, а как это сделать?
Как прописать в ярлыке - путь одновременно и к wscript.exe, и к самому скрипту ?
0
FlasherX
735 / 292 / 113
Регистрация: 06.06.2017
Сообщений: 1,092
17.02.2018, 15:54 33
ВасилисаЛкн, так же, как и предлагалось выше (#18, #26), — через пробел в поле Объект.
Опять на вопрос не ответили.
0
17.02.2018, 15:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.02.2018, 15:54

Ошибка запуска скрипта VBScript в IE11
Столкнулся с проблемой, при запуске программы через браузер (IE11, GH) не...

Сообщение "Ошибка: Недопустимый знак" при запуске скрипта
Здравствуйте. С VBS так вплотную не раотаю, по этому если проблема очевидна то...

Ошибка "Путь не найден" при запуске кода
Мужики есть такая проблема. Вот скрипт vbs который запускается с неизвестной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
33
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru