?
ich habe das problm jetzt naderst gelöst:
einfach dei komponenten rausgeschmissen und dafür alles auf diese art gemacht:
Variant MyEx;
Variant MyWB;
Variant MyWS;
MyEx = CreateOleObject("Excel.Application");
MyEx.OlePropertySet("Visible" , true);
MyWB = MyEx.OlePropertyGet("Workbooks");
MyWB.OleFunction("Add");
MyWS = MyWB.OlePropertyGet("Item" , 1);
MyWB = MyWS.OlePropertyGet("Worksheets");
MyWB.OlePropertyGet("Item" , 1).OlePropertySet("Name", 1);
MyWS = MyWB.OlePropertyGet("Item" , 1);
MyWS.OlePropertyGet("Cells" ).OlePropertyGet("Item", 2,2).
OlePropertyGet("Font").OlePropertySet("Bold" , true);
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", 2,2).
OlePropertySet("Value" , StringToOleStr(title));
[...]