Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30529 / 76733 ←次へ | 前へ→

【51469】Re:フォルダを閉じる
回答  Blue  - 07/9/20(木) 9:56 -

引用なし
パスワード
   Explorerであれば、
WindowsプロパティからDocumentプロパティの値をとって指定のフォルダかどうかを
判定したほうがよいでしょう。

Dim ws As Object
Dim cpath As String

For Each ws In CreateObject("Shell.Application").Windows
  If InStr(TypeName(ws.Document), "ShellFolder") > 1 Then
    cpath = ws.Document.Folder.Self.Path
    If Right$(cpath, 1) = "\" Then
      cpath = Left(cpath, Len(cpath) - 1)
    End If
    If ThisWorkbook.Path = cpath Then
      ws.Quit
      Exit For
    End If
  End If
Next

0 hits

【51468】フォルダを閉じる acch 07/9/20(木) 9:19 質問
【51469】Re:フォルダを閉じる Blue 07/9/20(木) 9:56 回答
【51471】Re:フォルダを閉じる acch 07/9/20(木) 11:59 お礼

30529 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free