VBA 開く,保存,閉じる,作成,削除 ブックの存在確認後のコード記述

Sub ブックの存在確認1()
    Dim BkName, BkPath As String
        BkName = "Book1.xlsm"
        BkPath = ThisWorkbook.Path & "\" & BkName
        If Dir(BkPath) <> "" Then
            MsgBox BkName & " は存在します。"
        Else
            MsgBox BkName & " は存在しません。"
        End If
End Sub

Sub ブックの存在確認2()
    Dim BkName, BkPath As String
    Dim FSO As Object
        BkName = "Book1.xlsx"
        BkPath = ThisWorkbook.Path & "\" & BkName
        Set FSO = CreateObject("Scripting.FileSystemObject")
        If FSO.FileExists(BkPath) Then
                MsgBox BkName & " は存在します。"
        Else
                MsgBox BkName & " は存在しません。"
        End If
        Set FSO = Nothing
End Sub

Sub ブックの存在確認3()
    Dim flag As Boolean
        ChDir ThisWorkbook.Path & "\保存資料"
        flag = Application.Dialogs(xlDialogOpen).Show
        If flag = False Then
            MsgBox "キャンセルされました"
            Exit Sub
        End If
End Sub

Sub ブックの存在確認4()
    Dim BkName As Variant
    Dim wb As Workbook
        ChDir ThisWorkbook.Path & "\保存資料"
        BkName = Application.GetOpenFilename(filefilter:= _
            "Excelファイル,*.xls*", Title:="ファイル選択")
        If BkName <> False Then
            For Each wb In Workbooks
                If wb.Name = Dir(BkName) Then
                    MsgBox "このファイルは、すでに開かれています"
                    Exit Sub
                End If
            Next
            Workbooks.Open BkName
        Else
            MsgBox "キャンセルされました"
            Exit Sub
        End If
End Sub

Sub ブックの存在確認5()
    Dim FolPath, FoFleName As Variant
    Dim BkName As Variant
        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show = 0 Then
                MsgBox "キャンセルされました。"
                Exit Sub
            End If
            FolPath = .SelectedItems(1)
        End With
        BkName = FolPath & "\" & ThisWorkbook.Name
    Dim Fso, Fol, F As Object
    Dim Ans1, Ans2  As Integer
        Ans1 = MsgBox("このファイルの保存作業を続けますか？" _
            , vbYesNo + vbInformation, "保存作業継続確認")
        If Ans1 = 7 Then Exit Sub
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set Fol = Fso.getfolder(FolPath)
        For Each F In Fol.Files
            If F.Name = Dir(BkName) Then
                Ans2 = MsgBox("すでに同名のファイルが存在します" & vbCrLf & _
                    "上書き保存の場合は「はい」" & vbCrLf & _
                    "編集日時付加で別名保存の場合は「いいえ」" & vbCrLf & _
                    "作業を中止する場合は「キャンセル」" & vbCrLf & _
                    "をクリックしてください", _
                    vbYesNoCancel + vbInformation, "保存方法確認")
                Exit For
            End If
        Next
        If Ans2 = 6 Then
            Application.DisplayAlerts = False
            ThisWorkbook.SaveAs BkName
            Application.DisplayAlerts = True
            MsgBox "保存完了しました！", vbInformation, "保存完了"
            Exit Sub
        ElseIf Ans2 = 7 Then
            ThisWorkbook.SaveAs FolPath & "\" & NewBkname
            MsgBox "保存完了しました！", vbInformation, "保存完了"
            Exit Sub
        ElseIf Ans2 = 2 Then
            Exit Sub
        End If
        ThisWorkbook.SaveAs BkName
        MsgBox "保存完了しました！", vbInformation, "保存完了"
End Sub

ThisWorkbook.Close SaveChanges:=False

Sub ブックの存在確認6()
    Dim Ans3 As Integer
    Dim FF, FFa, FFb, FFc As String
    Dim BkName As Variant
        Ans3 = MsgBox("ファイルを閉じします。" & vbCrLf & _
            "編集内容を上書き保存の場合は「はい」" & vbCrLf & _
            "編集内容を名前を付けて保存する場合は「いいえ」" & vbCrLf & _
            "保存しないで終了する場合は「キャンセル」" & vbCrLf & _
            "をクリックしてください", _
            vbYesNoCancel + vbInformation, "終了方法確認")
    If Ans3 = 6 Then
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        Application.DisplayAlerts = True
    ElseIf Ans3 = 7 Then
        FFa = "Excel ブック,*.xlsx,Excel マクロ有効ブック,*.xlsm,"
        FFb = "Excelバイナリブック,*.xlsb,Excel97-2003ブック,*.xls,"
        FFc = "CSVカンマ区切り,*.csv,すべてのファイル,*.*"
        FF = FFa & FFb & FFc
        BkName = Application.GetSaveAsFilename(filefilter:=FF, _
                            FilterIndex:=2, Title:="名前の変更保存")
        If BkName = "False" Then
            Exit Sub
        End If
        ThisWorkbook.SaveAs BkName
    ElseIf Ans3 = 2 Then
    End If
    If Workbooks.Count > 2 Then
        ThisWorkbook.Close False
    Else
        Application.Quit
    End If
End Sub

Sub ブックの存在確認7()
    Dim Nwb As Workbook
    Dim FF, FFa, FFb, FFc As String
    Dim BkName As String
        Set Nwb = Workbooks.Add
        Nwb.Worksheets(1).Range("A1") = "編集作業をする"
        FFa = "Excel ブック,*.xlsx,Excel マクロ有効ブック,*.xlsm,"
        FFb = "Excelバイナリブック,*.xlsb,Excel97-2003ブック,*.xls,"
        FFc = "CSVカンマ区切り,*.csv,すべてのファイル,*.*"
        FF = FFa & FFb & FFc
        BkName = Application.GetSaveAsFilename(filefilter:=FF, _
                            FilterIndex:=2, Title:="名前の変更保存")
        If BkName = "False" Then
            Exit Sub
        Else
            If nomalmacro(BkName) = "xlsm" Then
                ActiveWorkbook.SaveAs BkName, xlOpenXMLWorkbookMacroEnabled
            Else
                ActiveWorkbook.SaveAs BkName
            End If
        End If
End Sub

Function nomalmacro(N As String) As Variant
    nomalmacro = Right(N, 4)
End Function

Sub ブックの存在確認9()
    Dim FolPath, FoFleName As Variant
    Dim BkName As Variant
        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show = 0 Then
                MsgBox "キャンセルされました。"
                Exit Sub
            End If
            FolPath = .SelectedItems(1)
        End With
    Dim Fso As Object
    Dim FsoF As Object
    Dim wb, wbf As Object
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set FsoF = Fso.getfolder(FolPath)
        For Each wb In Workbooks
            If wb.Path = FolPath Then
                wb.Close False
            End If
        Next
        For Each wbf In FsoF.Files
            Application.DisplayAlerts = False
            Kill wbf.Path
            Application.DisplayAlerts = True
        Next
        Set Fso = Nothing
        Set FsoF = Nothing
End Sub