Excel AddIn installer

Het onderstaande vb-script draagt zorgt voor de installatie van een op te geven Excel AddIn. Wanneer de AddIn reeds aanwezig is zal deze eerst verwijderd worden, alvorens de nieuwe wordt geinstalleerd.

01Dim objExcel
02Dim objFSO
03Dim excelAddIn
04Dim startupPath
05 
06excelAddIn = "AddIn.xlam" 
07 
08set objExcel = Nothing
09 
10On Error Resume Next
11Set objExcel = GetObject(, "Excel.Application")
12On Error GoTo 0
13 
14If Not objExcel Is Nothing Then
15    WScript.Echo "Sluit Excel en probeer opnieuw!"
16Else
17    Set objExcel = CreateObject("Excel.Application")
18    objExcel.Visible = False    
19    Set objFSO = CreateObject("Scripting.FileSystemObject")
20    startupPath = objExcel.startupPath & "\"
21     
22    If objFSO.FileExists(startupPath & excelAddIn) Then
23        objFSO.DeleteFile startupPath & excelAddIn
24        MsgBox "Oud bestand verwijderd.", vbInformation, "Deinstallatie succesvol"
25    End If
26     
27    objFSO.CopyFile excelAddIn, startupPath & excelAddIn
28     
29    MsgBox "Nieuw bestand gekopieerd naar opstartdirectory van Excel.", vbInformation, "Installatie succesvol"
30End If