N
habs schon...:
danke trotzdem!
TDate anfang_Datum_Excel = txt_von->Text;
TDate end_Datum_Excel = txt_bis->Text;
// die daten aus dem datasource erfassen und in excel eintragen
int strData;
int j = 4;
while (!grid_Anz->DataSource->DataSet->Eof)
{
int n = 0;
strData = grid_Anz->Fields[n]->AsInteger;
grid_Anz->DataSource->DataSet->Next();
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", 4 , 1).
OlePropertySet("Value", anfang_Datum_Excel);
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", j , 2).
OlePropertySet("Value", strData);
n++;
j++;
}
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", j-1 , 1).
OlePropertySet("Value", end_Datum_Excel);
///////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
