Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
动态删除引用示例:
On Error Resume Next
Dim REFE As Reference
Set REFE = Application.references!ADODB 由 添加时的REF.NAME获得
Dim REF As String
REF = REFE.Name
Application.references.Remove REFE 必须加APPLICATION
MsgBox REF & "已经被取消引用" 获得应用名称的途径