[VBA程序]：在VBA下看一个文件是否打开，如没打开则打开，

fjw_ok

在VBA下看一个文件是否打开，如没打开则打开，

2. 
   
3. Private Sub CommandButton1_Click()
   
4. a.Filter = "*.dwg|*.dwg"
   
5. a.ShowOpen
   
6. Open "qqqq.txt" For Output As 1
   
7. 
   
8. file = a.FileName
   
9. 
   
10. Dim aa As AcadDocument
    
11. 
    
12. For i = 0 To Documents.Count - 1
    
13. 
    
14. ddd = ThisDrawing.Application.Documents(i).FullName
    
15. 
    
16. If ddd = file Then
    
17. MsgBox "已打开”"
    
18. 
    
19. Else
    
20. Set aa = ThisDrawing.Application.Documents.Open(file)
    
21. Write #1, ddd, file, Files
    
22. End If
    
23. Next
    
24. Close #1
    
25. End Sub
    

<br /> Private Sub CommandButton1_Click()<br /> a.Filter = "*.dwg|*.dwg"<br /> a.ShowOpen<br /> Open "qqqq.txt" For Output As 1<br /> <br /> file = a.FileName<br /> <br /> Dim aa As AcadDocument<br /> <br /> For i = 0 To Documents.Count - 1<br /> <br /> ddd = ThisDrawing.Application.Documents(i).FullName<br /> <br /> If ddd = file Then<br /> MsgBox "已打开”"<br /> <br /> Else<br /> Set aa = ThisDrawing.Application.Documents.Open(file)<br /> Write #1, ddd, file, Files<br /> End If<br /> Next<br /> Close #1<br /> End Sub<br />