microsoft excel object library 引用

这是麥田的代码：

相信肯定对你有用，我现在就是用这段代码解决的。

Dim REFE As References    

    Dim strFileName As String   

    Dim rf
    Set REFE = Application.References
    For Each rf In REFE   

      ' MsgBox rf.Name
        If rf.Name = "EXCEL" Then   

            Application.References.Remove rf   

            Exit For   

        End If
    Next
    strFileName = "C:\Program Files\Microsoft Office\Office11\EXCEL.EXE"   '根据你不同版本的EXCEL写入不同的路径
    Set rf = Application.References.AddFromFile(strFileName)