Hallo,
sicher ?
Ich mache z.B. sowas .
Delphi-Quellcode:
var
Sheet: OleVariant;
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := ASheetName;
for iCol := 0 to iMaxCols - 1 do
begin
theStatusForm.ProgressBar.Position:=
theStatusForm.ProgressBar.Position+1;
Application.ProcessMessages;
for iRow := 0 to AGrid.RowCount - 1 do
begin
if TryStrToFloat(AGrid.Cells[iCol, iRow], dFloat) then
begin
try
sRef:= RefToCell(iCol+1, iRow+1);
Sheet.Range[sRef,sRef].NumberFormat:= sFormat;
Kann ich das was beschleunigen mit frühr Bindung ?