寻找并自动打开指定的.xls文件,欢迎PK哈

740688321

Vba 干这个事情确实不怎么方便，不知没有更好的办法？

1. '''寻找“带式输送机 选型表.xls”是否打开
   
2. Sub MyOpen()
   
3.     Dim openW
   
4.     Dim FN As String, Fil
   
5.     ''1 查看"带式输送机 选型表.xls"打开否
   
6.     For Each X In Application.Workbooks
   
7.         If X.Name = "带式输送机 选型表.xls" Then openW = True
   
8.     Next
   
9.     ''2 如是在当前目录下找到，自动打开
   
10.     If Not openW Then
    
11.         FN = ThisWorkbook.Path & "\带式输送机 选型表.xls"
    
12.         a = Dir(FN)
    
13.         If Len(Dir(FN)) <> 0 Then
    
14.            Set Fil = Workbooks.Open(FN)
    
15.         End If
    
16.          ''3 没的自动打开，则寻找
    
17.         If IsEmpty(Fil) Then
    
18.             Fil = Application.GetOpenFilename("Excel 文件 (*.xls*),*.xls*")
    
19.             If Fil <> False Then Set Fil = Workbooks.Open(Fil)
    
20.         End If
    
21.         '''4 成功打开，则。。。
    
22.         If Fil <> False Then Do
    
23.     End If
    
24. End Sub
    
25. 
    
26. Sub MyDo()
    
27.     MsgBox ("""带式输送机 选型表""已经打开,可以做事了")
    
28. End Sub
    

复制代码