So sieht mein Code mein Code im ganzen aus.
Code:
var
zeile, spalte: Integer;
Excel : variant;
begin
try
Excel := CreateOleObject('Excel.Application');
except
ShowMessage('Excel kann nicht gestartet werden');
exit;
end;
Excel.Visible := true;
Excel.Workbooks.add;
while not Form1.Query1.EOF do
begin
{Die Werte aus dem Stringgrid (oder aus einer Datei oder sonstwo her), schrei-
ben wir jetzt in das Excel.Worksheet.}
//for zeile := 0 to Form1.Query1.RecordCount-1 do
for spalte := 0 to Form1.Query1.FieldCount-1 do
Excel.Cells[Zeile+1,Spalte+1].value := Form1.Query1.Fields[Spalte].AsString;
Form1.Query1.Next;
end;
end;
Ich habe jetzt zwar verstanden was Du meinst aber mir fehlen sämtliche Kenntnisse um dieses jetzt auch noch sinnvoll anzuwenden. Ich beschäftige mich noch nicht solang damit.
Ich nehme mir jetzt also eine Variable X: Integer und soll diese dann nach jedem Schleifendurchlauf um 1 erhöhen und diesen Wert dann Cells zuweisen. Stimmt doch, oder?