Догрузка данных в ранее загруженную таблицу из Excel

[artemavd]

Добрый вечер! Нужна помощь в следующем вопросе. В StringGrid грузятся некие данные из XLS файла. Это нормально. При загрузке, вторая и третья колонка пустые, так и должно быть. Мне нужно в процессе работы с программой догрузить две колонки в StringGrid в эти самые пустые колонки. Вот, нашел у себя старый код из одного из проектов:

procedure TForm1.mniN38Click(Sender: TObject);
var
  row: integer;
  Ex: variant;
  Sheet: variant;
  sl: TStringList;
  s: string;
  Path: string;
  I: Integer;
begin
  Form1.dlgOpen1.FileName:='*.xls';
  Form1.dlgOpen1.Filter:='XLS|*.xls';
  if Form1.dlgOpen1.Execute then
  begin
   Path:=ExtractFileDir(Form1.dlgOpen1.FileName);
   Ex:= CreateOleObject('Excel.Application');
   Ex.Workbooks.Open(Path + '\' + ExtractFileName(Form1.dlgOpen1.FileName));  // îòêðûâàåì êíèãó
   Sheet:= Ex.WorkBooks[1].Sheets[1]; //  öåïëÿåìñÿ ê ëèñòó ¹1
   sl:= TStringList.Create;
   try
     Row:= 1; // íà÷èíàåì ñ÷èòûâàòü ñî 2-é ñòðîêè
     while (Sheet.Cells[Row , 1{÷èòàåì 1 êîëîíêó}].Text <> '') do
     begin
       sl.Add(Sheet.Cells[Row , 1]);  // äîáîâëÿåì â ñòðèíãëèñò
       inc(Row);
     end;

     if sl.count > 0 then
     begin
       Form1.RzStringGrid3.RowCount:=sl.Count;
       for I:=0 to Form1.RzStringGrid3.RowCount - 1 do
        Form1.RzStringGrid3.Cells[1,I]:=sl[I];
     end;
   finally
     Sheet:= Unassigned;
     Ex.Quit;
     sl.Free;
   end;
     MessageBox(Handle,'Çàãðóçêà ïåðâîé êîëîíêè çàâåðøåíà!','',MB_ICONINFORMATION);
  end;
end;

Код грузит первый столбец из XLS в StringGrid. Однако, он начинает загрузку с фиксированной в StringGrid-e колонки. А мне надо со второй строки. Мешает условие

Form1.RzStringGrid3.RowCount:=sl.Count;

Если его убираю, то ошибка "List out of bounds(38)". Всего в StringGrid-e 39 строк. Подмогите подправить код. Заранее спасибо.

[ArtGrek]

я верно понимаю что вам надо из StringList(sl) сохранить во второи столбик StringGrid'a?
и при таком коде не выходит?

Form1.RzStringGrid3.Cells[1,I]:=sl[I];

[artemavd]

я верно понимаю что вам надо из StringList(sl) сохранить во второи столбик StringGrid'a?

Да.

и при таком коде не выходит?
Код:

Form1.RzStringGrid3.Cells[1,I]:=sl[I];

Не выходит при строке

Form1.RzStringGrid3.RowCount:=sl.Count;

Мне не надо, чтобы у меня в Stringgrid добавлялись столько строк сколько их в sl.Count, у меня фиксированное количество строк.

[ArtGrek]

вот скрины с екселя и после загрузки в таблицу, что не так, я просто ни как понять не могу

[artemavd]

Ну как что. То, что загрузка идет начиная с фиксированной колонки, мне не надо чтобы у меня трогались фиксированные строки.

[ArtGrek]

несовпадение было в стринг листе, так как его порядковыи номер всегда на 1 меньше

     if sl.count > 0 then
     begin
      RzStringGrid3.RowCount:=sl.Count + 1;
      for i:=1 to RzStringGrid3.RowCount - 1 do
        RzStringGrid3.Cells[1,i]:=sl[I - 1];
     end;

[artemavd]

Зачот! Спасибо