باز کردن یک فایل excel با کامپوننت server

سلام

شما از ExcelExport استفاده کن عالیه جستجو کن پیداش میکنی

کسی کاربرد اجزاء پالت Server نمیدونه ? :گیج:
من ازhelp دلفی هم نتونستم بفهمم

procedure TTumOgr.SpeedButton1Click(Sender: TObject);

var XApp:Variant;

sheet:Variant;

r,c:Integer;

row,col:Integer;

filName:Integer;

q:Integer;

begin

XApp:=CreateOleObject('EXCEL.Application'&  #41;;

XApp.Visible:=true;

XApp.WorkBooks.Add(-4167);

XApp.WorkBooks[1].WorkSheets[1].Na  me:='Sheet1';

sheet:=XApp.WorkBooks[1].WorkSheets&#9  1;'Sheet1'];

  for filName:=0 to DMod.OgrSiralaQuery.FieldCount-1 do

   begin

    q:=filName+1;

    sheet.Cells[1,q]:=DMod.OgrSiralaQuery.  Fields[filName].FieldName;

   end;

for r:=0 to DMod.OgrSiralaQuery.RecordCount-1 do

begin

  for c:=0 to DMod.OgrSiralaQuery.FieldCount-1 do

  begin

   row:=r+2;

   col:=c+1;

   sheet.Cells[row,col]:=DMod.OgrSiralaQu  ery.Fields[c].AsString;

  end;

  DMod.OgrSiralaQuery.Next;

end;

XApp.WorkSheets['Sheet1'].Range['A1&#5  8;AA1'].Font.Bold:=True;

XApp.WorkSheets['Sheet1'].Range['A1&#5  8;K1'].Borders.LineStyle :=13;

XApp.WorkSheets['Sheet1'].Range['A2&#5  8;K'+inttostr(DMod.OgrSiralaQuery.RecordCount-1)].Borders.LineStyle :=1;

XApp.WorkSheets['Sheet1'].Columns[1&#9  3;.ColumnWidth:=16;

XApp.WorkSheets['Sheet1'].Columns[2&#9  3;.ColumnWidth:=7;

XApp.WorkSheets['Sheet1'].Columns[3&#9  3;.ColumnWidth:=19;

XApp.WorkSheets['Sheet1'].Columns[4&#9  3;.ColumnWidth:=9;

XApp.WorkSheets['Sheet1'].Columns[5&#9  3;.ColumnWidth:=9;

XApp.WorkSheets['Sheet1'].Columns[6&#9  3;.ColumnWidth:=9;

XApp.WorkSheets['Sheet1'].Columns[7&#9  3;.ColumnWidth:=46;

XApp.WorkSheets['Sheet1'].Columns[8&#9  3;.ColumnWidth:=9;

XApp.WorkSheets['Sheet1'].Columns[9&#9  3;.ColumnWidth:=7;

XApp.WorkSheets['Sheet1'].Columns[10&#  93;.ColumnWidth:=6;

XApp.WorkSheets['Sheet1'].Columns[11&#  93;.ColumnWidth:=13;



end;

procedure TForm1.BitBtnFromEXCELOnClick(Sender: TObject);

var

WorkBk : _WorkBook;

WorkSheet : _WorkSheet;

K, R, X, Y : Integer;

IIndex : OleVariant;

RangeMatrix : Variant;

NomFich : WideString;

begin

NomFich := ‘C:\MyDirectory\NameOfFile.xls’;

IIndex := 1;

XLApp.Connect;

// Open the EXCEL File

XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyP  aram,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyP  aram,EmptyParam,

EmptyParam,EmptyParam,0);

WorkBk := XLApp.WorkBooks.Item[IIndex];

WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;

// In order to know the dimension of the WorkSheet, i.e the number of rows and the

// number of columns, we activate the last non-empty cell of it  

WorkSheet.Cells.SpecialCells(xlCellTypeLastCel  l,EmptyParam).Activate;

// Get the value of the last row

X := XLApp.ActiveCell.Row;

// Get the value of the last column

Y := XLApp.ActiveCell.Column;

// Define the number of the columns in the TStringGrid

  GenericStringGrid.ColCount := Y;

// Assign the Variant associated with the WorkSheet to the Delphi Variant Matrix 

  RangeMatrix := XLApp.Range['A1',XLApp.Cells.Item[X,Y]  ].Value;

// Quit EXCEL and Disconnect the Server

  XLApp.Quit;

  XLApp.Disconnect;

//  Define the loop for filling in the TStringGrid

  K := 1;

  repeat

    for R := 1 to Y do

      GenericStringGrid.Cells[(R - 1),(K - 1)] := RangeMatrix[K,R];

    Inc(K,1);

    GenericStringGrid.RowCount := K + 1;

  until

   K > X;

// Unassign the Delphi Variant Matrix

   RangeMatrix := Unassigned;

end;

به نام خدا

ببین چطوره ؟ من قبلا یک بار استفاده کرده ام

به صورت درسی و آموزشی در 7 درس و 7 صفحه می باشد .

http://delphi.about.com/od/database/l/aa090903a.htm

:موفق:

به نام خدا

و یا این

:موفق: http://vzone.virgin.net/graham.marsh....htm#excel.htm