Текущий архив: 2004.01.09;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
