![]() |
|
#2
|
|||
|
|||
![]() Считываешь данные в массив, и далее работаешь с ним
Код:
uses ComObj; ... var XL: Variant; i, j: Integer; Ras: array [0..3, 0..2] of String; begin XL := CreateOleObject('Excel.Application'); XL.DisplayAlerts := False; XL.WorkBooks.Open(Путь к файлу); XL.Visible := False; for i := 0 to 3 do for j := 0 to 2 do Ras[i, j] := XL.WorkBooks[1].WorkSheets[1].Cells[j+2, i+2]; XL.Quit; теперь просто анализируешь массив Ras |