[發問] 有兩個獨立EXCEL，如何知道切換到另一個獨立EXCEL？

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

20^#

發表於 2015-7-28 14:36 | 只看該作者

回復 justintoolbox
我希望能藉由觸發程序告訴我有切換到另一個獨立EXCEL.
VBA Application 物件的事件 ...
GBKEE 發表於 2015-7-28 11:05

十萬分感謝GBKEE版主指點迷津！
讓我對這方面有新的認識！
感謝！

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

19^#

發表於 2015-7-28 11:05 | 只看該作者

本帖最後由 GBKEE 於 2015-7-28 11:07 編輯

回復 18# justintoolbox
我希望能藉由觸發程序告訴我有切換到另一個獨立EXCEL.
VBA Application 物件的事件找不到支援的事件.
這就是兩個獨立EXCEL.物件類別的Application事件.可得知另一個獨立EXCEL的活動.

Option Explicit
Dim WithEvents APP As Application
Property Set The_App(P As Object)
Set APP = P ' 將 APP 屬性值設成物件。
With APP
.Visible = True
End With
End Property
Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
MsgBox Wb.Name
End Sub
Private Sub APP_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Address(, , , 1, 1)
End Sub
Private Sub APP_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
MsgBox "進入 " & Wb.Name
End Sub
Private Sub APP_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
MsgBox "退出 " & Wb.Name
End Sub
Private Sub APP_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)
MsgBox Wn.Caption & "變化視窗"
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

18^#

發表於 2015-7-28 09:32 | 只看該作者

回復 justintoolbox

Module1的程式碼物件類別模組 Class1 的程式碼
GBKEE 發表於 2015-7-27 14:02

非常感謝GBKEE版主出手相救!
GBKEE版的代碼是利用Ex程序,建立出一個獨立EXCEL, 並讀取新建立的EXCEL的檔名與滑鼠選擇的位置.

只是.....
可能我前面沒有詳述清楚,真的很抱歉.讓GBKEE大誤會了.
我原本期望是:
已經存在的兩個EXCEL,但這兩個都是各自獨立的(不同一個application),
如果這時候我從A.xlsm切換到另一個EXCEL時, 我希望能藉由觸發程序告訴我有切換到另一個獨立EXCEL,不需要知道檔名沒關係.
(兩個活頁簿若在同一個application時,可以利用Workbook_Deactivate觸發程序,就知道有切換到另一個程序,但若是兩個獨立EXCEL就不能用這個方法了)

不知道這樣解釋有沒有讓GBKEE清楚一些,抱歉因為同一個討論串問了許多問題,容易讓人不知道現在的問題是什麼,會容易搞混..抱歉.

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2015-7-27 14:02 | 只看該作者

本帖最後由 GBKEE 於 2015-7-27 14:03 編輯

回復 16# justintoolbox

Module1的程式碼

Option Explicit
Public xApp As New Class1
Dim NewApp As New Application
Sub Ex()
Set xApp.The_App = NewApp
End Sub

複製代碼

物件類別模組 Class1 的程式碼

Option Explicit
Dim WithEvents APP As Application
Property Set The_App(P As Object)
Set APP = P ' 將 APP 屬性值設成物件。
With APP
.Visible = True
With .Workbooks.Add
.Sheets(1).[a1] = 5
End With
End With
End Property
Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
MsgBox Wb.Name
End Sub
Private Sub APP_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Address(, , , 1, 1)
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

16^#

發表於 2015-7-27 09:27 | 只看該作者

各位前輩們大家好，

以 A.xlsm 為中心（請搭配下圖)，若切換到 C.xlsx（屬同一個獨立EXCEL 1)，則會觸發 ...
justintoolbox 發表於 2015-7-26 07:05

各位前輩們，不知道能否做到切換到另一個獨立EXCEL時觸發程序？
拜託各位高手前輩們解惑！

azrael19

帖子: 23
主題: 0
精華: 0
積分: 73
點名: 298
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2012-4-21
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

15^#

發表於 2015-7-26 08:47 | 只看該作者

也非常感謝bobomi大姊！
昨天我也有看到你貼超連結，只是今早就沒看見了，可能是系統的問題吧。

能 ...
justintoolbox 發表於 2015-7-26 06:44

網址:
https://social.msdn.microsoft.com/Forums/office/en-US/e3e99712-01a7-483e-bf0e-52bb1f94889c/how-to-use-accessibleobjectfromwindow-api-in-vba-to-get-excel-application-object-from-excel?forum=exceldev

還有不好意思讓bobomi前輩您不開心，以後回文我會注意加上參考資料來源，希望您能見諒！