１０分おきに自動でバックアップファイルを作成する

質問

エクセルファイルで
「１０分おきに自動でバックアップファイルを作成する」
ということは可能ですか？

Sub バックアップ作成()
Dim myFSO As Object
Dim MyFile As Object
Dim WSH As Variant
Dim strdate As String

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("Wscript.Shell")

strdate = Format(Now, "yyyy年mm月dd日hh時mm分")

myFSO.CopyFile ActiveWorkbook.FullName, "D:\backup\" & strdate & ".xlsm"

Set MyFile = Nothing
Set myFSO = Nothing
Set WSH = Nothing
End Sub

これでバックアップは作成できるのですが
「10おきに」というのはどうすればいいのでしょうか？

回答No.2

K Kazz（@JazzCorp） · ベストアンサー

＞「１０分おきに自動でバックアップファイルを作成する」ということは可能ですか？
DiskFullのテスト？
フツ～、バックアップファイルのトリガは、FileSave、ダァ～ロ？？
自動で無駄なことやってもシャァ～ナイデ、、、

7) タイマーを使った制御
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv214.html#8-1
開始時刻から終了時刻まで一定間隔でマクロを実行するには？
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9c134.html

お礼

ありがとうございます。

回答No.1

kissX4

バージョン2010であれば、エクセルのオプションから「保存」を選択、「ブックの保存」で指定できると思いますが。

お礼

ありがとうございます。