カレントディレクトリの一つ上の階層フォルダ内のファイルパスを取得する方法

Question

前提・実現したいこと

実現したいのは、
タイトルに記載しているとおり、カレントディレクトリの一つ上の階層フォルダのファイルパスを取得する方法です。

該当のソースコード

Sub test()
msgbox Curdir
End Sub

sub test1()
Dim currentPath as string
currentPath = ThisWorkbook.Path
Msgbox currentPath
End Sub

上記では、単純にカレントディレクトリを取得する方法をMsgboxで表示させています。
このディレクトリの一つ上の階層フォルダ内の、
例えば「test.xlsx」ファイルのパスを取得する方法を知りたいです

初歩的な質問ですみませんが、宜しくお願い致します。

Comments

[BeatStar]

test.xlsxはこのVBAがあるファイルでしょうか?

[t_obara]

https://dobon.net/vb/dotnet/file/pathcanonicalize.html
このあたりを参考にされると良いかもしれません。

[torisan]

https://www.sejuku.net/blog/31263
文字列操作レベルなら InStrRev もお勧めです。

[iT___7]

ありがとうございます。

文字列操作レベルでしたので、
InStrRevを使用しました。
'''VBA
sub sample1()
Dim stCurrentPath As String, stMasterCompoPath As String
stCurrentPath = ThisWorkbook.Path
stMasterCompoPath = Left(stCurrentPath, InStrRev(stCurrentPath, "\") - 1) & "\test.xlsx"
MsgBox stMasterCompoPath
end Sub
'''

こちらのコードで、
現在のカレントディレクトリフォルダパスの一つ上の階層フォルダ内の「test.xlsx」は取得できました。

やりたいことは、
一つ下の階層のExcelファイル「test2.xlsx」の「sheet1」からCurrentRegionをCopyし、
一つ上の階層のExcelファイル「test1.xlsx」の「sheet1」へ値のみ”A1”セルから貼り付けるマクロです。

そのために、一つ上の階層のファイルパスの取得をご質問しましたが、
絶対パスでは、ブックに値をPasteってできないでしょうか。

できなければ違う方法を教えてください。続きを読む ∨

[iT___7]

https://teratail.com/questions/17489

こちらに全く同じ質問がありました。
こちらを参考にいたします。

Answer 1

案１：文字列操作する（末尾方向から \ を探して先頭からそこまで取る）
案２：ファイルシステムオブジェクトを使う

Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(CurDir).ParentFolder
MsgBox folder.Drive & "\" & folder.Name

Answer 2

目的がtest.xlsxへの正式なパス名を表示したいとかであるなら、他の回答にあるように、カレントパスから後ろの\以降を削除すればよいです。

ブックとしてオープンしたいからという目的であれば、カレントパスに..を付加すればよいかと思います。

Set bk = Workbooks.Open(currentPath & "..\test.xlsx")