delphi讀取excel

簡單的例子

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp,MyWorkBook: OLEVariant;
begin
  opendialog1.Filter:='Microsoft Excel Workbook (*.xls)|*.XLS|'; 
  edit2.Text := 'sheet1';
  if opendialog1.Execute then
  begin
      edit1.Text:=opendialog1.FileName;
    try
      ExcelApp:=CreateOleObject('Excel.Application');
      MyWorkBook:=CreateOleobject('Excel.Sheet');
    except
      application.Messagebox('無法打開Xls文件，請確認已 經安裝EXCEL.','',
           mb_OK+mb_IconStop);
      Exit;
    end;
    MyworkBook:= ExcelApp.workBooks.Open(opendialog1.FileName);
    //打開文件后，對文件進行操作
    label1.caption := MyWorkBook.WorkSheets[1].Cells[1,1].Value;
   end;
end;

?