Fehler "Name unbekannt" bei Excel OLE-Zugriff (war : Excel)

[caia]

Hallo verzweifelt versuche ich ein in ein Excel Sheet zu schreiben, es kommt immer die Fehlermeldung "Name unbekannt" und zwar bei der letzten Zeile. Vielleicht kann mir jemand helfen
Caia

void WerteinExcel()
{
Variant vExcel, vWorkBooks, vWorkSheets, vWorkSheet;

vExcel = CreateOleObject("Excel.Application");

vWorkBooks = vExcel.OlePropertyGet("WorkBooks");

vWorkBooks.OleFunction("Open","c:\\Dienstplan\\Dienstplan_Import.xls");

vWorkSheets = vExcel.OlePropertyGet("Worksheets");

vWorkSheet = vWorkSheets.OlePropertyGet("Item", 1);

vWorkSheet.OleFunction("Activate");

ADOkalender->First();
Variant Range = vWorkSheet.OlePropertyGet("Cells", 2, 3); 
Range.OlePropertySet("Value", ADOkalender->FieldByName("Kollege"));

vWorkBooks.OleFunction("SaveAs","c:\\Dienstplan\\Dienstplan_Import.xls");
}

/Edit akari : Bitte aussagekräftigen Titel und cpp-Tags verwenden!
sfds

[Sergey_Z]

String File="c:\\Dienstplan\\Dienstplan_Import.xls";
Variant vExcel, vWorkBooks, vWorkSheets, vWorkSheet;

vExcel = Variant::CreateObject("Excel.Application");

vWorkBooks = vExcel.OlePropertyGet("WorkBooks");

vWorkBooks.OleFunction("Open",File);

vWorkSheets = vExcel.OlePropertyGet("Worksheets",1);

vWorkSheet = vExcel.OlePropertyGet("Columns").OlePropertyGet("Item", 1);

vWorkSheet.OleFunction("Activate");

ADOkalender->First(); //Das hab ich nicht getestet:
Variant Range = vWorkSheet.OlePropertyGet("Cells", 2, 3);//Das hab ich nicht getestet:
Range.OlePropertySet("Value", ADOkalender->FieldByName("Kollege")); //Das hab ich nicht getestet:

vExcel.OlePropertySet("DisplayAlerts",false);

vExcel.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs",File);

vExcel.OlePropertyGet("WorkBooks",1).OleProcedure("Close");