Office中国论坛/Access中国论坛

标题: 双击字段，打开指定路径压缩档文件 [打印本页]

作者: lxg315 时间: 2019-11-13 16:07
标题: 双击字段，打开指定路径压缩档文件
大家好：

子窗体筛选出符合条件的物料，双击子窗体里的“物料编号”，我希望打开放在公共盘对应的图纸，点击的料号格式为：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 时间: 2019-11-14 02:10
这里当然不能这样写了。如果你想用通配符“*”，应该用like，但问题在于FollowHyperlink是不认通配符的。所以前面你必须要用fso（FileSystemObject）或者其它方式去遍历文件，把这个文件夹找到，然后才能用FollowHyperlink。代码如下供参考：

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

复制代码

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

作者: lxg315 时间: 2019-11-14 07:58

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

谢谢R大指导，感谢！

作者: lxg315 时间: 2019-11-14 16:15

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

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

，多谢

作者: roych 时间: 2019-11-15 20:51

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

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

作者: lxg315 时间: 2019-11-16 08:35

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 时间: 2019-11-16 10:47
我已经调通了，多谢R大！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)