下記のコードでバックアップファイルの自動保存は出来るようになりましたが、
保存先を指定したい時はbackupdirをどこに書けば良いのでしょうか?
元ファイルは\データベースにあり、保存先は\データベース\backupとしたいです。
色々やってみたのですが上手く行きません。
よろしくお願いします。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wb As String
wb = Replace(ActiveWorkbook.Name, ".xls", "")
ActiveWorkbook.SaveCopyAs _
ActiveWorkbook.Path & "\" & wb & _
Format(Now(), "yyyymmdd_hhmmss") & ".xls"
End Sub
「backupdir = "\\SV01\Share\20.賃貸部\管理課\データベース\backup」
No.1ベストアンサー
- 回答日時:
>ActiveWorkbook.Path & "\" & wb & _
を
ActiveWorkbook.Path & "\backup\" & wb & _
でできませんか?
ただし、先に「backup」が存在していることを前提としています。
参考
http://excelwork.info/excel/booksavecopyas/
注意
1.当方2013を使用していますので、動作確認を下記の拡張子を用いて行いました。
~~~~~~~~~
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wb As String
wb = Replace(ActiveWorkbook.Name, ".xlsm", "")
ActiveWorkbook.SaveCopyAs _
ActiveWorkbook.Path & "\backup\" & wb & _
Format(Now(), "yyyymmdd_hhmmss") & ".xlsm"
End Sub
~~~~~~~~~
2.「ActiveWorkbook.Path 」を使用しているため、対象ファイルの存在するフォルダーに「backup」が存在する必要があります。
「"\\SV01\Share\20.賃貸部\管理課\データベース\backup"」が上記のフォルダーでない場合は、変更してください。
3.フォルダーが存在しない場合に作成する等の操作はFSOの範疇になりますので、対応していません。
他に詳しい方も多数おられますので、どのようなエラーが出るのかを追加すれば、より詳細なアドバイスを頂けると思います。
お返事が遅くなって申し訳ありません。
お教えいただいた内容に書き換えてみました。
それできちんとバックアップ出来ました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データベースの最適化をマクロ...
-
NOTESでデータベースを開いたと...
-
accessの勉強ができるサイトは?
-
ACCESS2019でのエラーメッセージ
-
アクセスのデータがブッ壊れた...
-
結晶の分子構造
-
CDの売上枚数を知りたいのですが
-
AccessとSQL Serverの違い
-
AndroidからのAccessデータベー...
-
oracleで別のグローバルデータ...
-
他のデータベースのオブジェク...
-
【エクセル】自動保存先として...
-
Paradoxについて教えて下さい
-
Accessのレポートで「縦書き」...
-
データベースの2GBって・・・?
-
JavaとOracle Javaって何が違う...
-
エクセルのフォームについて(...
-
リスト形式の表とデータベース...
-
sqlite2とsqlite3の違いについて
-
コンピュータ用語、データベー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースの最適化をマクロ...
-
AndroidからのAccessデータベー...
-
ACCESS2019でのエラーメッセージ
-
データベースとウェブ(WWW)の共...
-
Accessのレポートで「縦書き」...
-
accessの勉強ができるサイトは?
-
DB2 UDBって?
-
私があるアカウント発行の権利...
-
CDの売上枚数を知りたいのですが
-
バッファプールって?
-
DB2で複数DBからSELECT等
-
【エクセル】自動保存先として...
-
アクセスのデータがブッ壊れた...
-
Microsoft Accessについて
-
RBDの反対語は?□DB??
-
ADODB.Recordset エラー '800a0...
-
IPアドレスを数値に変換
-
AccessとSQL Serverの違い
-
マクロでデータベースの最適化...
-
SIDとは?
おすすめ情報