12
返回列表 上一主題 發帖

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

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
11# 跳轉到 »
發表於 2015-7-26 06:11 | 只看該作者
試試看(測試環境 : Win7 + Office2013)
azrael19 發表於 2015-7-25 18:22


哇！哇！哇！真的太....太棒了！
非常感謝azrael19大，出手相救！（連檔案路徑都幫忙擷取出來了，太感動了！）
原來需要這麼多的代碼才能知道檔名(汗顏中...)，
看來這需要花一些時間去理解與吸收，再次感謝azrael19大！

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
12#
發表於 2015-7-26 06:36 | 只看該作者
[版主管理留言]
  • GBKEE(2015/7/26 07:14): 不好意思,沒看清楚是連結網址,就刪文,請重發文.

連附上原創者答案的連結都會莫名其妙被砍.... 無言

TOP

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
13#
發表於 2015-7-26 06:44 | 只看該作者
連附上原創者答案的連結都會莫名其妙被砍.... 無言
bobomi 發表於 2015-7-26 06:36


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

能否再提供你昨天的網站連結呢？
讓我也一併吸收，再次感謝您！

TOP

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
14# 倒序看帖
打印
tT
發表於 2015-7-26 07:05 | 只看該作者

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

各位前輩們大家好，

以 A.xlsm 為中心（請搭配下圖)，若切換到 C.xlsx（屬同一個獨立EXCEL 1)，則會觸發 Private Sub Workbook_Deactivate() 程序。
若從 A.xlsm 切換到 A2.xlsx（屬於另一個獨立EXCEL 2)，卻不會觸發 Private Sub Workbook_Deactivate() 程序。



心得：
觸發Private Sub Workbook_Deactivate() 只能在同一個獨立EXCEL內的活頁簿間切換，才就會執行該程序。
但，若是切換另一個獨立EXCEL時，對A.xlsm而言是沒有變化的。

問題：
代碼該如何修正？才能知道有切換到另一個獨立EXCEL。
請各位前輩們出手相救！感恩！
  1. Private Sub Workbook_Deactivate()
  2. msgbox "有切換"  
  3. End Sub
複製代碼
收藏 分享

azrael19

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

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前輩您不開心，以後回文我會注意加上參考資料來源，希望您能見諒！

TOP

justintoolbox

帖子
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時觸發程序？
拜託各位高手前輩們解惑！

TOP

GBKEE

帖子
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的程式碼
  1. Option Explicit
  2. Public xApp As New Class1
  3. Dim NewApp As New Application
  4. Sub Ex()
  5.     Set xApp.The_App = NewApp
  6. End Sub
複製代碼
物件類別模組 Class1 的程式碼
  1. Option Explicit
  2. Dim WithEvents APP As Application
  3. Property Set The_App(P As Object)
  4.     Set APP = P    ' 將 APP 屬性值設成物件。
  5.     With APP
  6.         .Visible = True
  7.         With .Workbooks.Add
  8.             .Sheets(1).[a1] = 5
  9.         End With
  10.     End With
  11. End Property

  13. Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
  14.     MsgBox Wb.Name
  15. End Sub
  16. Private Sub APP_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  17.     MsgBox Target.Address(, , , 1, 1)
  18. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

justintoolbox

帖子
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清楚一些,抱歉因為同一個討論串問了許多問題,容易讓人不知道現在的問題是什麼,會容易搞混..抱歉.

TOP

GBKEE

帖子
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的活動.
  1. Option Explicit
  2. Dim WithEvents APP As Application
  3. Property Set The_App(P As Object)
  4.     Set APP = P    ' 將 APP 屬性值設成物件。
  5.     With APP
  6.         .Visible = True
  7.     End With
  8. End Property

  10. Private Sub APP_NewWorkbook(ByVal Wb As Workbook)
  11.     MsgBox Wb.Name
  12. End Sub
  13. Private Sub APP_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  14.     MsgBox Target.Address(, , , 1, 1)
  15. End Sub

  17. Private Sub APP_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
  18.    
  19.     MsgBox "進入 " & Wb.Name
  20. End Sub

  22. Private Sub APP_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
  23.     MsgBox "退出 " & Wb.Name
  24. End Sub

  26. Private Sub APP_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)
  27.     MsgBox Wn.Caption & "變化視窗"
  28. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

justintoolbox

帖子
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版主指點迷津！
讓我對這方面有新的認識！
感謝！

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
12
返回列表 上一主題