Excel nicht gefunden CreateObject("Excel.Applicati
18.06.2007 11:47:00
Schmidt
Obwohl auf meinem Rechner unter C:\MSOffice\Office die Datei Excel.exe installiert ist , und Excel mormalerweise ohne Probleme läuft,
findet nachfolgendes VBS Makro Excel nicht und meldet daß Excel nicht insatlliert ist.
Muß ich Excel noch irgendwo registrieren?
Danke uind Gruß
Thomas Schmidt
'-------------------------------------------------------------------
' VBS Makro zur Ansteuerung nach MS Excel
'-------------------------------------------------------------------
' Item(0): Exportdaten.xml
' Item(1): Vorlagendateidatei
' Item(2): Makro-Name
'-------------------------------------------------------------------
' Fehler abfangen
On Error Resume Next
' Excel starten
set oExcel=CreateObject("Excel.Application")
' Excel vorhanden?
if oExcel then
' aktivieren
set oWorkbook=oExcel.Workbooks
' Die Vorlage laden
oWorkbook.Add(WScript.Arguments.Item(1))
oExcel.Visible=TRUE
' die XML-Daten in die Vorlage bringen
call oExcel.Run(WScript.Arguments.Item(2),WScript.Arguments.Item(0))
else
' Meldung bei Fehler
MsgBox "Excel ist nicht installiert!"+chr(10)+"Dieser Bericht kann nicht angezeigt werden."
end if