動態(tài)添加引用示例：
    On Error Resume Next
    Dim REF As Reference
    Dim strfilename As String
    strfilename = "c:\program files\common files" & _
    "\system\ado\msado21.tlb" 路徑由引用窗體獲得
    Set REF = Application.References.AddFromFile(strfilename) 必須加APPLICATION
    MsgBox REF.Name & "已經(jīng)被引用完畢" 獲得應(yīng)用名稱的途徑
    動態(tài)刪除引用示例：
    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 & "已經(jīng)被取消引用" 獲得應(yīng)用名稱的途徑