Es könnte natürlich auch sein, daß dieses Excel in
einem Dienst einer Session ohne Desktop/UI richtig fnktioniert?
Und sowas wie ShowMessage oder DisplayAlerts hat in einem Dienst sowieso nichts zu suchen. (außer vielleicht mal in einem "Interactive Service")
PS: "StringReplace" ->
ChangeFileExt