S
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");