如何使用VBA打开和关闭文件夹？

琉璃舟

Sub ABC（）
Filename = Shell("Explorer.exe " & HyperlinkAddress) '打开文件夹
Call Shell("TaskKill /F /PID " & CStr(Filename)) '关闭文件夹
End Sub
想用VBA打开和关闭文件夹

两个语句是网上搜到的
打开时没有问题，关闭这个没有效果，请问如何用VBA关闭文件夹窗口呢？

琉璃舟

自己顶一下
如果用下面这种方法
Sub 关闭文件夹()
Set x = CreateObject("wscript.shell")
x.Run "taskkill /F /IM explorer.exe", 0, 1
x.Run "c:\Windows\explorer.exe", 0, 0
End Sub

会关闭所有的文件夹，相当于重启资源管理器？我只想关闭指定的打开文件夹

iu950

不能关闭的原因：shell的返回值Filename 并不是 打开文件夹的explorer.exe进程ID

琉璃舟

iu950 发表于 2023-2-3 14:26
不能关闭的原因：shell的返回值Filename 并不是 打开文件夹的explorer.exe进程ID

那请问，应该如何关闭呢？

iu950

琉璃舟 发表于 2023-2-3 14:31
那请问，应该如何关闭呢？

这个我我也不会，坐等答案

ivccav

下帖54楼自取：打开、关闭任意文件和文件夹：

https://club.excelhome.net/thread-1391369-6-1.html



vba打开、关闭任何文件与文件夹.zip (22.79 KB, 下载次数: 45)

2023-2-3 23:32 上传

点击文件名下载附件

琉璃舟

ivccav 发表于 2023-2-3 23:32
下帖54楼自取：打开、关闭任意文件和文件夹：

https://club.excelhome.net/thread-1391369-6-1.ht ...

感谢大佬的两次解答，虽然还是看不懂，但是我修改一下应该能写到我的程序里，谢谢！

琉璃舟

ivccav 发表于 2023-2-3 23:32
下帖54楼自取：打开、关闭任意文件和文件夹：

https://club.excelhome.net/thread-1391369-6-1.ht ...

关于您给我发的这个程序，Dim lngRes As Long这句，我这里需要修改为Dim lngRes As Longptr才能使用

ivccav

琉璃舟 发表于 2023-2-4 10:03
关于您给我发的这个程序，Dim lngRes As Long这句，我这里需要修改为Dim lngRes As Longptr才能使用

能用就行了。我应该改为longptr类型了的，不记得了，也许忘记保存。

aecn

ivccav 发表于 2023-2-4 11:09
能用就行了。我应该改为longptr类型了的，不记得了，也许忘记保存。

老师，能够判断一个文件夹是否已打开吗？