Delphi && Excel Replace

← →
velial (2003-12-22 11:59) [0]

Вопрос, кто знает как можно запустить Replace от МастДаевского Ехеля? через OLE я действую так:
ad := VarArrayCreate([1,dm.quBudget.RecordCount+1,1,11],varVariant); try e := GetActiveOleObject("Excel.Application"); except e := CreateOleObject("Excel.Application"); end; e.Visible := false; e.WorkBooks.Add(GetPath(Application.ExeName) +"template\XLtemplate.xls"); Cell1 := e.Cells[5,1]; Cell2 := e.Cells[5 + dm.quBudget.RecordCount, 11]; Range := e.Range[Cell1, Cell2]; Range.Value := ad;

← →
Sandman25 (2003-12-22 12:05) [1]

Как вариант, можно заменять в Delphi.

IExcelRange: Range;

IExcelRange.Value := StringReplace(IExcelRange.Value,
OldValue, NewValue, [rfIgnoreCase]);

← →
velial (2003-12-22 12:12) [2]

ок, спасибо, щас попробую

← →
velial (2003-12-22 12:49) [3]

а что это за тип IExcelRange: Range; ?????
в каком модуле описан?
никак не могу найти, может
IExcelRange: Variant;
мож так надо?

← →
velial (2003-12-22 12:53) [4]

или точнее вопрос поставить так:
как правильно из Делфа сделать в Ехеле аналог
Cells.Replace What:="3", Replacement:="33", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

← →
velial (2003-12-22 13:00) [5]

нашел!

e.Cells.Replace("3","33",xlPart,xlByRows,false,false,false);

← →
Sandman25 (2003-12-22 13:09) [6]

Молодец!

Delphi && Excel Replace Найти похожие ветки