excel - VBA 03 - アプリケーション パス - 親フォルダーに移動する

Question

アプリケーション: エクセル

Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)

ワークブック パスから少なくとも 2 つのフォルダーに戻る必要があります。

アプリケーションが複数回移動されるため、「C:/Folder1」のようなパスは使用できません。

Answer 1

このような：

Function getParentFolder2(ByVal strFolder0)
  Dim strFolder
  strFolder = Left(strFolder0, InStrRev(strFolder0, "\") - 1)
  getParentFolder2 = Left(strFolder, InStrRev(strFolder, "\") - 1)
End Function


Dim strFolder
strFolder = getParentFolder2(ThisWorkbook.Path)

ここで \subdir パターンを 2 回カットします...