VPF::Работа с Excel из Delphi - Форум программистов

DimassS

Дата 12.4.2006, 05:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Никак не могу программно выделить диапазон ячеек в 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;  }

Albinos_x

Дата 12.4.2006, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата

cells(i,y)

Это что?

PS: пользуйтесь тегом [code=delphi]

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

~FoX~

Дата 12.4.2006, 08:04 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

Range('A1:E11').Select
вроде так.

--------------------

…множественность никогда не следует полагать без необходимости…

Albinos_x

Дата 12.4.2006, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

к примеру у меня так работает без проблем:

Код

...
for j:=1 to cont-1 do
     begin
     sim:=AddresColExcel(5+j*5)+'6';
     sim1:=AddresColExcel(10+J*5)+'9';
     ExcelApplication1.Range[sim, sim1].MergeCells:=true;
...

AddresColExcel -> http://forum.vingrad.ru/index.php?showtopic=84634

Это сообщение отредактировал(а) Albinos_x - 12.4.2006, 08:54

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Albinos_x

Дата 12.4.2006, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

это тоже не прокатит:

Цитата

Excel.ActiveWorkBook.ActiveSheet.range.Selection.Merge

читай статью по указанной выше ссылке там всё подробно расписано, как работать с Excel...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

DimassS

Дата 12.4.2006, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Всем большое, прибольшое спасибо!!!!! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »