[已解决]根据条件超连接到指定目录下的工作表

yj2009_01

Private Sub CommandButton1_Click()
   Dim f$, th$
    th = ThisWorkbook.Path & "\" & [c8].Value & "\"
    f = Dir(th & [c6].Value & "*.xls*")
    If Len(f) Then
        Workbooks.Open (th & f)
    Else
        MsgBox "文件不存在！"
    End If
End Sub
此代码是根据表C6文件夹名称，C8工作表名称超连接到指定目录下的指定工作表。
我想设个：当表一B5＝表二C5时才超连接到指定目录下的工作表，不等时提示“与表二不符”。
请各位帮忙，谢谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-12 11:52

我猜的

1. Private Sub CommandButton1_Click()
   
2.   Dim f$, th$
   
3.   If Sheets(1).[b5].Value = Sheets(2).[c5].Value Then
   
4.     th = ThisWorkbook.Path & "" & [c8].Value & ""
   
5.     f = Dir(th & [c6].Value & "*.xls*")
   
6.     If Len(f) Then
   
7.       Workbooks.Open (th & f)
   
8.     Else
   
9.       MsgBox "文件不存在！"
   
10.     End If
    
11.   Else
    
12.     MsgBox "与表二不符"
    
13.   End If
    
14. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

我猜的

1. Private Sub CommandButton1_Click()
   
2.   Dim f$, th$
   
3.   If Sheets(1).[b5].Value = Sheets(2).[c5].Value Then
   
4.     th = ThisWorkbook.Path & "" & [c8].Value & ""
   
5.     f = Dir(th & [c6].Value & "*.xls*")
   
6.     If Len(f) Then
   
7.       Workbooks.Open (th & f)
   
8.     Else
   
9.       MsgBox "文件不存在！"
   
10.     End If
    
11.   Else
    
12.     MsgBox "与表二不符"
    
13.   End If
    
14. End Sub

复制代码