Excel-VBA 汎用BackUp

ExcelのバックアップのVBAです。
OneDriveなどで複数のPCでの使用を想定しています。
基本的にローカルにBackUpする方法。
日時をファイル名に書き込んでいます、もう一点。
PCのユーザ名を検出して汎用性を上げています。

以下、Source
Sub Backup()
'
' Backup Macro


'

Dim xlTime As String
Dim xlName As String
Dim U_Nam As String
Dim Fld_Nam As String

U_Nam = Environ("USERNAME")


Fld_Nam = "C:\Users\" & U_Nam & "\Desktop\TH-BACKUP\" ' Folder名を指定




'  ファイル名を取得
xlName = ThisWorkbook.Name

'  年月日自分を取得
xlTime = Year(Date) & Format(Month(Date), "00") & _
Format(Day(Date), "00") & _
Format(Hour(Now), "00") & _
Format(Minute(Now), "00")

'  コピー保存用ファイル名設定
xlName = Left(xlName, InStrRev(xlName, ".")) & xlTime & "_BACKUP"

xlName = Fld_Nam & xlName

Debug.Print xlName



'  ファイルをコピーして保存する
ThisWorkbook.SaveCopyAs xlName & ".xlsm"



わかお かずまさ
VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

People Who Wowed This Post

×
  • If you are a bloguru member, please login.
    Login
  • If you are not a bloguru member, you may request a free account here:
    Request Account
This user only allows bloguru members to make comments.
If you are a bloguru member, please login.
Login
If you are not a bloguru member, you may request a free account here:
Request Account