Excel Macro - Problem beim übersetzen

[Grolle]

Hallo,

ich möchte in meiner Anwendung etwas in einer Excel-Datei suchen und ersetzen.
Allerdings habe ich jetzt ein Problem mit folgendem (Macro)Code:

Delphi-Quellcode:

Cells.Replace What:="a", Replacement:="esca", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False

übersetzt habe ich das so:

Delphi-Quellcode:

  ExcelApp.Cells.Replace.SearchFormat:=False;
  ExcelApp.Cells.Replace.ReplaceFormat:=False;
  ExcelApp.Cells.Replace.MatchCase:=True;
  ExcelApp.Cells.Replace.What := 'a';
  ExcelApp.Cells.Replace.Replacement:='esca';

Das ist aber wohl nicht so richtig :stupid:

Viele Grüße ...

[shmia]

Replace ist eine Methode und hat viele Übergabeparameter.
Die Replace-Methode gehört zum Range-Objekt.

Code:

HRESULT _stdcall Replace(
                [in] VARIANT What, 
                [in] VARIANT Replacement, 
                [in, optional] VARIANT LookAt, 
                [in, optional] VARIANT SearchOrder, 
                [in, optional] VARIANT MatchCase, 
                [in, optional] VARIANT MatchByte, 
                [in, optional] VARIANT SearchFormat, 
                [in, optional] VARIANT ReplaceFormat, 
                [out, retval] VARIANT_BOOL* RHS);

Wie man sieht, gibt es einige optionale Parameter.
In Delphi ist man nun meistens gezwungen alle Parameter zu übergeben:

Delphi-Quellcode:

if ExcelApp.Cells.Replace('a', 'esca', xlPart, xlByRows, True, EmptyParam, False, False) then ...

Wenn man für einen Parameter keinen Wert angeben möchte, darf man die Konstante EmptyParam übergeben.

[Grolle]

Besten Dank :thumb: