打开最大化的资源管理器并突出显示来自 Access VBA 的文件
Open Explorer Maximized with Focus and Highlight File from Access VBA
我正在尝试打开 Windows 资源管理器并突出显示一个文件。
我正在使用:
Private Sub cmdLoadStl_Click()
Dim shellCmd As String
shellCmd = "explorer.exe /select, """ & Me.txtPath & """,vbMaximizedFocus"
Debug.Print shellCmd
Shell (shellCmd)
End Sub
除 window 打开最小化外,这按预期工作。
我已经在几台 Win7 机器 运行ning Access 2016 和两台 Win10 机器上试过了,一台 运行ning Access 2013,另一台 运行ning Access 2016。
有没有办法让window打开最大化?
编辑:更多信息 - 如果我将 debug.print 在我的代码中生成的命令粘贴到命令提示符并 运行 它,资源管理器 window 打开最大化,文件突出显示,因为它应该。
从 vba 生成的命令如下所示。
explorer.exe /select, "C:\Users\user\Desktop\filename.txt",vbMaximized
谢谢。
这样试试:
shellCmd = "explorer.exe /select, """ & """,vbMaximizedFocus
shell shellcmd,vbMaximizedFocus
shell
的第二种(可选)算法是重点。 vbMaximizedFocus
最大化打开:
我正在尝试打开 Windows 资源管理器并突出显示一个文件。
我正在使用:
Private Sub cmdLoadStl_Click()
Dim shellCmd As String
shellCmd = "explorer.exe /select, """ & Me.txtPath & """,vbMaximizedFocus"
Debug.Print shellCmd
Shell (shellCmd)
End Sub
除 window 打开最小化外,这按预期工作。
我已经在几台 Win7 机器 运行ning Access 2016 和两台 Win10 机器上试过了,一台 运行ning Access 2013,另一台 运行ning Access 2016。
有没有办法让window打开最大化?
编辑:更多信息 - 如果我将 debug.print 在我的代码中生成的命令粘贴到命令提示符并 运行 它,资源管理器 window 打开最大化,文件突出显示,因为它应该。
从 vba 生成的命令如下所示。
explorer.exe /select, "C:\Users\user\Desktop\filename.txt",vbMaximized
谢谢。
这样试试:
shellCmd = "explorer.exe /select, """ & """,vbMaximizedFocus
shell shellcmd,vbMaximizedFocus
shell
的第二种(可选)算法是重点。 vbMaximizedFocus
最大化打开: