vba，试图更改打开的文件夹地址

Question

基本上我想打开一个 windows 资源管理器并在打开的 window 中导航。更改打开的 window 本身的路径。我想出了一种获取当前 window 路径的方法，尽管它对我帮助不大：

Set abc = CreateObject("Shell.Application")
for each cell in abc.windows - gives us all the opened windows
 if cell.name = "File Explorer" 'etc

以及如何打开 window:

Application.ThisWorkbook.FollowHyperlink Address:="D:\", NewWindow:=True

有更多方法可以做到这一点，shell中有一种方法：

Shell("explorer.exe " & "c:\", vbNormalFocus)

基本上我的整个问题是如何更改打开的 window 地址，我的意思是，我可以用 shell.application 找到它作为一个对象，我如何从这里继续？

另外，如何制作一个不可见的打开的资源管理器？提前联系。

Answer 1

控件是 WebBrowser 控件。

添加 Microsoft Internet 控件参考库。

对我来说，它是 Windows Explorer 而不是 File Explorer 所以我在我的代码中使用了它，但如果你的不同，就使用你的代码。

Sub test()
Dim abc As Object
Dim Cell As Variant

Set abc = CreateObject("Shell.Application")
For Each Cell In abc.Windows

    If Cell.Name = "Windows Explorer" Then
        Cell.Navigate "C:\" 'to go to different address
        cell.Visible = True 'to toggle between visible and not  
    End If

Next Cell


End Sub

vba，试图更改打开的文件夹地址

vba, trying to change an opened folder address

windows

shell

excel

explorer

vba