エクセルマクロVBA サンプルコード辞書
トップページ（目次）426.今のアクティブファイルのフォルダ名のみを取得する
＜実行前後＞
→
Sub 今のアクティブファイルのフォルダ名のみを取得する()
フォルダ名 = Dir(ActiveWorkbook.Path, vbDirectory)
MsgBox フォルダ名
End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」
Sub 今のアクティブファイルのフォルダ名のみを取得する()
フォルダ名 = Dir(ActiveWorkbook.Path, vbDirectory)
MsgBox フォルダ名
End Sub 'テスト時のフルパスは「C:\test\テスト.xlsm」