返回列表 上一主題 發帖

[發問] 如何取得己開啟EXCEL控制權,執行外部檔案巨集

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-7-9 12:00 | 只看該作者

[發問] 如何取得己開啟EXCEL控制權,執行外部檔案巨集

請教大大
附檔1 & 2由兩個EXCEL各別打開後,
執行1.xlsb OpenApp巨集,如下程式碼,
檔案在己開啟的狀態下,如何取得己開啟EXCEL控制權?,執行2.xlsb測試巨集

x.rar (21.65 KB)
  1. Private Sub OpenApp()

  3.     On Error Resume Next
  4.     Err.Clear
  5.     Open ThisWorkbook.Path & "\" & 2 & ".xlsb" For Append As #1
  6.     Close #1

  8.     If Err.Number > 0 Then '此活頁簿己被開啟

  10.         '此活頁簿己被開啟,此處要如何取得己開啟EXCEL控制權?,執行測試巨集
  11.         app1.Run "測試"
  12.     Else
  13.         Set app1 = CreateObject("Excel.Application")
  14.         Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\2.xlsb")
  15.         app1.Visible = True

  17.         app1.Run "測試"
  18.     End If

  20.     Set app1 = Nothing
  21.     Set book1 = Nothing
  22. End Sub
複製代碼
收藏 分享

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
2#
發表於 2019-7-18 21:15 | 只看該作者
我己在網路上找到解答 ,提供給需要的朋友
https://tw.answers.yahoo.com/question/index?qid=20090214000016KK01619
  1. Private Sub OpenApp()
  2.     Dim app1 As Object
  3.     On Error Resume Next
  4.     Err.Clear
  5.     Open ThisWorkbook.Path & "\" & 2 & ".xlsb" For Append As #1
  6.     Close #1

  8.     If Err.Number > 0 Then '此活頁簿己被開啟
  9.         Set app1 = CreateObject(ThisWorkbook.Path & "\" & 2 & ".xlsb")
  10.         app1.Application.Run "測試"
  11.   
  12.     Else  '此活頁簿未被開啟
  13.         Set app1 = CreateObject("Excel.Application")
  14.         Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\2.xlsb")
  15.         app1.Visible = True
  16.         app1.Run "測試"
  17.     End If

  19.     Set app1 = Nothing
  20.     Set book1 = Nothing
  21. End Sub
複製代碼

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題