[cadil]

В примерах, которые я видел, рассматриваются вопросы, в основном, чтения и записи информации из ячеек Excel и форматирование текста.
Помогите организовать поиск записи из Edit на форме Delphi на листе Excel.
Заранее благодарю!

[Kailon]

Глянь здесь

[cadil]

Сообщение от Kailon

Глянь здесь

Спасибо за исходник. К сожалению, все, что связано в этом исходнике с Экселем - это To Excel и From Excel.
Помогите переписать следующий код применительно к Excel:

Код:

// поиск и выделение
//Search and select word "Picture"
 ilengy:=Length(WordDocument1.Range.Text);
 for j:=0 to ilengy-8 do
  begin
   a:=j;
   b:=j+7;
   if WordDocument1.Range(a,b).Text='Picture'
   then
    begin
     vstart:=j;
     vend:=j+7;
    end;
  end;
 WordDocument1.Range(vstart,vend).Select;

[cadil]

Помогите, пожалуйста, записать в Delphi следующий макрос VB (поиск записи bbbb в таблице Эксель):

Код:

Sub find_1()
   Range("A1").Select
    Cells.Find(What:="bbbb", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

[Pyro]

должен быть способ запускать, не переписывая на дельфи

[Kailon]

Напиши макрос в Excel, а из Delphi просто вызывай его:

Код:

  Excel.Application.Run('NameMacros');

[MiraLaklamon]

Сообщение от Kailon

Напиши макрос в Excel, а из Delphi просто вызывай его:

Код:

  Excel.Application.Run('NameMacros');

Там есть особенность связанная с безопасностью - по умолчанию в Excel запрещено выполнение макросов...
Нет, если конечно нужно лично под себя, то можно просто у себя на компьютере в Excel'е разрешить выполнение макросов и всё.
Если же нужно чтобы работало везде, то помнится когда-то для какой-то задачи я в реестре включала разрешение выполнять макросы, потом запускала Excel, выполняла макрос и после этого восстанавливала в реестре прежнее значение. Но в конце концов решила просто переписать макрос на Delphi и не морочить себе голову.

Сообщение от cadil

Помогите, пожалуйста, записать в Delphi следующий макрос VB (поиск записи bbbb в таблице Эксель):

Код:

Sub find_1()
   Range("A1").Select
    Cells.Find(What:="bbbb", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

Это всё элементарно переводится на Delphi:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[LOCALE_USER_DEFAULT]:=True;
  ExcelApplication1.Workbooks.Open('Excel1.xls', False, False, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, LOCALE_USER_DEFAULT);

  ExcelApplication1.Range['A1', EmptyParam].Select;
  ExcelApplication1.Cells.Find('bbbb', ExcelApplication1.ActiveCell, xlFormulas, xlPart, xlByRows,
                               xlNext, False, False).Activate;
end;

ExcelApplication1 - это стандартная компонента Delphi - должна быть на вкладке "Servers".