Code: Alles auswählen
function ReplaceCellWithCode(wb: TsWorkBook; code, replace: string): Boolean;
var
MyRow, MyCol: Cardinal;
MyWorksheet: TsWorksheet;
MySearchParams: TsSearchParams;
MyReplacParams: TsReplaceParams;
begin
Result := False;
MySearchparams := InitSearchParams(code, [soEntireDocument], swWorkbook);
MyReplacParams := InitReplaceParams(replace, [roReplaceEntireCell]);
// Create search engine and execute replace
MyRow := 0;
MyCol := 0;
with TsSearchEngine.Create(wb) do begin
Result:= ReplaceFirst(MySearchParams, MyReplacParams, MyWorksheet, MyRow, MyCol);
Free;
end;
end;
auch ein paar Beispiele hierzu unter https://github.com/afriess/LazInfos/tre ... preadsheet
Nun möchte in dieser Art auch Formeln manipulieren können, ur dazu fällt mir aktuell kein Weg ein, wie ich Excel eine Markierung in der Formel unterjubeln kann und zugleich aber das trotzdem ein gültiges format ist. Vielleicht kann mir wer da einen (Gedanklichen-) Schubser geben.
Das ganze soll es ermöglichen, das eine Person Excel-Reports erstellen kann, die dann vom System ausgefüllt werden. Also Excel als Template für die Reports in Excel
Andreas