Ошибка "OLE error 800A03EC" при передаче StringGrid в Excel [D7, XP]
Darvin © (2007-05-25 13:46:00)
Здрасвтвуйте!
Передаю данные из StringGrid в Excel таким способом:
function SaveAsExcelFile(AGrid: TStringGrid; ASheetName,
AFileName: string): Boolean;
const
xlWBATWorksheet = -4167;
var
Row, Col: Integer;
GridPrevFile, S: string;
XLApp, Sheet, Data: OLEVariant;
i, j: Integer;
D : Double;
function RefToCell(ARow, ACol: Integer): string;
begin
Result := Chr(Ord('A') + ACol - 1) +
IntToStr(ARow);
end;
begin
Data := VarArrayCreate([1, AGrid.RowCount, 1,
20{AGrid.ColCount}], varVariant);
for i := 0 to 20{AGrid.ColCount} - 1 do
for j := 0 to AGrid.RowCount - 1 do begin
S := AGrid.Cells[i, j];
// Конвертирование в число
try
D := StrToFloat (S);
Data[J + 1, I + 1] := D;
except
Data[J + 1, I + 1] := S;
end;
end;
Result := False;
XLApp := CreateOleObject('Excel.Application');
try
XLApp.Visible := True;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := ASheetName;
Sheet.Range[RefToCell(1, 1),
RefToCell(AGrid.RowCount, 20{AGrid.ColCount})].Value := Data;
finally
end;
end;
Так вот, для небольших таблиц, например 20 x 15, все
работает, а для таблиц 61 x 15 выдается ошибка OLE error 800A03EC в
строке:
Sheet.Range[RefToCell(1, 1),
RefToCell(AGrid.RowCount, 20{AGrid.ColCount})].Value := Data;
Как можно такое победить?
Darvin (2007-05-25 13:48:00) [1]
Прошу прощения, для возникновения ошибки комментарии
{AGrid.ColCount} надо раскрыть, а 20, стоящую перед ними удалить.
Если этого не сделать, ошибки не возникнет.
Наверх 
ЧАТ |
Орешник |
|
