Function AddinInstalledAndEnabled(aiName As String) As Boolean
    Dim result As Boolean
    result = False
    For Each ai In Application.AddIns
        If ai.Name = aiName Then
            result = result Or ai.Installed
        End If
        If result Then Exit For
    Next ai
    AddinInstalledAndEnabled = result
End Function

Function RExcelAvailable() As Boolean
    RExcelAvailable = AddinInstalledAndEnabled("RExcel.xla") or _
                       AddinInstalledAndEnabled("RExcel2007.xlam")
End Function




Andrew McLachlan wrote:
Hi All

Can anyone suggest to me ways of using VBA from within Excel to detect
whether the RExcel add-in is installed or not?
My first thought is perhaps to check for the presence of some RExcel
constants, for example, RExcelVersion.

Cheers, Andrew Mc



Visit our website at http://www.crop.cri.nz ______________________________________________________ CAUTION: The information contained in this email is privileged and confidential. If you read this message and you are not the intended recipient, you are hereby notified that any use, dissemination, distribution or reproduction of all or part of the contents is prohibited. If you receive this message in error, please notify the sender immediately.

Any opinions or views expressed in this message are those of the individual sender and may not represent those of their employer.

_______________________________________________
Rcom-l mailing list
Rcom-l@mailman.csd.univie.ac.at
http://mailman.csd.univie.ac.at/mailman/listinfo/rcom-l
More information (including a Wiki) at http://rcom.univie.ac.at



--
Erich Neuwirth, University of Vienna
Faculty of Computer Science
Computer Supported Didactics Working Group
Visit our SunSITE at http://sunsite.univie.ac.at
Phone: +43-1-4277-39464 Fax: +43-1-4277-39459
_______________________________________________
Rcom-l mailing list
Rcom-l@mailman.csd.univie.ac.at
http://mailman.csd.univie.ac.at/mailman/listinfo/rcom-l
More information (including a Wiki) at http://rcom.univie.ac.at

Reply via email to