Excel to StringGrid and StringGrid to Exel

[Євгеній Бєлік]

Добрый вечер!
Возникла такая проблема:
у меня есть таблица в екселе размерностью 122 (столбца) на 5070 (строк) (этот диапазон я указываю вручную, просто там есть еще данные которые мне не нужны).
Так вот, когда я считываю этот диапазон то вылетает такая ошибка: OLE error 800A03EC, потом делаю пару операций с ней и записываю в новою таблицу и тоже при записи выдает ошибку!

Вот запись в табл:

procedure Xls_Open(XLSFile:string; Grid:TStringGrid; rMax:integer; cMax:integer);
  const
   xlCellTypeLastCell = $0000000B;
var
   ExlApp, Sheet: OLEVariant;
   i, j:integer;

begin
   //создаем объект Excel
   ExlApp := CreateOleObject('Excel.Application');

   //делаем окно Excel невидимым
   ExlApp.Visible := false;

   //открываем файл XLSFile
   ExlApp.Workbooks.Open(XLSFile);

   //создаем объект Sheet(страница) и указываем номер листа (1)
  //в книге, с которого будем осуществлять чтение
   Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];

  //активируем последнюю ячейку на листе
   Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

    // Возвращает номер последней строки
     //r := ExlApp.ActiveCell.Row;

    // Возвращает номер последнего столбца
     //c := ExlApp.ActiveCell.Column;

    //устанавливаем кол-во столбцов и строк в StringGrid
     Grid.RowCount:=rMax;
     Grid.ColCount:=cMax;

    //считываем значение из каждой ячейки и копируем в нашу таблицу
      for j:= 1 to rMax do
        for i:= 1 to cMax do
          Grid.Cells[i-1,j-1]:= sheet.cells[j,i];
         //если необходимо прочитать формулы то
        //Grid.Cells[i-1,j-1]:= sheet.cells[j,i].formula;

 //закрываем приложение Excel
  ExlApp.Quit;

  //очищаем выделенную память
  ExlApp := Unassigned;
  Sheet := Unassigned;

end;

Ошибка выдает на строке:

Grid.Cells[i-1,j-1]:= sheet.cells[j,i];

А вот сохранение:

function RefToCell(ARow, ACol: Integer): string;
 begin
   Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);
 end;

 function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
 const
   xlWBATWorksheet = -4167;
 var
   Row, Col: Integer;
   GridPrevFile: string;
   XLApp, Sheet, Data: OLEVariant;
   i, j: Integer;
 begin
   // Prepare Data
  Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
   for i := 0 to AGrid.ColCount - 1 do
     for j := 0 to AGrid.RowCount - 1 do
       Data[j + 1, i + 1] := AGrid.Cells[i, j];
   // Create Excel-OLE Object
  Result := False;
   XLApp := CreateOleObject('Excel.Application');
   try
     // Hide Excel
    XLApp.Visible := False;
     // Add new Workbook
    XLApp.Workbooks.Add(xlWBatWorkSheet);
     Sheet := XLApp.Workbooks[1].WorkSheets[1];
     Sheet.Name := ASheetName;
     // Fill up the sheet
Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount, AGrid.ColCount)].Value := Data;
     // Save Excel Worksheet
    try
       XLApp.Workbooks[1].SaveAs(AFileName);
       Result := True;
     except
       // Error ?
    end;
   finally
     // Quit Excel
    if not VarIsEmpty(XLApp) then
     begin
       XLApp.DisplayAlerts := False;
       XLApp.Quit;
       XLAPP := Unassigned;
       Sheet := Unassigned;
     end;
   end;
 end;

Ошибка на строке:

Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount, AGrid.ColCount)].Value := Data;

Помогите пожалуйста!

[Stilet]

Grid.Cells[i-1,j-1]:= sheet.cells[j,i].value;

не?

Ошибка на строке:

Какая? Или текст нам угадывать?

[Євгеній Бєлік]

когда пошол процесс записи в сринггрид тога выдает ошибку: OLE error 800A03EC, после того как я нажимаю брейк тогда просто мне указывает на эту строку, такая же ситуация с сохранением...
Если поможет то внизу программной среды написано:
First chance exception at $75D1812F. Exception class EOleException with message 'OLE error 800A03EC'. Process Project1.exe (30400)

[Stilet]

Я не пойму что эта строка делает у тебя. Почему не идти через свойство cell?