VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

[275 デフォルトの名無しさん 2017/02/26(日) 16:51:45.39 ID:nt1S72uw]

>>274
ん? そこは分ってるとおもたよ
フォルダ選択部分は Forループの外だよ
↓ここねw
With Application.FileDialog(msoFileDialogFolderPicker)
　If .Show = False Then Exit Sub
　t = .SelectedItems(1) & "\"
End With