[alex_rR]

[Ildar-tsr]

Код:

1 2 3 4 5 6 7 8 9 10 11

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

[alex_rR]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

на 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):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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

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

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

Код:

1	stringgrid1.Cells[<font color="Red"><b>СТОЛБЕЦ</b></font>,<font color="DarkOrange"><b>СТРОКА</b></font>]:=e.Cells[<font color="DarkOrange"><b>СТРОКА</b></font>,<font color="Red"><b>СТОЛБЕЦ</b></font>].Value;

[alex_rR]

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