VBAでExcelファイルのバックアップを作成する方法

1 VBAでBackupファイルを作成する方法

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

VBAでBackupファイルを作成する方法

VBAでExcelファイルのBackupファイルを作成するには【Workbookオブジェクト】の【SaveCopyAs メソッド】を使用します。

【SaveCopyAs メソッド】の書式

SaveCopyAs メソッドの書式はこのようになります。

Backup対象のBook名　SaveCopyAs　”Backupの保存先＆ブック名.拡張子”

1	Backup対象のBook名　SaveCopyAs　”Backupの保存先＆ブック名.拡張子”

実際に書いてみるとこんな感じになります。

Workbooks("コピー元.xls").SaveCopyAs "C:\BackUp\コピー後.xls"

1	Workbooks("コピー元.xls").SaveCopyAs "C:\BackUp\コピー後.xls"

コピー元というBookをコピー後ファイルという名前でCドライブのBackupフォルダに保存するというコードですね。

Backupを作成するサンプルコード

実際にBackupを作成するコードをご紹介します。今回は同じコピー元と同じ保存先に設定してあります。

※すでに同じ名前のファイルがあった場合は有無を言わずに上書きされますので、ファイル名にご注意ください。

Sub Sample()
On Error GoTo Error1’一応エラー対策
Dim res As Integer
　 Dim CopyBook As String 
res = MsgBox("バックアップを作成して保存します｡よろしいですか?", vbYesNo)
If res = vbNo Then Exit Sub
'Backup後の保存先＆ブック名
CopyBook = ActiveWorkbook.Path & "\" & "BackupFile.xlsm"
ActiveWorkbook.SaveCopyAs CopyBook  'Backup保存するコード
MsgBox "保存しました"
Exit Sub
Error1: 'エラーが発生した場合はここへ飛ぶ
MsgBox "エラー番号:" & Err.Number & vbLf & _
"エラー内容：" & Err.Description & vbLf
Exit Sub
End Sub

Sub Sample()

On Error GoTo Error1’一応エラー対策

Dim res As Integer

　 Dim CopyBook As String

res = MsgBox("バックアップを作成して保存します｡よろしいですか?", vbYesNo)

If res = vbNo Then Exit Sub

'Backup後の保存先＆ブック名

CopyBook = ActiveWorkbook.Path & "\" & "BackupFile.xlsm"

ActiveWorkbook.SaveCopyAs CopyBook 'Backup保存するコード

MsgBox "保存しました"

Exit Sub

Error1: 'エラーが発生した場合はここへ飛ぶ

MsgBox "エラー番号:" & Err.Number & vbLf & _

"エラー内容：" & Err.Description & vbLf

Exit Sub

End Sub

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @takabou63

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

VBAでExcelファイルのバックアップを作成する方法

taka

最新記事 by taka (全て見る)

VBAでBackupファイルを作成する方法

【SaveCopyAs メソッド】の書式

Backupを作成するサンプルコード

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

VBAでBackupファイルを作成する方法

【SaveCopyAs メソッド】の書式

Backupを作成するサンプルコード

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBAの処理の時間を取得する方法2(Timer関数)

VBAでATMのようなランダムキーを作ってみた

ExcelのBookを×で閉じれなくする方法

ユーザーフォームに設置されているコントロール名を取得する方法

数値だけが入力できるTextBoxを作成する方法

VBA セルの塗りつぶしで遊んでみたお話

VBAでOfficeのバージョンを取得する方法

ﾘｽﾄﾎﾞｯｸｽで選択した内容をﾃｷｽﾄﾎﾞｯｸｽに表示する方法

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル