エクセル VBA フォルダを閉じる

質問

いつもお世話になっております。
下記のプロシージャでフォルダを開いているのですが、このフォルダを閉じる場合はどのように記述すればよろしいのでしょうか？
よろしくお願いいたします。
Sub opn_fld()
Dim myFol As String, mymsg As Integer
Dim IE As Object
myFol = "C:\ABC\"
Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus
End Sub

回答No.1

cistronezk · ベストアンサー

Sub close_fld(myfol as string)
'指定したフォルダをアクティブにして、「ALT＋F4」を実行して閉じる。
AppActivate myfol, False
SendKeys "%{F4}", True
End Sub

＃注意！
myfolの値は、Explorerのタイトルにフルパスが表示される場合は、"C:\ABC"を、
Explorerのタイトルにフォルダ名だけが表示される場合は、"ABC"を渡します。

お礼

さっそくのご回答ありがとうございました。
また、注意書きも大変助かりました。"ABC"を指定しましたファルダは閉じました。またよろしくお願い申し上げます。