delphi excel

[shrews]

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

procedure TForm1.Button15Click(Sender: TObject);
var
 WorkBk: _WorkBook;
 WorkSheet: _WorkSheet;
 K,R,X,Y: integer;
 IIndex: OleVariant;
 RangeMatrix: Variant;
 NomFich: WideString;
begin
 NomFich:=ExtractFilePath(ParamStr(0))+'xl.xls';
 IIndex:=1;
 XLApp.Connect;
 // Открываем файл Excel
 XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                                EmptyParam,EmptyParam,0);
 WorkBk:=XLApp.WorkBooks.Item[IIndex];
 WorkSheet:=WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
 // Чтобы знать размер листа (WorkSheet), т.е. количество строк и количество
 // столбцов, мы активируем его последнюю непустую ячейку
 WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
 // Получаем значение последней строки
 X:=XLApp.ActiveCell.Row;
 // Получаем значение последней колонки
 Y:=XLApp.ActiveCell.Column;
 // Определяем количество колонок в TStringGrid
 StringGrid1.ColCount:=Y+1;
 // Сопоставляем матрицу WorkSheet с нашей Delphi матрицей
 RangeMatrix:=XLApp.Range['A1',XLApp.Cells.Item[X,Y]].Value2;
 // Выходим из Excel и отсоединяемся от сервера
 XLApp.Quit;
 XLApp.Disconnect;
 //  Определяем цикл для заполнения TStringGrid
 K:=1;
  repeat
   for R:=1 to Y do
    StringGrid1.Cells[(R),(K)]:=RangeMatrix[K,R];
    StringGrid1.RowCount:=K+1;
    inc(K,1);
  until K>X;
 // Un assign the Delphi Variant Matrix
 RangeMatrix:=Unassigned;
end;

и второе запись из стрингрида в excel немогу понять в чем ошибка

procedure TForm1.Button13Click(Sender: TObject);
var
 Excel, WorkBook, Sheet: Variant;
begin
 Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
// Excel:=CreateOleObject('Excel.Application'); // для остальных
 Excel.SheetsInNewWorkbook:=1;
 WorkBook:=Excel.WorkBooks.Add;
 Sheet:=WorkBook.WorkSheets[1];
 Sheet.Cells.VerticalAlignment:=xlCenter;
 Sheet.Cells[1, 1]:='XX___1___XX';
 Sheet.Cells[5, 5]:='XX___1___XX'; 
 Sheet.Cells.Columns.AutoFit;
 Excel.Visible:=True;
end;

п.с сорри за орфографию

[Трофимов Александр]

В делфи нумерация столбцов по-моему с 0 начинается

[S@fer]

В StringGrid'e левая верхняя ячейка имеет координаты [0,0].
т.е.

K:=1;
repeat
for R:=1 to Y do
StringGrid1.Cells[(R),(K)]:=RangeMatrix[K,R];
StringGrid1.RowCount:=K+1;
inc(K,1);
until K>X;

заменить на

 K:=0;
  repeat
   for R:=0 to Y-1 do
    StringGrid1.Cells[(R),(K)]:=RangeMatrix[K,R];
    StringGrid1.RowCount:=K+1;
    inc(K,1);
  until K>X;

[S@fer]

А по второму вопросу есть хорошая статья
http://delphiworld.narod.ru/base/excel_work.html
там всё подробно описано

[shrews]

спс всем))

[shrews]

не виходит чет пиешт First chance exception at $7C812AEB. Exception class EVariantBadIndexError with message 'Variant or safe array index out of bounds'. Process Project1.exe (3568)

[S@fer]

Попробуйте так

 K:=1;
  repeat
   for R:=1 to Y do
    StringGrid1.Cells[(R-1),(K-1)]:=RangeMatrix[K,R];
    StringGrid1.RowCount:=K+1;
    inc(K,1);
  until K>X;

[shrews]

оО спс) а щет второво я так ниче и не нашол

[S@fer]

Вот пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  XL: variant;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 // Обьект EXCEL
  XL := CreateOleObject('Excel.Application');
// Загружаем документ
  XL.WorkBooks.Open(ExtractFilePath(ParamStr(0))+'\akt.xls');
  {
  //Или создаем новый документ
  XL.WorkBooks.Add;
  }
 // Делаем его видимым
  XL.Visible := true;
  for i:=0 to StringGrid1.ColCount do
  for j:=0 to StringGrid1.RowCount do begin
  XL.WorkBooks[1].WorkSheets[1].Cells[i+1, j+1]:=StringGrid1.Cells[i,j];
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
a:integer;
begin
a:=1;
for i:=0 to StringGrid1.ColCount do
for j:=0 to StringGrid1.RowCount do begin
StringGrid1.Cells[i,j]:=IntToStr(a);
a:=a+1;
end;

end;

end.

[S@fer]

Не забудь в Uses добавить ComObj