选中指定文件夹中的指定文件 [已解决]

opiona

想用VBA直接选中文件夹的指定文件, 不需要打开

打开文件夹已经实现: BL= Shell("Explorer.exe " & Path, vbNormalFocus)
但是如何在此文件夹中选中指定文件呢?

注意: 不是在Application.FileDialog(fileDialogType)对话框内选中
         是直接打开文件夹,并选中

最后的效果类似:

tanglf188

    filePath = "D:\123\123.xlsx"
    Shell "explorer.exe /select," & filePath, vbNormalFocus

opiona

tanglf188 发表于 2024-1-26 16:54
filePath = "D:\123\123.xlsx"
    Shell "explorer.exe /select," & filePath, vbNormalFocus

完全可用,十分感谢

个别特殊字符 如: =     L-22359NATG-70-D4=37.xlsx
可能导致定位失败


解决方法:
        Rem 定位文件:  解决特殊字符 如: =  导致失败   可以加双引号: 前1对,后1对
         LonID = Shell("explorer.exe /select,""" & filePath & "", vbNormalFocus)

tanglf188

opiona 发表于 2024-1-26 17:20
完全可用,十分感谢

个别特殊字符 如: =     L-22359NATG-70-D4=37.xlsx

那你用代码先判断下，有特殊字符的先改名，定位好了再该回去

jz_l

sj15627581616

补充 双引号即可

sj15627581616

opiona 发表于 2024-1-26 17:20
完全可用,十分感谢

个别特殊字符 如: =     L-22359NATG-70-D4=37.xlsx

路径作为参数传递时，两边加上双引号即可

perfect131

opiona 发表于 2024-1-26 17:20
完全可用,十分感谢

个别特殊字符 如: =     L-22359NATG-70-D4=37.xlsx

缺双引号 ，并不是 特殊字符等问题
11 楼
https://club.excelhome.net/forum ... 678&pid=4398207

perfect131

这种特殊字符 的也能打开，这里的空格 是 \xa0

1. HB - Roblox Open Order - 9.27.2022 ok.xlsx

复制代码

https://club.excelhome.net/thread-1642373-1-1.html?_dsign=318c9c17