yangjie

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-8-31 00:31 | 只看該作者

偵測"1.xls"檔是否呈打開狀態?

請教各位大大:
個人在用VBA打開另外Excel檔如"1.xls"檔,若逢"1.xls"檔本來就已呈打開狀態時,就不太恰當。
請教各位先進若要偵測"1.xls"檔是否呈打開狀態?應如何運用VBA語法?

樓主熱帖

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

2^#

發表於 2012-8-31 02:09 | 只看該作者

bookname = "1.xls"
For Each wbs In Workbooks
If UCase(wbs.Name) = UCase(bookname) Then
MsgBox bookname & " is opened"
Exit For
End If
Next wbs

複製代碼

只懂這個，希望可以幫到你

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2012-8-31 19:46 | 只看該作者

回復 2# 小俠客

新開檔案 BOOK1 測試不出來
舊檔案 S.XLS 就可以測試出來
好像要存檔後才有效

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-8-31 22:20 | 只看該作者

本帖最後由 Hsieh 於 2012-8-31 22:32 編輯

回復 3# ML089

這個問題牽涉到開啟檔案是否是在同一個Application
如果已啟動一個全新的Excel然後開啟其他檔案
那麼同一個Application所開啟的檔案都能找得到
但是假如開啟了一些舊檔，然後按下程式集裡的Excel程式
在這個新的檔案內則無法搜尋到之前開啟的檔案名稱
必須是在已經開啟的程式中
以檔案/開新檔案才能夠搜尋所有已開啟檔案

FilesExists.rar (7.6 KB)

學海無涯_不恥下問

TOP

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

5^#

發表於 2012-8-31 23:30 | 只看該作者

回復 4# Hsieh

對不起，胡亂回答錯的答案，十分抱歉:dizzy:

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-8-31 23:52 | 只看該作者

回復 5# 小俠客

千萬別這麼說，討論區沒有真正對與錯
勇於發表才能獲得更多

學海無涯_不恥下問

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

7^#

發表於 2012-9-1 04:32 | 只看該作者

本帖最後由 yangjie 於 2012-9-1 04:33 編輯

回復 4# Hsieh
請教於板主先進
Dim Filt As String
Dim FilterIndex As Integer
Dim fileName As Variant
Dim Title As String
Filt = "Excel Files (*.xls),*.xls"
FilterIndex = 5
Title = "Select a File for Import"
fileName = Application.GetOpenFilename _
      (FileFilter:=Filt, _
      FilterIndex:=FilterIndex, _
      Title:=Title)
If fileName = False Then
      MsgBox "No file was selected."
      Exit Sub
End If
我只要得到fileName 的檔名(string)應如何下語法?(不含path)
謝謝

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

8^#

發表於 2012-9-1 04:49 | 只看該作者

回復 7# yangjie 主要

主要下一列要Open
Set wb = Workbooks.Open(fileName, True, False)
但常在已打開之下做重複打開
不支應如何處理

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

9^#

發表於 2012-9-1 04:55 | 只看該作者

回復 4# Hsieh
Hseih大大謝謝您
Function IsOpen(Fs As String) As Boolean
IsOpen = False
For Each w In Windows
If w.Caption = Fs Then IsOpen = True: Exit For
Next
End Function

其中 fs 與上述filename 型態不符我就卡住了怎麼辦?

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

10^#

發表於 2012-9-1 05:02 | 只看該作者

回復 4# Hsieh
對不起將大名拼錯了應為Hsieh大大

TOP