エクセルのバックアップについて

質問

エクセルのバックアップについて教えてください。エクセルのファイルを自動でバックアップもしくはVBAの組み込みでバックアップしたいのです。ただしバックアップしたファイルはネットワーク上の別の場所に保存したいのです。またこのファイルはとても大きいので出来るだけ小さなサイズになるような方法があればありがたいのですが。宜しくお願いします。

回答No.1

nicotinism · ベストアンサー

Windows XP Pro であれば Makecab.exe が有りますので
こんな感じで出来るのですが・・さて？
（ファイルは上書き、無いフォルダは自動的に作成されます）

Sub bkupXls()
Dim strCmd As String
Dim strStoreDir As String
Dim rtnVal As Long

strStoreDir = "\\ServerName\tmp\new folder"

strCmd = "makecab /L" & Chr(32) & _
Chr(34) & strStoreDir & Chr(34) & Chr(32) & _
Chr(34) & ThisWorkbook.FullName & Chr(34) & Chr(32) & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".CAB"
Debug.Print strCmd

rtnVal = Shell(strCmd, vbHide)
End Sub

世代管理なら
データベース自動バックアップ関数 (FSO)
http://www.moug.net/tech/acvba/0070012.htm

LZH で保存なら
Accessから外部ファイルを圧縮/解凍
http://www.penhagi.com/access/tips/57_unlha.htm
あたりが参考になるかと思います。
私、Accessよりの人間なので・・

お礼

ありがとうございます。たすかりました。