A mellékelt példaprogram megnyitása előtt az ExcelUpdate.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens WorkBook tulajdonságában adhatjuk meg az Excel állomány elérési útját és nevét, a WorkSheetIndex-ben pedig a módosítani kívánt munkalap sorszámát. A legelső munkalap indexe 1.
A CellFrom és a CellTo property-kben adhatjuk meg azt a tartományt, amelyben a módosítást végre akarjuk hajtani. A property-kben szabályos Excel cellacímzéseket kell használnunk, pl.: AB15.
A cserélendő értékek listáját az UpdateList property-ben állíthatjuk be. A komponens végignézi a megadott tartományban szereplő cellák értékeit, és ha egy cella olyan értéket tartalmaz, amely szerepel a listában, akkor azt az UpdateValue-ban megadott értékre cseréli.
A művelet az Update metódus meghívásával kezdődik.
A komponenst a TComponent osztályból származtatjuk. Az Excel programot csak a háttérben nyitjuk meg, az OLE segítségével. Az Excel program, és objektumai eléréséhez OleVariant (ComObj unit) típusú változókat használunk.
Először elindítjuk a háttérben az Excel programot.
ExcelApp:=CreateOleObject('Excel.Application');
A megadott munkafüzetet az Open metódus meghívásával nyithatjuk meg.
ExcelApp.WorkBooks.Open(FWorkBook);
A megadott indexű munkalapot az alábbi módon érhetjük el:
WorkSheet:=ExcelApp.ActiveWorkBook.Worksheets.Item[FWorkSheetIndex];
A CellFrom és a CellTo property-kben megadott cellakoordinátákat a cellák feldolgozása miatt fel kell bontanunk külön oszlop és sor értékekre. Így az oszlopok és sorok elérését ciklusok segítségével megvalósíthatjuk.
A sorok növelése nem okoz problémát. Az oszlopoknál viszont betűkkel kell dolgoznunk. A helyzetet bonyolítja, hogy a Z oszlop után az AA oszlop következik, és így tovább.
Az oszlopok növelésére a következő algoritmust használhatjuk.
if c2.Column[Length(c2.Column)]='Z' then begin
c2.Column[Length(c2.Column)]:='A';
c2.Column:=c2.Column+'A';
end
else
c2.Column[Length(c2.Column)]:=Chr(Ord(c2.Column[Length(c2.Column)])+1);
Egy cellát a Range objektum segítségével választhatunk ki.
Range:=WorkSheet.Range[Column+Row,Column+Row];
...
Range.Value:=FUpdateValue;
A módosítás végrehajtása után elmentjük a módosított munkafüzetet, majd bezárjuk az Excel programot.
ExcelApp.ActiveWorkBook.Save;
ExcelApp.Quit;
Az egész művelet a háttérben zajlik, így a felhasználó az Excel program megnyitásából semmit sem lát.