Ａ列に記載されているフォルダを閉じるには

下記のコードは指定されたフォルダを閉じるコードですが
Ａ列に記載されているフォルダのパスが
あり、そのフォルダを全て閉じるコード
わかる方おしえてくれませんでしょうか

下記のコードはだめでした
Dim w
For Each w In CreateObject("shell.application").Windows

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If w.LocationName = Cells(i, 1).Value.Title Then w.Quit

Next i
Next w

下記のコードは Set ff = shell.Namespace("パス名")のパス名を
指定すれば　とじますが、ひとつだけです。

Sub test()
Dim wn As Object
Dim shell As Object
Dim ff As Object
Set shell = CreateObject("shell.application")

Set ff = shell.Namespace("パス名")

For Each wn In shell.Windows
If wn.LocationName = ff.Title Then
wn.Quit
End If
Next

End Sub

No.2 ベストアンサー 回答者： 高木さんWIN 回答日時： 2024/01/03 13:55

No.1です。

もしかして
＞For Each wn In shell.Windows

＞Set ff = shell.Namespace(Cells(i, 1).Value)

逆だったかな？

Sub test_3()
Dim wn As Object
Dim shell As Object
Dim ff As Object
Dim i As Long

Set shell = CreateObject("shell.application")

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set ff = shell.Namespace(Cells(i, 1).Value)

For Each wn In shell.Windows

If wn.LocationName = ff.Title Then
wn.Quit
End If

Next
Next
End Sub

この回答へのお礼

どちらでもうごきました。
本当ありがとうございました。

お礼日時：2024/01/03 13:58

No.1 回答者： 高木さんWIN 回答日時： 2024/01/03 13:51

くっつけるだけかと。

Sub test_2()
Dim wn As Object
Dim shell As Object
Dim ff As Object
Dim i As Long

Set shell = CreateObject("shell.application")

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For Each wn In shell.Windows

Set ff = shell.Namespace(Cells(i, 1).Value)
If wn.LocationName = ff.Title Then
wn.Quit
End If

Next
Next
End Sub

多分です。
これは経験した事ありませんので。

この回答へのお礼

お礼日時：2024/01/03 13:55