「ParentDirNameサブルーチン」の詳しい説明は以下よりご確認ください。
Function ParentDirName() As String

 With ThisWorkbook
  ParentDirName = Left(.Path, InStrRev(.Path, "\") - 1)
 End With

End Function

※ドラッグ(スワイプ)すると全体を確認できます。

With ThisWorkbook
(省略)
End With

※ドラッグ(スワイプ)すると全体を確認できます。

こちらでは、「Withステートメント」を利用してコードの省略化を行っています。同じオブジェクトを何度も記述する場合に非常に便利ですので、是非活用しましょう。

ParentDirName = Left(.Path, InStrRev(.Path, "\") - 1)

※ドラッグ(スワイプ)すると全体を確認できます。

こちらでは1行で、親ディレクトリパスの取得を行っています。
「InStrRev」関数は、指定した文字列の中から指定したキーワードを後方から検索して見つかった位置を返します。
今回は、カレントディレクトリの文字列の中から「\」キーワードを後方から検索して位置を取得しています。

例えば以下がカレントディレクトのパス名だった場合は、「InStrRev(.Path, "\")」では、「24」を返します。

C:\Users\vba-ie\Desktop\sample

「\」の位置を取得したら、次は「LEFT」関数を利用して、親ディレクトリまでのパスを取得します。

VBAのIE制御についてのQ&A掲示板

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

ExcelのVBA初心者入門

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次

IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

IEのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作のVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

IE操作のステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。