[Forengeit]

Есть 2 сринггрида в котором 1 строка, n количество столбцов (которое задает пользователь)
ребят вообщем вопрос такой
как сделать так что бы в excel'е значение которое были внесены в стринг грид писали в строках а не в столбцах

вот код который сохраняет в столбцы

Код:

 
function SaveAsExcelFile(stringGrid: 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 := true;
    XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet      := XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name := 'My Sheet Name';
    for col := 0 to stringGrid.ColCount - 1 do
      for row := 0 to stringGrid.RowCount - 1 do
        Sheet.Cells[row + 1, col + 1] := stringGrid.Cells[col, row];
    try
      XLApp.Workbooks[1].SaveAs(FileName);
      Result := True; 
    except 
      // Error ? 
    end; 
  finally
    if not VarIsEmpty(XLApp) then 
    begin 
      XLApp.DisplayAlerts := False; 
      XLApp.Quit; 
      XLAPP := Unassigned; 
      Sheet := Unassigned;
    end;
  end;
end;

[Страдалецъ]

Так попробуйте:

Код:

function SaveAsExcelFile(stringGrid: 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 := true;
    XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet      := XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name := 'My Sheet Name';
    for col := 0 to stringGrid.ColCount - 1 do      
        Sheet.Cells[col + 1, 0] := stringGrid.Cells[col, 0];
    try
      XLApp.Workbooks[1].SaveAs(FileName);
      Result := True; 
    except 
      // Error ? 
    end; 
  finally
    if not VarIsEmpty(XLApp) then 
    begin 
      XLApp.DisplayAlerts := False; 
      XLApp.Quit; 
      XLAPP := Unassigned; 
      Sheet := Unassigned;
    end;
  end;
end;

[Forengeit]

запускается
ну экспорт не делает

может что то с батаном??

Код:

procedure TForm2.RzBitBtn2Click(Sender: TObject);
begin
 if SaveAsExcelFile(stringGrid1, 'c:\MyExcelFile.xlsx') then
    ShowMessage('stringGrid saved!');
end;

и кстате подскажите как сделать та ктчо бы в одном екселе 2 стрингрида сохранялось

[Forengeit]

ну что не кто не поможет?

[Страдалецъ]

Сообщение от Forengeit

запускается
ну экспорт не делает

Собственно маловато инфы.
Ексель запускается?
Вывод хоть чего-либо происходит?

[Forengeit]

вообщем прикрепил программу, и excel файл как должно выглядеть
а как получается на деле можно увидеть запустив программу