If result Then Exit For
Next ai
AddinAvailable = result
End Function
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Erich
Neuwirth
Sent: 20 July 2008 10:21
To: R (D)COM and RExcel server related issues
Subject: Re: [Rcom-l] Dete
result = False
For Each ai In Application.AddIns
If ai.Name = aiName Then
result = True
End If
If result Then Exit For
Next ai
AddinAvailable = result
End Function
-----Original Message-----
From: [EMAIL PROTECTED]
On Jul 17, 2008, at 11:58 PM, Andrew McLachlan wrote:
Thank you Erich
I have just been reading about the AddIns collection and was wondering
whether to use that approach or not. Your reply has stopped me
wondering
:-) and I will be adding your code to my project.
During my testing of the f
Thank you Erich
I have just been reading about the AddIns collection and was wondering
whether to use that approach or not. Your reply has stopped me wondering
:-) and I will be adding your code to my project.
During my testing of the functions below, I found that they worked as
expected. That is
There are a few objects in vba for handling addins. If you search for
"addin" in excel's vba help you will find all necessary details.
Basically, you should be able to do something like this:
For ai in Application.addins
if ai.name="RExcel" then found=true
Next ai
-Original Message---
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
AddinInstall