返回列表 上一主題 發帖

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

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-30 15:17 | 只看該作者

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

請問如何去判斷指定檔案是否已開啟
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-30 15:26 | 只看該作者
回復 1# enoch

善加運用論壇 右上方  "搜索"  功能

http://forum.twbts.com/viewthrea ... E%D7%2B%B6%7D%B1%D2[/url]

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
3#
發表於 2012-3-30 16:27 | 只看該作者
若果想用IF 條件可以做到嗎?
當檔案book1未開啟,  Windows("book1.xls").Activate 出現錯誤 作為判斷條件
應該點寫呢, 請指教

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-3-30 16:51 | 只看該作者
回復 3# enoch
  1. Sub ZZ()
  2. For Each WB In Workbooks
  3. If WB.Name = "Book1" Then
  4.   MsgBox "已開啟"        '已開啟要作什麼
  5.   temp = 1
  6.   Exit For
  7. End If
  8. Next
  9. If temp <> 1 Then
  10.    MsgBox "未開啟"       '未開啟要作什麼
  11. End If
  12. End Sub
複製代碼

TOP

alexliou

帖子
51 
主題
0 
精華
0 
積分
81 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-3-9 
最後登錄
2013-1-9 
5#
發表於 2012-3-30 17:01 | 只看該作者
本帖最後由 alexliou 於 2012-3-30 17:03 編輯

回復 1# enoch

Set wBook = Workbooks("book1.xls")
If wBook Is Nothing Then
      BookNotOpen = True
Else
     BookNotOpen = False
End If
Alex

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-3-30 17:04 | 只看該作者
另一解
  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

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題