返回列表 上一主題 發帖

如何判斷檔案是否已經開啟

另一解
  1. Option Explicit
  2. Sub Ex()
  3.     Dim w As Workbook
  4.     For Each w In Workbooks
  5.         If w.Name = "Book2.xls" Then MsgBox "Book2.xls 已開啟 "
  6.         '或是下式程式碼
  7.         'If w.FullName = "d:\test\Book2.xls" Then MsgBox ""d:\test\Book2.xls 已開啟 "
  8.     Next
  9. End Sub
複製代碼

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題