バックアップ 現在開いているブックのバックアップ

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Sub EXCELBkup()
'
'エラー処理なし(同名保存)

Dim strNowName As String
Dim strCH As String
Dim strPath As String

'パラメータ

'*変換名
strCH = "BK"

'*保存先パス
strPath = "C:\Documents and Settings\TST\デスクトップ\XLSBK" 'パス名の例はNTの場合

strNowName = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=strPath & "\" & strCH & strNowName

'以下は簡略した方法(セル書き込みあり)
With Range("IV1")
' .Formula = ActiveWorkbook.Name
' .Replace "xls", "bck"
' ActiveWorkbook.SaveAs .Value
' .Clear
End With
End Sub
 

 

2000年01月01日|[VBサンプルコード]:[バックアップ]