N
die lösung sieht folgendermaßen aus:
alle drei daten (spalte datum, kennzahl und betrag) werden zu excel übertragen!
// die daten aus dem datasource erfassen und in excel eintragen
Variant strData;
int j = 4;
while (!grid_Anz->DataSource->DataSet->Eof)
{
//Fields n = 0 = datum;1 = kennziffer, 2 = betrag
strData = grid_Anz->Fields[0]->AsVariant;
// j steht für die zeile und 1 für die spalte
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", j,1).
OlePropertySet("Value", strData);
strData = grid_Anz->Fields[1]->AsVariant;
// j steht für die zeile und 1 für die spalte
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", j,2).
OlePropertySet("Value", strData);
strData = grid_Anz->Fields[2]->AsVariant;
// j steht für die zeile und 1 für die spalte
MyWS.OlePropertyGet("Cells").OlePropertyGet("Item", j,3).
OlePropertySet("Value", strData);
grid_Anz->DataSource->DataSet->Next();
j++;
}