VBA如何判斷檔案從哪裡被開啟

vba excel 判斷檔案名稱

john083423 2019-05-15 11:21:43 ‧ 2284 瀏覽

分享至

假設我有AˋBˋC檔案
目前我A檔案跟B檔案都可以開C檔案
我在C檔案讓它打開就出現表單是為了A檔案(等於A檔案開啟 C檔案才自動打開表單)
B檔案開C檔案 C檔案就不會出現表單
所以想知道VBA怎麼判斷檔案從哪個檔案開啟
是不是在C檔案的thisbook那邊要用
if filename=A檔案
表單0.show
end if
這樣嗎

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

froce

iT邦大師 1 級 ‧ 2019-05-15 15:01:20

你的描述看的我頭好痛...
要看你怎麼呼叫workbook的，如果都是同一個process下可以呼叫Application.Workbooks來看看。

function AisOpened()
    For Each w In Application.Workbooks 
        If w.Name = 'A檔案' Then 
        
            AisOpened = True
            exit Function
    
        End If 
    Next w
    
    AisOpened =False
end function

大概是這樣，太寫沒寫了，應該沒辦法一次寫對，自己看一下想法自己改。

回應 3
分享
檢舉

john083423 iT邦新手 5 級 ‧ 2019-05-15 15:23:55 檢舉

多謝告知

paicheng0111 iT邦大師 5 級 ‧ 2019-05-16 08:38:28 檢舉

引用 froce 的程式並稍微調整如下：

Function AisOpened() As Boolean
    Dim a As Workbook
    
    On Error Resume Next
    Set a = Application.Workbooks("A檔案")
    
    If Err Then
        AisOpened = False
    Else
        AisOpened = True    
    End If 
    On Error Goto 0
End Function