VBATips

バックアップ用ファイルを自動生成する【ExcelVBA】

バックアップ用のファイルを自動生成したい

VBAマクロを実行する際、

  • 使い方を間違っていた
  • コードに不具合があった

など様々な理由で、元の状態(マクロ実行前の状態)に戻したい場合があります。

残念ながら一度VBAマクロを実行してしまうと、元に戻すことはできません。
その為、バックアップ用のファイルを作成しておくことが望ましいです。

バックアップ用のファイルを自動生成するサンプルコード

Public Function Call_MakeBackup()
    
    '■バックアップするフォルダ名の取得、必要あれば、フォルダを作成
    Dim sPath As String
    sPath = ThisWorkbook.Path & "\backup"
    Call Call_MkDir(sPath)  'フォルダを作成 '★
    
    '■バックアップファイル名を取得
    Dim sName As String
    sName = call_BaseNameGet(ThisWorkbook.Name) & "_" & Format(Now(), "yymmdd") & "_" & Format(Now(), "hhmmss") & ".xlsm"'★
    
    ’■バックアップ処理
    ThisWorkbook.SaveCopyAs Filename:=Call_TruePath(sPath) & sName '★

End Function

使い方

実際の使い方は以下です。

Public Sub sample()
    Call Call_MakeBackup 
End Sub

注意点

関連記事

コメント

タイトルとURLをコピーしました