Как макросом сохранить .xlsx в формат веб-страницы?
Имеется файл .xlsx который нужно сохранить в формате веб-страницы (.htm и папка.files).
Желательно автоматизировать процесс - при открытии файла срабатывает макрос и сохраняет в нужном формате, закрывает файл.
Если подскажите как сделать чтобы он отрабатывал без открытия файла в определенное время, раз в день будет совсем здорово.
То что уже есть, собранное по углам интернета:
' Автоматический запуск макроса при открытии документа
Sub Auto_Open()
HTM
End Sub
' Автоматическое сохранение в формате веб-страницы
Sub HTM()
' Директория документа
ChDir "C:\Grafik"
' Директория для сохранения в формате веб-страницы
ActiveWorkbook.SaveAs Filename:="C:\Grafik\Grafik.htm", _
FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
' Автоматическое закрытие документа после отработки макроса
Sub Auto_Close()
Application.Quit
ActiveWorkbook.Close True
End Sub