vba打开指定文件夹并窗口最大化

志65

tmplinshi

1. Shell "C:\WINDOWS\explorer.exe C:\Program Files", vbMaximizedFocus

复制代码

lss001

Sub 打开文件()
    Set Wsh = CreateObject("Shell.Application")
    WbPath = ThisWorkBook.Path '路径
    WbName = Range("A1").Value '名称
    '其中最后参数：0隐藏,1正常,2最小,3最大
    Wsh.ShellExecute WbName, "", WbPath, "", 3
End Sub
   

志65

tmplinshi 发表于 2022-12-7 12:29

shell "C:\WINDOWS\explorer.exe +路径", vbMaximizedFocus
是这样写吗？我刚刚测试我的文件夹，

Sub test()
Dim wb As Workbook
Dim ar As Range, sg As String

Set wb = ThisWorkbook
Set ar = Range("a1")
sg = wb.Path & "\" & ar.Value
Shell "C:\WINDOWS\explorer.exe " & sg, vbMaximizedFocus 'vbMaximizedFocusc 窗口最大化
Rem Shell sg, vbMaximizedFocus  这样写是出错的，要带上C:\WINDOWS\explorer.exe +路径才不会报错，为何要带上这串字符C:\WINDOWS\explorer.exe ，是要固定这样写的吗?
End Sub

tmplinshi

Shell 函数只能运行可执行程序，不能直接运行文档文件/文件夹路径/网址。

建议采用 3 楼的方法。