¶¯Ì¬Ìí¼ÓÒýÓÃʾÀý£º 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 & "ÒѾ±»ÒýÓÃÍê±Ï" »ñµÃÓ¦ÓÃÃû³ÆµÄ;¾¶
¶¯Ì¬É¾³ýÒýÓÃʾÀý£º 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 & "ÒѾ±»È¡ÏûÒýÓÃ" »ñµÃÓ¦ÓÃÃû³ÆµÄ;¾¶
