Вы действительно можете сделать это с помощью только преуспеть, и это макросы.
По существу вам просто нужно сохранить книгу каждые x секунд. Так что для того, чтобы сделать что-то каждые х секунд, начиная с момента, когда книга открыта, вы делаете это: (Put этот код в когда открывается книга)
alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "EventMacro"
Тогда просто макрос в книге под названием " EventMacro ", который повторит его.
Public Sub EventMacro()
'... Execute your actions here'
alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "EventMacro"
End Sub
Для «... Выполнить свои действия здесь»: Вы можете использовать строку: ActiveWorkbook.Save
, чтобы сохранить текущий Excel лист.
Это должно выполнить то, что вы ищете.
Предыдущий ответ это основано на here, и документации для экономии here.
Wow. Это действительно полезно. Я попробую. Спасибо. – sdeshpande
@sdeshpande Хорошо! Не забудьте принять, если он работает/является решением. – Annabelle
Вот оно. Большое спасибо @Link – sdeshpande