[v79italya]

закрытие — здесь лишнее. Последнее должно быть предоставлено макросу. »

Согласен. Открытие за скриптом, все остальное - макросом

[Vadikan]

Про планировщик знаю, но хотел бы скриптом это проделывать. »

Объясните, почему вы хотите странного.То есть вы бы хотели, чтобы скрипт всегда висел запущенный и проверял заданное вами время каждые N минут? А если скрипт зависнет или пользователь закроет, что тогда?

Я вот не представляю, как будет работать вариант запуска по времени от DJ Mogarych. В смысле, я представляю, что надо в нем допиливать ради вашей странной хотелки.

[DJ Mogarych]

Ну, по идее, скрипт в этом варианте надо запускать в планировщике каждую минуту.
А вообще, конечно, в скрипт нужно перенести всё то, что делает макрос, чтобы решение было не таким костыльным.

[Vadikan]

о идее, скрипт в этом варианте надо запускать в планировщике каждую минуту. »

Ну вот и получается, что если все равно через планировщик, то проще создать задание с триггерами на запуск в конкретное время, чем гонять ежеминутно :)

[v79italya]

вы бы хотели, чтобы скрипт всегда висел запущенный и проверял заданное вами время каждые N минут? »

Да, пусть висит. Что он много памяти жрет? У меня в трее все время значек блютуз висит, а я ни разу не сокрушался.

А если скрипт зависнет или пользователь закроет, что тогда? »

Пусть тоже в трее какой нибудь значок висит. Нет значка - значит закрылся скрипт, покраснел значок - значит завис.

скрипт в этом варианте надо запускать в планировщике каждую минуту. А вообще, конечно, в скрипт нужно перенести всё то, что делает макрос »

Можно запускать каждые десять минут и отслеживать ближайшую точку времени - если до нее меньше десяти минут, то запустить открытие файла.
Мне в скрипт переносить всю работу макроса не надо. Причина: не разбираюсь в скриптах и ничего без помощи не смогу сделать. К тому же в файле может быть запрос Power Query, который обновляет макрос и сохраняет изменения.
Как то так

[megaloman]

v79italya,

Вариант решения (сохраните код в файл.vbs), как Вы поставили задачу

Код:

FileXlsm = "C:\Users\Администратор\Desktop\Новая папка\Лист Excel.xlsm"
FileSpis = "C:\Users\Администратор\Desktop\Новая папка\Лист Excel.xlsm.txt"
WaitSek = 600               'Подождать перед закрытием Excel (сек)
LoopSek = 60                'Цикл повтора опроса расписания (сек)
IfSek = 59                  'Точность сравнения текущего времени и времени задания (сек)

If ReadSpis(FileSpis, MasSpis) = 0 Then WScript.Quit    'Exit Sub

Do
    For Each D In MasSpis
        If IsDate(D) Then
            If Abs(DateDiff("s", Now, D)) <= IfSek Then

		Set xls = CreateObject("Excel.Application")
		xls.Visible = True  ' False
                xls.Workbooks.Open (FileXlsm)
                
                WScript.Sleep (WaitSek * 1000)
                
                xls.ActiveWorkbook.Save

                xls.ActiveWorkbook.Close
'                xls.Quit

		Set WMI = GetObject("winMgmts:").ExecQuery("SELECT * From Win32_Process WHERE Name='Excel.exe'")
		For Each P In WMI
    			P.Terminate()
		Next
                Exit For

            End If
        End If
    Next
            
    NDate = 0
    For Each D In MasSpis
        If IsDate(D) Then If DateDiff("s", Now, D) > 0 Then NDate = NDate + 1
    Next
            
    If NDate = 0 Then NDate = ReadSpis(FileSpis, MasSpis)
    If NDate > 0 Then WScript.Sleep (LoopSek * 1000)
Loop While NDate > 0

'=========================================================

Function ReadSpis(FileSpis, MasSpis)
    ReadSpis = 0
    With CreateObject("Scripting.FileSystemObject")
        On Error Resume Next
        Set fIn = .OpenTextFile(FileSpis, 1, False)
    
        Err.Number = 0
        MasSpis = Split(fIn.ReadAll, vbCrLf)
        fIn.Close
            
        If Err.Number = 0 Then
            For Each D In MasSpis
                If IsDate(D) Then If DateDiff("s", Now, D) > 0 Then ReadSpis = ReadSpis + 1
            Next
        End If
    
        On Error GoTo 0
    End With
    If ReadSpis = 0 Then MsgBox "Не удалось прочесть актуальные данные" + vbCrLf + FileSpis + vbCrLf + "Скрипт завершается"
End Function

Как это работает:
В текстовом файле есть расписание запуска Excel, например

Код:

04.01.21 22:17
04.01.21 21:22
04.01.21 21:24
05.01.21 14:02

В скрипте надо указать путь к этому файлу и к запускаемому Excel-файлу. Кстати, если у Вас в Excel-файле есть макрос, не может быть у него расширение .xlsx, как Вы указали в своём вопросе.
При запуске скрипта прочитывается файл с расписанием и пока это расписание не исчерпается, этот файл перепрочитываться не будет.
Скрипт будет висеть запущенным, с заданным интервалом анализировать расписание, запускать Excel во время, близкое к расписанию с заданной погрешностью, ждёт указанное время, затем сохраняет файл, закрывает его, прекращает работу Excel.
При исчерпании расписания скрипт попытается заново прочесть файл с расписанием, если файл обновлен и в нём присутствуют времена исполнения больше текущего, скрипт продолжит работу, иначе его работа будет завершена.

[v79italya]

megaloman, большое спасибо!
Попробую завтра, при свободном времени, опробовать. По описанию, я так понял, Вы в коде все предусмотрели. Без регулярного перечитывания.Даже вывод сообщений на случай ошибочных данных или завершения работы скрипта. Еще и сохранение изменений в файле. Спасибо!

[v79italya]

megaloman, все работает!
Поначалу не мог запустить на windows 10. Не мог создать файл с расширением .vbs
Установил Notepad+, но он сохранял текстовый файл в .vb. Я еще не сразу понял и часа два возился с .vb-файлом. Потом уже в сети скачал готовый скрипт.vbs и заменил код.
Все круто! Единственное, если открыт еще файл Excel и он активный, то может закрыть вместо нужного активный. Еще реагирует на кириллицу в пути.
А так скрипт просто супер! Спасибо большое!

[megaloman]

если открыт еще файл Excel и он активный, то может закрыть вместо нужного активный »

Не вместо, а вместе. Попробуйте вместо красного куска просто

Код:

                xls.Quit

У меня такой вариант не всегда корректно отрабатывает.

Еще реагирует на кириллицу в пути. »

Скрипт должен быть сохранен в 1251 кодировке (Например, стандартный Notepad). На всякий случай, прикрепляю заархивированный скрипт в правильной кодировке.

[v79italya]

megaloman, попробую завтра опробовать
Спасибо!