Excel中VBA的Name和Shell相关问题（高手进，有加分）

问题1和2中判断文件夹和程序是否打开和运行, 解决思路是调用windows API的findwindow 函数去查找是否有符合条件的窗口,如果有则文件夹是打开的或者程序是运行的.代码如下:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '声明API findwindow函数

Sub aa()
Name = "downloads" '把文件夹窗口名称或者程序窗口名称赋值给name
i = FindWindow(vbNullString, Name)
If i <> 0 Then MsgBox Name & "是打开的!"
End Sub

关闭目录的方法
方法1: 关闭指定文件夹
Sub fig()
Set WS = CreateObject("WSCRIPT.SHELL")
WS.AppActivate "本地磁盘 (C:)"
WS.SendKeys "%fc"
End Sub
如果不能确定文件夹是否打开用
方法2:关闭所有的文件夹
Sub fig1()
Set x = CreateObject("wscript.shell")
x.Run "taskkill /F /IM explorer.exe", 0, True
x.Run "explorer.exe", 1, False
End Sub追问

你好，第1，2个问题已经解决了，故先追加30分
但第3个问题没有解决：
我测试了下方法1，但无法把焦点移到相应的窗口上去，窗口只是作为焦点闪了下，又回到Thisworkbook上了，那怎样才能让窗口持续拥有焦点呢？
另外，有打开目录的办法么
多谢了

追答

方法1.我测试过是可以正确关闭指定的窗口的,但不能用F8单步执行.
让窗口持续拥有焦点,
删除WS.SendKeys "%fc" 这句
且不要在VBA编辑器中执行方法1 的代码,
在工作表窗口按ALT+F8选中该宏执行是会持续拥有焦点的.
打开文件夹
方法1
ActiveWorkbook.FollowHyperlink Address:=ThisWorkbook.Path, NewWindow:=True
方法2
Shell "EXPLORER.EXE " & ThisWorkbook.Path, vbNormalFocus

追问

多谢了，虽然关闭目录的方法1经测试还是不行（可能我用的是Excel2000（单位的电脑）的关系吧），但发现可以利用 FindWindow　先判断目录是否打开，如果是打开的，然后用　Shell　命令 把焦点移到该目录上，再延时后用 sendkeys 关闭目录的办法，总算搞定了．（幸亏用shell打开目录时，如果目录存在，是不会另外再打开一个的，呵呵）
另加50分，非常感谢　

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3fxyvyvxy.html