Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Вниз

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]

Молодец!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c