Excel VBA質問箱 IV

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

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


34679 / 76734 ←次へ | 前へ→

【47261】Re:フォルダを閉じる
発言  ぱっせんじゃー  - 07/3/6(火) 19:47 -

引用なし
パスワード
   ブックを閉じる前に処理します。

Sub test()
Dim IE As Object
Dim strPath As String
strPath = ThisWorkbook.Path
 For Each IE In CreateObject("Shell.Application").Windows
  If TypeName(IE.document) = "IShellFolderViewDual2" Then
   If IE.document.Folder.Items.Item.Path = strPath Then
     IE.Quit
   End If
  End If
 Next
End Sub
2 hits

【47260】フォルダを閉じる nana 07/3/6(火) 19:14 質問
【47261】Re:フォルダを閉じる ぱっせんじゃー 07/3/6(火) 19:47 発言
【47265】Re:フォルダを閉じる ichinose 07/3/6(火) 20:48 発言
【47314】ありがとうございました nana 07/3/7(水) 22:10 お礼

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