Никак не могу программно выделить диапазон ячеек в Excel, помогите кто знает. Пока зациклился на этом:
| Код |
var
i,j,l,y,t: integer;
Excel: Variant;
a: array [0..100] of string;
p,o: string;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible := True;
Excel.WorkBooks.Add;
l:=DataModule1.Query1.FieldCount-1 ;
DataModule1.Query1.First;
i:=0;
repeat
begin
i:=i+1;
for j:=0 to l do
begin
y:=j+1;
t:=y+1;
p:=DBGridEh1.Columns[j].Title.Caption;
o:=DBGridEh1.Columns.Items[j].Title.Caption;
if (p=o) then begin
Excel.ActiveWorkBook.ActiveSheet.range(cells(i,y),cells(i,t)).select;//хочу выделить но выкидывает сообщение "Член группы не найден"
Excel.ActiveWorkBook.ActiveSheet.range.Selection.Merge;//затем объединить
end;
DataModule1.Query1.Next;
end;
end;
until DataModule1.Query1.Eof; }
|
|
