- 420 名前：デフォルトの名無しさん mailto:sage [2021/08/10(火) 21:44:06.51 ID:dMuyff760.net]
- やや冗長だけど、fsoは使って損は無いと思う。￥とｓｐｌｉｔは頭が疲れる
Sub foo()
Set fso = CreateObject("Scripting.FileSystemObject")
Set mybook = fso.getfile(ThisWorkbook.FullName)
Set mybook_parent = mybook.parentfolder
Header = ActiveWorkbook.Sheets(1).Range("A2").Value
Debug.Print Header & mybook_parent.Name
End Sub
