next 发表于 2025-3-18 11:24:38

快捷 打开目标文件夹

Sub 打开客户文件夹()
    Dim sPath As String
    Dim sName As String
    Dim sName1 As String
    Dim oShell As Object
    sPath = "\\mynas\YNAS\nexthy\客户唛头"    ' 标红的内容换成自己存放客户文件的路径名称
    j = InputBox("输入客户文件夹，以首位大写字母缩写,若打开目标文件则中间需以“-”隔开，后面加上模糊文件名称")
    If j <> "" Then
    If InStr(j, "-") = 0 Then
    sName = "\" & Dir(sPath & "\" & j & "*", vbDirectory)
    Else

    **** 本内容需购买 ****




WangJun 发表于 2025-3-21 14:59:11

下来玩玩   感觉多少还要有点用处

alexcc 发表于 2025-3-25 08:35:32

确实很快速打开文件夹，方便。

linro 发表于 2025-3-25 08:38:26

又涨新知识了，谢谢。
页: [1]
查看完整版本: 快捷 打开目标文件夹