◆パスを取得する

  特別なフォルダや開いているブックのパスを取得できます。

Sub test1()
    Dim Current_path As String
    Dim DefaultFile_path As String
    Dim Excel_path As String
    Dim Startup_path As String
    Dim Templates_path As String
    Dim Library_path As String
    Dim UserLibrary_path As String
    Dim Workbook_path As String
    Dim Thisbook_path As String
    
    '現在のパス たとえば直前で メニューの 開くでファイルを開いたパス
    Current_path = CurDir
    
    'デフォルトパス
    'メニューの ツール -> オプション -> 全般タブで設定してあるパス
    DefaultFile_path = Application.DefaultFilePath
    
    'Excelがインストールされているフォルダへの絶対パス
    Excel_path = Application.Path
    
    'Excelの起動フォルダへの絶対パス
    Startup_path = Application.StartupPath
    
    'テンプレートが保存されているフォルダへの絶対パス
    Templates_path = Application.TemplatesPath
    
    'アドイン(Library)フォルダへの絶対パス
    Library_path = Application.LibraryPath
    
    '自作のアドイン(Library)フォルダへの絶対パス
    UserLibrary_path = Application.UserLibraryPath
    
    'アクティブウィンドウのブックのフォルダへの絶対パス
    Workbook_path = ActiveWorkbook.Path

    'アクティブウィンドウのブックのファイル名までの絶対パス
    Workbook_path = ActiveWorkbook.FullName

    '実行中のマクロが記述されているブックのフォルダへの絶対パス
    Thisbook_path = ThisWorkbook.Path

    '実行中のマクロが記述されているブックのファイル名までの絶対パス
    Thisbook_path = ThisWorkbook.FullName

End Sub