【Excel VBA】ブックの保存場所・ファイルパスを取得する（FullName/Path）

Public Sub outputBookInfo()

    ' A1セルに、このブックの保存場所を出力する
    Range("A1").Value = ThisWorkbook.Path

    ' B1セルに、アクティブブックのファイルパスを出力する
    Range("B1").Value = ActiveWorkbook.FullName
End Sub

Public Sub outputBookInfoForAllBook()
    Dim loopCnt As Integer
    Dim wb As Workbook

    loopCnt = 1
    For Each wb In Workbooks

        ' 1列目に、このブックの保存場所を出力する
        Cells(loopCnt, 1).Value = wb.Path
    
        ' 1列目に、アクティブブックのファイルパスを出力する
        Cells(loopCnt, 2).Value = wb.FullName

        ' ループカウンタをインクリメント
        loopCnt = loopCnt + 1
    Next wb
End Sub

Public Sub checkNewBook()

    If ThisWorkbook.Path = "" Then

        ' このブックの保存場所がブランクの場合

        MsgBox "新規ブックです"
    End If
End Sub

Public Sub mainCheckNewBook()

    ' このブックが新規ブックであるかを判定
    If subCheckNewBook(ThisWorkbook) Then

        MsgBox "新規ブックです。"
    End If
End Sub

Private Function subCheckNewBook(ByVal wb As Workbook) As Boolean

    ' 初期値をFalseに設定
    subCheckNewBook = False

    If wb.Path = "" Then

        ' ファイルの保存場所がブランクの場合

        ' Trueを返却
        subCheckNewBook = True
    End If
End Function