|
ブックのバックアップを違う場所に同じ名前でとっていきたいです。
現在、個人のPCで操作したあと、サーバーにコピペしてます。
(サーバーが重く、ファイルが開かないときがあり作業が遅いので)
今後、ファイル更新した後にサーバー(指定した場所)に
自動で保存するマクロボタンを作りたいなと思い、
いろいろ調べていました。。。が、
既存ブックと同じ場所にバックアップファイルを作成はできるのですが、
違う場所になるとエラーになります(ファイルが読み取り専用だとかいってきます)
VBAよくわからないので???になっています。
どのようにすればいいのでしょうか?
参考にしたVBAから自分でちょこっと手直ししたもののっけます。
ご伝授お願いします。
--------------------------------------------------------------------------
Sub COPY()
Dim wb As Workbook
Dim ret As Integer
Dim sFileName As String
Dim strPath As String
'確認メッセージ
ret = MsgBox("バックを作成しますか?作業中ブックを保存します。", vbYesNo)
If ret = vbNo Then
Exit Sub
End If
'アクティブブック取得
Set wb = ActiveWorkbook
'アクティブブックの編集確認
If wb.Saved = False Then
'編集有りの場合は上書き保存を行う
wb.Save
End If
strPath = "D:\test\"
sFileName = strPath & wb.Name
ActiveWorkbook.SaveAs Filename:=sFileName
End Sub
|
|