Запуск Run и продолжение выполения кода без ожидания

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Запуск Run и продолжение выполения кода без ожидания (Макросы/Sub)

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]И выполнение останавливается, хотя дальше есть код. Как продолжить его выполение?

Ответить

bmv98rus

Дата: Суббота, 14.11.2020, 08:53 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

True заменить на False

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

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

Ответить

TD_MElec

Дата: Суббота, 14.11.2020, 11:35 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 1 ±

Замечаний: 0% ±

Excel 2019

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

Сообщение отредактировал TD_MElec - Суббота, 14.11.2020, 11:35

Ответить

Запуск Run и продолжение выполения кода без ожидания (Макросы/Sub)

Страница 1 из 1
1