ExcelVBAでのファイル保存

Sub 名前を付けて保存()
　　Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:="C:\Users\Desktop\サンプル.xlsm"
End Sub

Sub 名前を付けて保存()
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\サンプル.xlsx", FileFormat:=xlOpenXMLWorkbook
End Sub

Sub ファイルの連番処理()
　 Application.DisplayAlerts = False
    Dim Fname As String
    Dim FN As String
    Dim j As Long
　　　
    Fname = "C:\Users\Desktop\サンプル" 'ファイルパスを変数に格納
    Do
    FN = Dir(Fname & "(" & j & ")" & ".xlsx", vbNormal) 'Dir関数でファイルの存在確認
    If FN <> "" Then 'ファイルが存在すれば（条件分岐）
        j = j + 1
    End If
    Loop Until FN = ""
    
    ActiveWorkbook.SaveAs ThisWorkbook.Path & Fname & "(" & j & ")", xlOpenXMLWorkbook  '拡張子をxlsxにして、名前を付けて保存
End Sub

Sub ファイルの連番処理()
    Application.DisplayAlerts = False
    Dim Fname As String
    Dim FN As String
    Dim j 'バリアント変数
   
    Fname = "C:\Users\Desktop\サンプル" 'ファイルパスを変数：Fnameに格納
    Do
    FN = Dir(Fname & j & ".xlsx", vbNormal) 'Dir関数でファイルの存在確認
    If FN <> "" Then 'ファイルが存在すれば（条件分岐）
        If IsEmpty(j) Then '変数ｊが空ならば
            j = 2 'ｊに２を格納（ファイル名に２を付けるため）
        Else
            j = j + 1 'jを１ずつ加算していく
        End If
    End If
    Loop Until FN = "" '同じファイル名がなくなるまでループ
    
    ActiveWorkbook.SaveAs Fname & j, xlOpenXMLWorkbook  '拡張子をxlsxにして、名前を付けて保存
End Sub

Sub ファイルの連番処理()
    Application.DisplayAlerts = False
    Dim j As Long
    Dim Fname As String
    Dim FN As String
    j = 2
    Fname = ThisWorkbook.Path & "\123" 'ファイルパスを変数：Fnameに格納
    FN = Dir(Fname & ".xlsx", vbNormal) 'Dir関数でファイルの存在確認
    If FN = "" Then 'ファイルが存在しなければ
        ActiveWorkbook.SaveAs Fname, xlOpenXMLWorkbook
    Else
        Do
        FN = Dir(Fname & "(" & j & ")" & ".xlsx", vbNormal) 'Dir関数でファイルの存在確認
            If FN <> "" Then 'ファイルが存在すれば
                j = j + 1 'jを１ずつ加算していく
            End If
        Loop Until FN = "" '同じファイル名がなくなるまでループ
        ActiveWorkbook.SaveAs Fname & "(" & j & ")", xlOpenXMLWorkbook
    End If
End Sub

Sub 上書き保存()
    ThisWorkbook.Save
End Sub