[已解決]請教如何判別檔案是否開啟?

loyyee

請問如何在"BOOK1"檔案巨集執行時，判別此台電腦中"BOOK2"檔案是否也開啟中，
"BOOK2"檔案開啟時→自動關閉"BOOK2"檔案不存檔。
"BOOK2"檔案未開啟時→執行"BOOK1"檔案下一段巨集。
Book1.rar (5.28 KB)

下載次數: 7

2011-12-10 20:34

wang

Sub xxx()
    Dim myFNo      As Long
    Dim myFileName As String
    Dim myErr      As Long
    myFileName = "c:\BOOK2.xls"
    If myFileName = "False" Then Exit Sub
    myFNo = FreeFile
    On Error Resume Next
    Open myFileName For Binary Access Write Lock Write As #myFNo
    Close #myFNo
    myErr = Err.Number
    On Error GoTo 0
    If myErr > 0 Then
       Workbooks("BOOK2.xls").Close
    End If
    '...
    '...
End Sub

loyyee

回復 2# wang

好像不行用，可能我沒說清楚，我是要把視窗中"BOOK2"檔案關閉，
留下"BOOK1"檔案就好。

Hsieh

回復 3# loyyee

1. Sub nn()
   
2. Dim w As Window
   
3. For Each w In Windows
   
4. If w.Caption = "Book2.xls" Then w.Close 0  '如果找到視窗標題就不儲存關閉
   
5. Next
   
6. End Sub

複製代碼

loyyee

回復 4# Hsieh

可以用了，感謝Hsieh、wang指導。