Автосохранение файла Excel в исходное расположение с перезаписью?

Question

[Егор]

Здравствуйте, необходимо чтобы эксель по заданному временному интервалу сохранял изменения в файл, откуда он был открыт, а не в аппдату. Какие варианты решения существуют?

Answer 1

[lvv85]

В личной книге макросов ("Personal.xlsb") добавить событие на открытие книги (модуль "ЭтаКнига")

Private Sub Workbook_Open()
    AutoSaveAllWorkbooks
End Sub

AutoSaveAllWorkbooks - Процедура сохранения всех открытых книг (перезапуск процедуры каждые 30 сек.)

Добавить модуль и вставить следующий код:

Public Sub AutoSaveAllWorkbooks()
    Dim wb As Workbook
    
    For Each wb In Application.Workbooks
        wb.Save
        
        Set wb = Nothing
    Next
    
    Application.OnTime Now + TimeValue("00:00:30"), "AutoSaveAllWorkbooks"
    
End Sub