返回列表 上一主題 發帖

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

回復 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題