433(2): デフォルトの名無しさん [sage] 2025/07/18(金) 20:55:57.57 ID:kfpMJi4P(3/3) AAS
わかんなきゃいいよw　カリカリすんなよ
フォルダ名を取得する記事見付けた　検索文字で絞る事もできる　*とか?とかも要らん
外部ﾘﾝｸ[html]:tmkr7788.livedoor.blog
で、一番上のフォルダ指定するのが手入力っぽいから、それも自動取得するなら

Sub Sample()
Dim FPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\ほにゃらら"
.Title = "フォルダを選択してください"
If .Show = -1 Then
FPath = .SelectedItems(1)
End If
End With
Cells(3,3) = FPath
End Sub

これを別ボタンに貼り付ければ、ディレクトリ探すのもマウスオペだけで済む　お好みだけど
　※　ほにゃらら部分は、デフォルトで指定しときたいフォルダ名に