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」を返します。
「\」の位置を取得したら、次は「LEFT」関数を利用して、親ディレクトリまでのパスを取得します。
VBAのIE制御についてのQ&A掲示板↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。
ExcelのVBA初心者入門↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。
目次
IE制御の準備
HTMLエレメント基本操作
HTMLエレメント実践操作
IE操作に便利なツール
こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。
IEのメソッド・プロパティ
こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。
IE操作のVBA関数
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。
IE操作のステートメント
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。
IE制御のVBAコード
こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。