Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запуск Run и продолжение выполения кода без ожидания - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск Run и продолжение выполения кода без ожидания (Макросы/Sub)
Запуск Run и продолжение выполения кода без ожидания
TD_MElec Дата: Суббота, 14.11.2020, 00:20 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
Доброго дня.
Прошу помощи.
При выполнении кода происходит запуск vbs скрипта:[vba]
Код
Set sh = CreateObject("Wscript.Shell")
sh.Run s & " " & ss, 1, True
[/vba]И выполнение останавливается, хотя дальше есть код. Как продолжить его выполение?
 
Ответить
СообщениеДоброго дня.
Прошу помощи.
При выполнении кода происходит запуск vbs скрипта:[vba]
Код
Set sh = CreateObject("Wscript.Shell")
sh.Run s & " " & ss, 1, True
[/vba]И выполнение останавливается, хотя дальше есть код. Как продолжить его выполение?

Автор - TD_MElec
Дата добавления - 14.11.2020 в 00:20
bmv98rus Дата: Суббота, 14.11.2020, 08:53 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
True заменить на False


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеTrue заменить на False

Автор - bmv98rus
Дата добавления - 14.11.2020 в 08:53
RAN Дата: Суббота, 14.11.2020, 10:15 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Сыскал в закромах
[vba]
Код
Sub Мяу

    Filename = Environ("temp") & "\" & "AA.vbs"
    fn = ThisWorkbook.FullName
    Strc = "fn = " & Chr(34) & fn & Chr(34) & vbNewLine
    Strc = Strc & "Filename = " & Chr(34) & Filename & Chr(34) & vbNewLine
    '
    Strc = Strc & "t = Timer" & vbNewLine
    Strc = Strc & "While Timer - t < 5" & vbNewLine
    Strc = Strc & "Wend" & vbNewLine
    Strc = Strc & "MsgBox ""QQéé""" & vbNewLine
    Strc = Strc & "With CreateObject(""scripting.filesystemobject"")" & vbNewLine
    Strc = Strc & ".DeleteFile fn" & vbNewLine
    Strc = Strc & ".DeleteFile Filename" & vbNewLine
    Strc = Strc & "End With" & vbNewLine

    With CreateObject("scripting.filesystemobject").CreateTextFile(Filename, True)
        .Write Strc: .Close
    End With
    With CreateObject("Shell.Application")
        .ShellExecute (Filename)
    End With
    DoEvents
    ThisWorkbook.Close False

End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 14.11.2020, 10:16
 
Ответить
СообщениеСыскал в закромах
[vba]
Код
Sub Мяу

    Filename = Environ("temp") & "\" & "AA.vbs"
    fn = ThisWorkbook.FullName
    Strc = "fn = " & Chr(34) & fn & Chr(34) & vbNewLine
    Strc = Strc & "Filename = " & Chr(34) & Filename & Chr(34) & vbNewLine
    '
    Strc = Strc & "t = Timer" & vbNewLine
    Strc = Strc & "While Timer - t < 5" & vbNewLine
    Strc = Strc & "Wend" & vbNewLine
    Strc = Strc & "MsgBox ""QQéé""" & vbNewLine
    Strc = Strc & "With CreateObject(""scripting.filesystemobject"")" & vbNewLine
    Strc = Strc & ".DeleteFile fn" & vbNewLine
    Strc = Strc & ".DeleteFile Filename" & vbNewLine
    Strc = Strc & "End With" & vbNewLine

    With CreateObject("scripting.filesystemobject").CreateTextFile(Filename, True)
        .Write Strc: .Close
    End With
    With CreateObject("Shell.Application")
        .ShellExecute (Filename)
    End With
    DoEvents
    ThisWorkbook.Close False

End Sub
[/vba]

Автор - RAN
Дата добавления - 14.11.2020 в 10:15
TD_MElec Дата: Суббота, 14.11.2020, 11:35 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
bmv98rus, Спасибо!
Работает.
RAN, и с Вашим советом про создание батника всё получилось. Спасибо!


Сообщение отредактировал TD_MElec - Суббота, 14.11.2020, 11:35
 
Ответить
Сообщениеbmv98rus, Спасибо!
Работает.
RAN, и с Вашим советом про создание батника всё получилось. Спасибо!

Автор - TD_MElec
Дата добавления - 14.11.2020 в 11:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск Run и продолжение выполения кода без ожидания (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!