フルパスから親パスを取得 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBAで指定したフォルダのその一つ手前の親フォルダ名を取得します。

Excelシート画面

「親パスの取得」ボタンがクリックされると下記の流れで実行されます。

1) A6にこのエクセルファイルがあるフォルダを表示
2) 親パス取得プロシージャを実行。「¥」を検索し取得します。
3) A7に結果表示

パス名取得シート

スポンサーリンク



Excel VBA実行コード

Option Explicit

Public Function ExGetParentPath(sPath As String) As String
    Dim str As String
    Dim n1 As Integer
    Dim n2 As Integer
    
    n2 = 0
    Do
        n2 = n2 + 1
        n1 = InStr(n2, sPath, "\")
        If n1 <> 0 Then n2 = n1
    Loop While n1 <> 0
    ExGetParentPath = Left(sPath, n2 - 1)
End Function

Private Sub CommandButton1_Click()
    
    Range("A6") = ThisWorkbook.Path
    Range("A7") = ExGetParentPath(ThisWorkbook.Path)
   
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved