[alex_rR]

[Ildar-tsr]

Код:

procedure TForm1.Button1Click(TObject: Sender);
var
  e: OleVariant;
begin
  e:= CreateOleObject('Excel.Application');
  e.Workbooks.Add('C:\test.xls');
  //первая индекс - номер строки, второй - номер столбца
  Edit1.Text:= e.Cells[5,3].Value; //тут из ячейки C5
  e.DisplayAlers:= false;
  e.Quit;
end;

[alex_rR]

Спасибо конечно, и это мне пригодится, но не то малость я имею ввиду не к ячейке обращение, а к отдельному объекту (фигура "прямоугольник" и в нем текст). Во, как
Еще вопросик "Edit1.Text:= e.Cells[5,3].Value;" я малость переделал

Код:

на
e:= CreateOleObject('Excel.Application');
  e.Workbooks.Add('C:\Users\elias\Desktop\форма1.xls');

  for x:=2 to 7 do
    for y:=19 to 100 do
      begin

            bbt[x,y]:= e.Cells[x,y].Value;
            stringgrid1.Cells[x,y]:=e.Cells[x,y].Value; дак вот тут у меня пустой массив получается :( 
     end;

Админ: Пользуемся тегами для оформления кода!

[Ildar-tsr]

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

...а к отдельному объекту (фигура "прямоугольник" и в нем текст).

Если в своей книге нажмешь на прямоугольник с текстом, то в верхнем левом углу (левее поля, где значения в ячейку вводятся) увидишь название своего объекта. В твоей книге они называются Текст 1, Текст 2 и т.д.
Возьмем например Ф.И.О. в самом конце (Текст 9):

Код:

var
  e: OleVariant;
  s: string;
begin
  e:= CreateOleObject('Excel.Application');
  e.Workbooks.Add('C:\Users\elias\Desktop\форма1.xls');
  
  e.ActiveSheet.Shapes.Range['Текст 9'].Select;
  s:= e.Selection.ShapeRange.TextFrame2.TextRange.Characters.Text;
  ShowMessage(s);

  e.Visible:= true;
end;

[Ildar-tsr]

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

дак вот тут у меня пустой массив получается

Да ты издеваешься что ли?

Код:

stringgrid1.Cells[СТОЛБЕЦ,СТРОКА]:=e.Cells[СТРОКА,СТОЛБЕЦ].Value;

[alex_rR]

Прости за мою невнимательность