Pages

Monday 16 July 2012

Set Excel Addin - VBScript

Following script can be used to set Excel Addin
Chabge Addin_Path value to the path of XLA file of Excel Addin that needs to be set



On Error resume next
Const HKEY_CURRENT_USER = &H80000001
const REG_SZ = 1
const REG_EXPAND_SZ = 2
const REG_BINARY = 3
const REG_DWORD = 4
const REG_MULTI_SZ = 7


Set objArg = WScript.Arguments
AddIn_path = objArg(0)
AddIn_path = "C:\Program Files\FO PROD\salesXL.xla"


strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Excel\Options"
oReg.Createkey HKEY_CURRENT_USER,strKeyPath
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"EXAddin",1




oReg.EnumValues HKEY_CURRENT_USER, strKeyPath,_
 arrValueNames, arrValueTypes


n = 1
X = """" & AddIn_path & """" 
For i=0 To UBound(arrValueNames)


oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrValueNames(i),strValue  

If (left(arrValueNames(i), 4) = "OPEN") Then
n = n +1    

If strValue = x  Then
'msgbox strValue
n = 0
Exit For
End If 
End If   


Next


If n <> 0 Then
n = n -1
If n = 0 Then
   
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"OPEN",x
Else 
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"OPEN" & n,x
End If 


End If 


No comments:

Post a Comment