双击字段，打开指定路径压缩档文件

lxg315

大家好：

子窗体筛选出符合条件的物料，双击子窗体里的“物料编号”，我希望打开放在公共盘对应的图纸，点击的料号格式为：AA123-456-A1,对应的图档为AA123-456-00 (Rev 1).Rar这个压缩档案。我只需要取出AA123-456-*就可以打开这个文档，以下的LEFT这里有问题，自己搞不定，麻烦大家帮忙看看改如何修改一下？多谢。

Private Sub 物料编号_DblClick(Cancel As Integer)
    Application.FollowHyperlink "\\192.168.88.88\工程部\物料资讯\图纸发行资讯\发行图纸" & "\" & Left([物料编号],10) & * .RAR", True
End Sub

roych

这里当然不能这样写了。如果你想用通配符“*”，应该用like，但问题在于FollowHyperlink是不认通配符的。所以前面你必须要用fso（FileSystemObject）或者其它方式去遍历文件，把这个文件夹找到，然后才能用FollowHyperlink。代码如下供参考：

1. Sub test()
   
2. '引用：Microsoft Scripting runtime
   
3.     Dim fso As New FileSystemObject
   
4.     Dim fd As Folder
   
5.     Dim fl As File
   
6.     Set fd = fso.GetFolder("\\192.168.88.88\工程部\物料资讯\图纸发行资讯\发行图纸")
   
7.     For Each fl In fd.Files
   
8.         If fl.Name Like "*" & <span style="background-color: rgb(255, 255, 255); color: rgb(51, 51, 51); font-family: &quot;Microsoft YaHei&quot;, Tahoma, SimSun, Verdana;">Left([物料编号],10)</span><span style="background-color: rgb(255, 255, 255); color: rgb(51, 51, 51); font-family: &quot;Microsoft YaHei&quot;, Tahoma, SimSun, Verdana;"> </span>& "*.Rar" Then

复制代码

以下修改为我本地的文件，大概没什么问题。

lxg315

roych 发表于 2019-11-14 02:10
这里当然不能这样写了。如果你想用通配符“*”，应该用like，但问题在于FollowHyperlink是不认通配符的。所 ...

谢谢R大指导，感谢！

lxg315

roych 发表于 2019-11-14 02:10
这里当然不能这样写了。如果你想用通配符“*”，应该用like，但问题在于FollowHyperlink是不认通配符的。所 ...

R大，可以用了，在本地的比较快，在公共盘的速度就比较慢，多谢

roych

lxg315 发表于 2019-11-14 16:15
R大，可以用了，在本地的比较快，在公共盘的速度就比较慢，多谢

遍历文件名，本身就是一件比较痛苦的事情。如果可以，最好还是给定文件名吧。

lxg315

roych 发表于 2019-11-15 20:51
遍历文件名，本身就是一件比较痛苦的事情。如果可以，最好还是给定文件名吧。

再请教一下R大，换个思路，我在打开以前就指定要打开的压缩档文件名是AA123-456-00(Rev 0).rar，只不过是动态适应所有料号："  Left([物料编号], 10) & " 00(Rev" & [版本] & " ) ".rar",这样就不用遍厉了吧？
是不是一句：Application.FollowHyperlink "\\192.168.88.88\工程部\物料资讯\图纸发行资讯\发行图纸" & "\" &  Left([物料编号], 10) & " 00(Rev" & [版本] & " ) ".rar", True 就行了？

lxg315

我已经调通了，多谢R大！