VPF::Как узнать количество записей в таблице Excel?

X-Vlad

Дата 23.10.2003, 15:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет всем.

Делаю так:

Код

function ActivateOLEObject(AppProgId:string):OleVariant;
var
 hRes:HRESULT;
 Unknown:IUnknown;
 Reg:TRegistry;
begin
 Result:=UnAssigned;
  try
   Reg:=TRegistry.Create;
    with Reg do
     begin
      RootKey:=HKEY_CLASSES_ROOT;
       if not KeyExists(AppProgId) then
        Exit;
     end;
  finally
  FreeAndNil(Reg);
  end;
 hRes:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
  if hRes=MK_E_UNAVAILABLE then
   Result:=CreateOleObject(AppProgID) else
   Result:=GetActiveOleObject(AppProgID);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Excel, WorkBook:OleVariant;
begin
 Excel:=ActivateOLEObject('Excel.Application');
 WorkBook:=Excel.WorkBooks.Open(ExtractFIlePath(ParamStr(0))+'Книга1.xls');
 ShowMessage(WorkBook.WorkSheets[1].Cells[3,2]);
 showmessage(WorkBook.WorkSheets[1].Rows.Count);
end;
*****************************************************

Код

showmessage(WorkBook.WorkSheets[1].Rows.Count);

- показывает мне 65356 записей, а в таблице реально 300 записей.
Вчем проблема?

Помогите плз.

Спасибо.

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

Хорошая штука - комп..:)
www.x-vlad.com

<Spawn>

Дата 23.10.2003, 15:51 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Вот так:

Код

WorkBook.WorkSheets[1].Rows.CurrentRegion.Rows.Count

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

X-Vlad

Дата 23.10.2003, 16:52 (ссылка)

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

Загрузка ...

Опытный

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

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

<Spawn> Большое спасибо.

ещё вопросик:

когда я закрываю программу, Excel остается в памяти... его надо убивать в ручную через "Диспетчер задач".

как освободитть excel при закрытии программы?

Спасибо.

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

Хорошая штука - комп..:)
www.x-vlad.com

<Spawn>

Дата 23.10.2003, 16:58 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

))

Код

Excel.Quit;
Excel:=UnAssigned;

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

X-Vlad

Дата 23.10.2003, 17:15 (ссылка)

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

Загрузка ...

Опытный

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

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

<Spawn>

Спасибо.

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

Хорошая штука - комп..:)
www.x-vlad.com

December

Дата 23.10.2003, 22:00 (ссылка)

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

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Цитата

когда я закрываю программу, Excel остается в памяти... его надо убивать в ручную через "Диспетчер задач".

как освободитть excel при закрытии программы?

Можно ещё
WorkBook.Close;
Excel:=Unassigned;
Если не нужен запрос на сохранение, то Excel.DisplayAlerts:=false;

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

Для друзей с винграда - скидки на разработку сайтов

X-Vlad

Дата 24.10.2003, 11:32 (ссылка)

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

Загрузка ...

Опытный

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

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

ещё раз спасибо...

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

Хорошая штука - комп..:)
www.x-vlad.com

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