|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Получить n-ю строку вариантного массива
Код:
procedure TForm1.Button1Click(Sender: TObject); var FData,E0,E1,B0,B1: OLEVariant; path : String; begin E0 := CreateOleObject('Excel.Application'); E0.DisplayAlerts := False ; E0.Workbooks.Open(path); B0:=E0.ActiveWorkbook.ActiveSheet; FData:=B0.UsedRange.Value; E0.Quit; E0:=unassigned; B0:=unassigned; E1 := CreateOleObject('Excel.Application'); E1.Workbooks.Add; B1:=E1.ActiveWorkbook.ActiveSheet; E1.Range['A4:J4']:= FData; E1.Visible := True; end; В FData находится матрица 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 51 52 53 54 55 Как в Код:
E1.Range['A4:J4']:= FData; |