[poli-smen]

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

.....
НО как использовать метод Offset( X,Y).Value в дельфи?
ЕСЛИ КТО НАУЧИТ БУДУ ОЧЕНЬ БЛАГОДАРЕН

Код:

.....
RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
k := 1;
repeat
      for r := 1 to y do
      Begin
        sGetStrData := RangeMatrix[K, R];
       If (sGetStrData = TelephoneConst) Then
        Form1.RichEdit1.Lines.Add(sGetStrData);
      End;
      Inc(k, 1);
until k > x;
    // Unassign the Delphi Variant Matrix
    RangeMatrix := Unassigned;

А разве так не работает?:

Код:

ContactTelephone := RangeMatrix[K, R].Offset[1, 0].Value;