帖子: 508
主題: 53
精華: 0
積分: 583
點名: 90
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-12-4 08:42 | 只看該作者

找出控制項在那裡使用並移出 Forms object library的VBA引用

Excel檔案曾經使用控制項，後來移除了。
但卻無法移除引用引用項 Microsoft Forms 2.0 object library

網路上遍尋，也無法有效去除。

請問大大們，如何找出 "使用中"的控制項並能移出引用的物件庫

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-12-4 09:59 | 只看該作者

回復 1# Scott090
你是不是還設定有 "自訂表單" 呢？
如果目前已沒再使用 "自訂表單" (Form1)
那便先將它移除才行。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2804
主題: 10
精華: 0
積分: 2860
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-3

3^#

發表於 2016-12-4 11:27 | 只看該作者

本帖最後由准提部林於 2016-12-4 11:31 編輯

'列出引用項目
Sub Test_Ref()
Dim vRef As Object
With ThisWorkbook.VBProject
   For Each vRef In .References
      MsgBox "【名稱】" & vRef.Name & vbCrLf & "【路徑】" & UCase(vRef.FullPath)
Next
End With
End Sub

'移除引用項目
Sub Remove_Ref()
Dim vRef As Object
With ThisWorkbook.VBProject
   For Each vRef In .References
      If UCase(vRef.FullPath) = UCase("C:\WINDOWS\system32\FM20.DLL") Then
         .References.Remove vRef
      End If
Next
End With
End Sub

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 90
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2016-12-4 14:30 | 只看該作者

回復 2# c_c_lai

此工作簿內並未曾設有自訂表單 FORM物件，再找也沒有發現 form1物件

謝謝

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 90
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2016-12-4 15:03 | 只看該作者

回復 3# 准提部林

被引用的 forms 物件在 sysWOW64 路徑，所以 VBA改成如下：
If UCase(vRef.FullPath) = UCase("C:\WINDOWS\sysWOW64\FM20.DLL") Then
已成功核消此項引用。

不過好奇的是在 system32 內也有一個fm20.dll，2個 .dll 的大小不同
Excel 是 32位元的版本，怎會引用到 64位元的那一個 fm20.dll?

很謝謝

TOP

7777