VBA使用頻度の高いコード（１４）：同一ファイルがある場合 日付のついた別名ファイルで保存する

同一ファイルがある場合　日付のついた別名ファイルで保存する

同一ファイルがある場合　日付のついた別名ファイルで保存する。以外に使います。自分の場合、上書き保存嫌うところがあって、万が一に備え別名で記録しているので重宝しています。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub 別名保存()

Dim Target As String
  'フォルダ格納設定⇒JPGで格納
Target = TargetFolder & "\" & Range("k" & i) & ".jpg"

If Dir(Target, vbDirectory) = "" Then
'フォルダ内に重複名がない場合ファイルがない場合そのまま作成
Else
'フォルダ内に重複名がある場合ファイル名に時間とタグをがない場合日時データを付与して複製保存
Target = TargetFolder & "\" & Range("k" & i) & "_" & Format(DateValue, "yyyymmddhhnnss") & "_同名格納" & ".jpg"
End If
FileCopy FilePath, Target

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝