- 帖子
- 529
- 主題
- 56
- 精華
- 0
- 積分
- 607
- 點名
- 119
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2025-5-22
           
|
回復 2# GBKEE
謝謝 大師,已依照指點執行;
以下的VBA碼是大師曾經指點的,用來顯示 References窗體的, 其中的 ... .FindControl(ID:=1561).execute 1561找不到;
另,爬文中也有用 ID:=2578 來叫用 VBProject 專案密碼窗體,這個 2578 也在列表中找不到
敢問大師 這些ID是怎麼來的
敬請指點
感恩
Private Sub 設定引用項目() '遺漏項存在時用手動刪除,用手動存檔後重新執行程式.
Dim E
On Error Resume Next
With ThisWorkbook.VBProject
For Each E In .References
Debug.Print E.Name
Next
End With
If Err <> 0 Then
Application.CommandBars.FindControl(ID:=1561).Execute
Application.SendKeys "%T"
Application.SendKeys "R"
End
End If
End Sub |
|