VBA makro virker kun nogle gange....
HejJeg vil gerne tjekke om et addin ved navn "XLcubed" er installeret i Excel. Hvis det er tilfældet, så skal det deaktiveres mens koden køre. Grunden til dette, er at addin'et er årsag til flere fejl. Problemet er bare, at det kun er nogle gange at nedenstående kode virker. Fejlen opstår når linien som indeholder ".AddIns("XLcubed").Installed = False" læses (men IKKE hver gang). Føglende vejl opstår:
Run-time error '-2147417838 (80010112)':
Method 'Installed' of object 'AddIn' failed
(Bemærk: VBA makroen afspilles fra Microsoft Access 2007)
---------------------------------------------------
XL = "c:\temp.xlsx"
Set oXl = CreateObject("Excel.Application")
With oXl
.Workbooks.Open (XL)
If .AddIns("Xlcubed").Installed = True Then
.AddIns("XLcubed").Installed = False
End If
'Gør et eller andet her
If .AddIns("Xlcubed").Installed = False Then
.AddIns("XLcubed").Installed = True
End If
End With