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