在DELPHI中，如何通過編程方式，將EXCEL電子表中的單元格內容提取出來？

var

FExcelApp: Variant;

FSheet: Variant;

FRange: Variant;

begin

FExcelApp := CreateOleObject( 'Excel.Application' );

FExcelApp.Visible := False;

FExcelApp.Caption := 'XXXXXXX';

FExcelApp.WorkBooks.Add;

FExcelApp.WorkSheets[1].Activate;

FSheet := FExcelApp.WorkSheets[1];

FRange := FSheet.Cells[2,2]; //FRange才是妳需要的 那個單元格

//接下來對這個FRange設置屬性

FRange.NumberFormatLocal := '@';

FRange.Value := '測試。。。。';

FRange.Font.Name := '宋體';

FRange.Font.Size := '12';

FRange.Font.Color := clred;

//--------------------

FExcelApp.Visible := True;

ShowMessage(FRange.Value);

end;

照這個意思推