VBA Cats編
【4】BOOKが格納されているフォルダ名を取得
BOOKを任意の場所で使ってもらうには、どこに格納されいるかを取得する必要がる。
一旦BOOKのフルパス名称を取得してから末尾から\を検索して切出す方法もありますが、
調べてみるいろいろ有りました。
Debug.Print "BOOKのあるフォルダ名", Mid(ThisWorkbook.FullName, 1, InStrRev(ThisWorkbook.FullName, "\")) '末尾に\あり
Debug.Print "BOOKのあるフォルダ名", ThisWorkbook.Path '末尾に\なし
Debug.Print "カレントドライブは" & vbNewLine & Left(CurDir, 2)
Debug.Print "Excelのあるフォルダ名" & vbNewLine & Application.Path
Debug.Print "ファイルを開くときに Excel が使う既定のパス (カレント フォルダ名) " & vbNewLine & Application.DefaultFilePath
Debug.Print "ActiveBookのあるフォルダ名" & vbNewLine & ActiveWorkbook.Path
Debug.Print "ThisBookのファイル名は" & vbNewLine & ThisWorkbook.FullName
Debug.Print "XLStartフォルダ名" & vbNewLine & Application.Star