-
Имеем работоспособный макрос: (предложен кусочек) On Error Resume Next
Err.Clear
Cells.Find(What:=NomNumber, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Err.Number <> 0 Then
GoTo Start
End If Как переложить в Delphi отслеживание ошибок VBA я не представляю, подскажите пожалуйста. Заранее благодарен, Кирилл.
-
> Cells.Find(What:=NomNumber, After:=ActiveCell, LookIn:
> =xlFormulas, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:
> =xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
Извините, у меня и поиск перенести в Делфи не получается чисто интуитивно. Подскажите где можно накопать какую либо документацию?
-
Делаю так: ExcelApplication.Workbooks[1].WorkSheets[1].Cells.Find['3'].Activate; Пишет: Член группы не найден.
-
Подсказка: Find - это функция, а не свойство.
-
> ExcelApplication.Workbooks[1].WorkSheets[1].Cells.Find['3'].
> Activate;
>
> Пишет: Член группы не найден.
>
метод Find возвращает диапазон, состоящий из одной ячейки, а вы указываете индекс, причем как строку. Ниже - пример, как можно искать ячейки.
function DoSomethingWithFound(range: variant, params: array of variant): integer;
var
Match, FirstFound, PrevMatch: Variant;
begin
Result := 0;
Match := Unassigned;
Match :=range.Find(What:=params[1], Lookin:=params[2]);
if VarIsEmpty(Match) then
exit
else
Firstfound := Match.Address;
repeat
Inc(Result);
PrevMatch := match;
match := Unassigned;
match := range.FindNext(Prevmatch);
until (match.Address = firstfound) or VarIsEmpty(match);
Prevmatch := Unassigned;
FirstFound := Unassigned;
end;
-
> umbra © (13.09.06 11:51) [4]
У автора, судя по коду, раннее связывание.
-
э-э-э, да, недоглядел. :( Но принцип остается тот же, только типы, возможно, надо приводить.
|
Есть новые 
Нет новых [134431 +10][b:0][p:0.001]