Prüfen, ob Excel auf dem PC installiert ist?

$sApplicationType = "Excel.Application"
$oApp = ObjGet("", $sApplicationType)
If Not IsObj($oApp) Then Exit MsgBox(262192, "Fehler", "Die Projektbibliothek kann nur bei einer geöffneten Datei hinzugefügt werden!")


; VBIDE-Bibliothek einbinden und Referenz auf VBE-TopLevel-Objekt holen
$oVBE = _VBIDE_Add($oApp)


; um Zugriff auf die richtigen Ctrl zu bekommen, alle Menübänder mit Auflistung Ctrl-ID, Ctrl-Bezeichnung in Konsole ausgeben
__DEBUG_COMMANDBARS($oVBE)




Func __DEBUG_COMMANDBARS($_oVBE)
	Local $sOutput = '', $s5 = '     ', $s30 = '                              '
	Local $oCmdBars = $_oVBE.CommandBars()
	For $oBar In $oCmdBars
		$sOutput &= StringFormat('== MENÜ - NAME: %s == NAME LOCAL: %s == VISIBLE: %s ==%s', _
		StringLeft($oBar.Name & $s30, 30), StringLeft($oBar.NameLocal & $s30, 30), StringLeft($oBar.Visible & $s30, 5), @LF)
		For $ctrl In $oBar.Controls
			$sOutput &= StringFormat('   CONTROL ID: %s   CAPTION: %s%s', StringLeft($ctrl.ID & $s5, 5) , $ctrl.Caption, @LF)
		Next
	Next
	ConsoleWrite($sOutput)
EndFunc






; gibt gleichzeitig das TopLevel-Objekt des VisualBasicEditors zurück
Func _VBIDE_Add($_oApp)
	If Not IsObj($_oApp) Then Return SetError(1,0,MsgBox(48,"Fehler","Keine Anwendungsdatei geöffnet!"))
	Local $fFound = False
	; Auflistung der verfügbaren Verweise nach "VBIDE" durchsuchen
	Local $oVBE = $_oApp.VBE
	For $Ref In $oVBE.ActiveVBProject.References
		If $Ref.Name = 'VBIDE' Then
			$fFound = True
			ExitLoop
		EndIf
	Next
	; wenn Bibliothek noch nicht enthalten, diese hinzufügen
	If Not $fFound Then $oVBE.ActiveVBProject.References.AddFromGuid("{0002E157-0000-0000-C000-000000000046}", 5, 3)
	Return $oVBE
EndFunc


; entfernt die Bibliothek wieder vom Projekt
Func _VBIDE_Remove($_oApp)
	If Not IsObj($_oApp) Then Return SetError(1,0,MsgBox(48,"Fehler","Keine Anwendungsdatei geöffnet!"))
	For $Ref In $_oApp.VBE.ActiveVBProject.References
		If $Ref.Name = 'VBIDE' Then Return $_oApp.VBE.ActiveVBProject.References.Remove('VBIDE')
	Next
EndFunc