標題: [已解決]請教如何判別檔案是否開啟? [打印本頁]

---

作者: loyyee    時間: 2011-12-10 20:35     標題: [已解決]請教如何判別檔案是否開啟?

本帖最後由 loyyee 於 2011-12-14 00:06 編輯

請問如何在"BOOK1"檔案巨集執行時，判別此台電腦中"BOOK2"檔案是否也開啟中，
"BOOK2"檔案開啟時→自動關閉"BOOK2"檔案不存檔。
"BOOK2"檔案未開啟時→執行"BOOK1"檔案下一段巨集。
[attach]8773[/attach]

---

作者: wang    時間: 2011-12-13 21:21

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    時間: 2011-12-13 22:10

回復 2# wang

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

---

作者: Hsieh    時間: 2011-12-13 23:43

回復 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    時間: 2011-12-14 00:05

回復 4# Hsieh

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)