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

又涨新知识了，谢谢。

菲凡制版 发表于 2025-5-14 17:30:12

怎么使用呢？？？

next 发表于 2025-5-14 18:47:57

代码中，\\mynas\YNAS\nexthy\ 客户唛头这个改成你存放客户文件的文件夹名称，    运行语句的时候，对话框，输入客户名称-cdr名称   若单独填写客户名称，则打开文件夹， 填全，则打开cdr文件。模糊匹配的话，就只打开第一个匹配上的cdr文件

美亿添888 发表于 2025-5-17 11:24:52

买了，但是运行出错。具体怎么使用呢？》
购买的代码放在哪个位置的？

next 发表于 2025-5-17 11:32:12

什么报错，一般，放globlmacros 下，运行即可，还没有碰到这样的问题。
页: [1]
查看完整版本: 快捷 打开目标文件夹