怎么读写并操作Excel文件，得到所需Excel格式

如何读写并操作Excel文件，得到所需Excel格式？
我有一个Excel文件，共17列，其中各列的单元格中都可能有如“ACTCW         CWACT         CLIP”的内容。我想通过Delphi控制该Excel表，将所有形如上述单元格的内容改成“ACTCW&CWACT&CLIP”。

注：上述单元格中的内容为举例，内容不一定相同，相同的只是格式。

谢谢！

------解决方案--------------------
这玩意遍历单元格，然后处理，想弄成什么样都可以啊。
通过Cells.Item[X,Y]去访问
------解决方案--------------------
exclplctn_test: TExcelApplication;
exclwrksht1: TExcelWorksheet;
exclwrkbk1: TExcelWorkbook;


var
vrow, vcol: Integer;
i, j: Integer;
f: string;
vvalue: string;
begin
if OpenDialog1.Execute then
f := OpenDialog1.FileName
else
f := ' ';
if f = ' ' then
Exit;
try
exclplctn_test.Connect;
exclplctn_test.Visible[0] := False;
exclplctn_test.Workbooks.Open(f, null, null, null, null, null, null, null, null, null, null, null, null, null, null, 0);
exclwrkbk1.ConnectTo(exclplctn_test.Workbooks[1]);
exclwrksht1.ConnectTo(exclwrkbk1.Worksheets[1] as _Worksheet);
vrow := exclwrksht1.UsedRange[1].Rows.count;
vcol := exclwrksht1.UsedRange[1].Columns.Count;
for i := 2 to vrow do
for j := 1 to vcol do
begin
vvalue := exclwrksht1.Cells.Item[i, j];
if (vvalue = 'ACTCW ') or (vvalue = 'CWACT ') or (vvalue = 'CLIP ') then
exclwrksht1.Cells.Item[i, j] := 'ACTCW&CWACT&CLIP ';
Continue;
end;
except
Application.MessageBox( '读取Excel文件失败 ', '提示 ', 64);
exclwrksht1.Disconnect;
exclwrkbk1.Disconnect;
exclplctn_test.Workbooks[1].Close(True, 0, 0, 0);
exclplctn_test.Disconnect;
exit;
end;
exclwrksht1.Disconnect;
exclwrkbk1.Disconnect;
exclplctn_test.Workbooks[1].Close(True, 0, 0, 0);
exclplctn_test.Disconnect;
end;
------解决方案--------------------
这是别人给我的
具体组件代码如下：
unit PrintSQL_Data;

interface

uses
SysUtils, Classes,Messages, Variants, Graphics, Controls, Forms,
Dialogs,windows,ADODB,ComObj,Excel2000,RzPrgres;

type
TPrintSQL_Data = class(TComponent)
private
{ Private declarations }
FDataSet:TADODataSet;
FActive:Boolean;
FSQLString:string;
FExcelTitle:TCaption;
FPrinting:Boolean;
FExcelFileName:string;
procedure SetSQLString(Value:string);
procedure SetExcelTitle(Value:TCaption);
procedure SetExcelFileName(Value:string);
procedure SetActive(Value:Boolean);
procedure SetPrinting(Value:Boolean);
procedure SetDataSet(Value:TADODataSet);
//打印
Function GetExcelCoulmnCaption(num:Cardinal):string;
protected
{ Protected declarations }
public
{ Public declarations }
Constructor Create(AOwner:TComponent); Override;
Destructor Destroy; override;
procedure PrintSqlDataToExcel; overload;
procedure PrintSqlDataToExcel(PB:TRzProgressBar); overload;
published
{ Published declarations }
property SQLString:string