Корректное сохранение в Excel

[artemavd]

Добрый вечер! Вообщем возник такой вопрос. В программе происходит работа с Excel. Вот процедура сохранения StringGrid-a в Excel:

//сохранение
function SaveAsExcelFile1(StringGrid1:TStringGrid; FileName:string):Boolean;
const
 xlWBATWorksheet = -4167;
var
 Row,Col:integer;
 GridPrevFile:string;
 XLApp,Sheet:OLEVariant;
begin
 Result:=False;
 XLApp:=CreateOleObject('Excel.Application');
 try
  XLApp.Visible:=False;
  XLApp.Workbooks.Add(xlWBATWorkSheet);
  Sheet:=XLApp.Workbooks[1].WorkSheets[1];
  Sheet.Name:='My Sheet Name';
  for Col:=0 to StringGrid1.ColCount-1 do
     for Row:=0 to StringGrid1.RowCount-1 do
        Sheet.Cells[Row+1,Col+1]:=StringGrid1.Cells[Col,Row];
  try
    XLApp.Workbooks[1].SaveAs(FileName);
    Result:=True;
  except
  end;
 finally
   if not VarIsEmpty(XLApp) then
   begin
     XLApp.DisplayAlerts:=False;
     XLApp.Quit;
     XLApp:=Unassigned;
     Sheet:=Unassigned;
   end;
 end;
end;

procedure TForm8.BitBtn3Click(Sender: TObject);
begin
begin
 if SaveDialog1.Execute then
  SaveAsExcelFile1(StringGrid1,SaveDialog1.FileName); 
end;
end;

и открытие:

//открытие
function xls_to_StringGrid1(StringGrid1:TStringGrid; axlsfile:string):Boolean;
const
 XlCellTypeLastCell=$0000000b;
var
 XLapp,Sheet:Olevariant;
 RangeMatrix:Variant;
 x,y,k,r:integer;
begin
  Result:=false;
  XLapp:=CreateOleObject('excel.application');
  try
    XLapp.Visible:=false;
    XLapp.Workbooks.Open(axlsfile);
    Sheet:=XLapp.Workbooks[1].Worksheets[1];
    Sheet.cells.specialcells(XLCellTypeLastCell,emptyparam).Activate;
    x:=XLapp.Activecell.Row;
    y:=XLapp.Activecell.Column;
    StringGrid1.RowCount:=x;
    StringGrid1.ColCount:=y;
    RangeMatrix:=XLapp.Range['a1',XLapp.Cells.Item[x,y]].Value;
    k:=1;
    repeat
      for
        r:=1 to y do
        StringGrid1.Cells[r-1,k-1]:=RangeMatrix[k,r];
        inc(k,1);
        StringGrid1.RowCount:=k+1;
        until k>x;
        RangeMatrix:=Unassigned;
    finally
    if not Varisempty(XLapp) then
      begin
       XLapp.Quit;
       XLapp:=Unassigned;
       Sheet:=Unassigned;
       Result:=True;
      end;
    end;
  end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  xls_to_StringGrid1(StringGrid1,OpenDialog1.FileName); 
end;

Но при открытии состояние таблицы изменяется . Мне нужно, чтобы сетка не изменялась а данные загружались как надо. На рисунке 1 StringGrid перед загрузкой, а на рисунке 2 StringGrid с загруженными данными. Вопрос: как сделать, чтобы структура сетки оставалась неизменной, а вставлялись только данные? Заранее спасибо за ответы.

P.S. Уважаемые модераторы! Прощу прощения за то, что не в том разделе разместил тему. Хотел создать ее в "Общие вопросы Delphi", но ошибся. Прошу вас, перенесите тему и не закрывайте пожалуйста ее.

[Evgeniy26]

Невникал, но убери работу со строками и столбцами StrinGrid'а:

function xls_to_StringGrid1(StringGrid1:TStringGrid; axlsfile:string):Boolean;
const
 XlCellTypeLastCell=$0000000b;
var
 XLapp,Sheet:Olevariant;
 RangeMatrix:Variant;
 x,y,k,r:integer;
begin
  Result:=false;
  XLapp:=CreateOleObject('excel.application');
  try
    XLapp.Visible:=false;
    XLapp.Workbooks.Open(axlsfile);
    Sheet:=XLapp.Workbooks[1].Worksheets[1];
    Sheet.cells.specialcells(XLCellTypeLastCell,emptyparam).Activate;
    x:=XLapp.Activecell.Row;
    y:=XLapp.Activecell.Column;
    RangeMatrix:=XLapp.Range['a1',XLapp.Cells.Item[x,y]].Value;
    k:=1;
    repeat
      for
        r:=1 to y do
        StringGrid1.Cells[r-1,k-1]:=RangeMatrix[k,r];
        inc(k,1);
        until k>x;
        RangeMatrix:=Unassigned;
    finally
    if not Varisempty(XLapp) then
      begin
       XLapp.Quit;
       XLapp:=Unassigned;
       Sheet:=Unassigned;
       Result:=True;
      end;
    end;
  end;

Или строки оставь.