If e.Col.name = "CL" Then
Select Case left(S,2)
Case "AR"
For Each files As String In FileSys.GetDirectories("Z:\GSS Shanghai\\Quality\Checkreports")
For Each File As String In FileSys.GetFiles(files )
Dim name As String = FileSys.GetName(file)
If name Like s & "_a*" AndAlso name Like "*.xlsx" Then
Dim Proc As New Process
Proc.File = file
Proc.Start()
Return
End If
Next
For Each files2 As String In FileSys.GetDirectories(files )
For Each File2 As String In FileSys.GetFiles(files2 )
Dim name2 As String = FileSys.GetName(file2)
If name2 Like s & "_a*" AndAlso name2 Like "*.xlsx" Then
Dim Proc As New Process
Proc.File = file2
Proc.Start()
Return
End If
Next
Next
Next
msgbox ("没有找到相关Checklist模板!")
End Select
End If
加好友 
发短信
Post By：2021/6/10 8:59:00 [显示全部帖子]
