hiroton
2022/12/19 (月) 14:20:00
ed9bb@f966d
Dim strPath As String
strPath = フォルダパス
strPath = strPath & Mid(Dir(strPath & "*", vbDirectory), 6)
Application.FollowHyperlink strPath
通報 ...