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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][バックアップ 現在開いているブックのバックアップ]

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
 





Production Japan Import Application. Since 1998