【アプリ版】サポートOS変更のお知らせ

いつも大変お世話になっております。
下記のコードを実行して
現在ひらいているフォルダを閉じる
コードをおしえてくれませんでしょうか
なかなか検索でみつかりませんです。

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

gooドクター

A 回答 (1件)

SendKeys "^(W)"

    • good
    • 0
この回答へのお礼

ありがとうございました。
こちらは
SendKeys "^(W)"
上手く動作いたしませんでした。が
検索で見つかりました。
ありがとうございました。
CreateObject("shell.application")

お礼日時:2019/11/18 22:20

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング