[[20100614222952]]　『フォルダを閉じる方法』（かいじゅんこ）　ページの最後に飛ぶ

『フォルダを閉じる方法』（かいじゅんこ）

 お世話になります。
 ネットで検索して下記のコードを使っています。
 デスクトップのＡフォルダにＢブックが保存されています。
 Ｂブックを開いた時にコマンドボタンが２つあるユーザーフォームが表示されます。
 コマンドボタン２を選ぶと「シートに対する処理」をした後、自動で5分後に閉じます。
 この時、ブックは閉じるのですが、ブックが保存されていたＡフォルダは開いたままです。
 Ｂブックが閉じる時このＡフォルダも閉じさせる事ってできますか？
 （閉じるタイミングはＡフォルダが先でもかまわないです）
 方法があればご教示お願い致します。

Private Sub CommandButton2_Click()

     Dim strtitle As String
     Dim wsh As Object
     Dim r As Integer

    Unload Me    
      'シートに対する処理実行

        Set wsh = CreateObject("wscript.shell")
        strtitle = "お知らせ"
        wsh.popup "5分後に自動終了が選択されました。", 1, strtitle, vbInformation
        Set wsh = Nothing

     Application.OnTime EarliestTime:=Now + TimeValue("00:05:00") _
, Procedure:="終了"

    End
End Sub

 Sub test()
    Dim wn As Object
    Dim shell As Object
    Dim ff As Object
    Set shell = CreateObject("shell.application")
    Set ff = shell.NameSpace(ThisWorkbook.Path)
    For Each wn In shell.Windows
        If wn.LocationName = ff.Title Then
           wn.Quit
        End If
    Next
 End Sub

 きちんと検証できないので作動しないかもしれませんが・・。

 上記コードが記述されているブックが存在するフォルダが表示されていれば、閉じる
 という仕様です。

 ichinose

ichinoseさんは

 先ほどテストしましたら、ちゃんと閉じました。
 これからはストレスが一個減ります。
 ありがとうございました。
（かいじゅんこ

コメント返信：

[ 一覧(最新更新順) ]

[[20100614222952]] 『フォルダを閉じる方法』（かいじゅんこ） ページの最後に飛ぶ

[[20100614222952]]　『フォルダを閉じる方法』（かいじゅんこ）　ページの最後に飛ぶ