[sve-pro]

Я делаю экспорт из Стринггрида в Эксель.
Вот код, брала со статьи в интернете.

Код:

 ArrayData := VarArrayCreate([1,form_ostatki.StringGrid1.ColCount, 1, form_ostatki.StringGrid1.RowCount], varVariant);
 for I := 1 to form_ostatki.StringGrid1.ColCount-1 do
 for J := 1 to form_ostatki.StringGrid1.RowCount-1 do
 ArrayData[j, i] := form_ostatki.StringGrid1.Cells[i,j];
 Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + Form_ostatki.StringGrid1.RowCount - 1,
  BeginCol + Form_ostatki.StringGrid1.ColCount - 1];
   Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
  Range.Value := ArrayData;

Админ: Пользуемся тегами!


Возникает ошибка: Acces violation at address in module
и ругается на строку: ArrayData := VarArrayCreate([1,form_ostatki.StringGrid1.ColCount, 1, form_ostatki.StringGrid1.RowCount], varVariant);