VPF::CreateOleObject("Excel.Application") - Форум программистов

Annihilator

Дата 7.8.2007, 06:50 (ссылка)

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

Загрузка ...

bytegrinder

Профиль
Группа: Участник
Сообщений: 493
Регистрация: 21.11.2006
Где: Омск

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

Какую библиотеку надо подрубить чтобы эта функция пахала нормально, а то что странно компилится через раз

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

Если вы не можете сделать хоpошyю пpогpаммy, сделайте, чтобы она по кpайней меpе выглядела хоpошо

_Dimon_

Дата 7.8.2007, 10:49 (ссылка)

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

Загрузка ...

Бывалый

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

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

Попробуй
#include <comobj.hpp>

Я кроме этой больше ничего не подключал.

Annihilator

Дата 7.8.2007, 11:38 (ссылка)

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

Загрузка ...

bytegrinder

Профиль
Группа: Участник
Сообщений: 493
Регистрация: 21.11.2006
Где: Омск

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

Цитата(_Dimon_ @ 7.8.2007, 10:49

)

#include <comobj.hpp>

катит!

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

Если вы не можете сделать хоpошyю пpогpаммy, сделайте, чтобы она по кpайней меpе выглядела хоpошо

Santilka85

Дата 8.8.2007, 06:51 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(_Dimon_ @ 7.8.2007, 10:49

)

Я кроме этой больше ничего не подключал.

а я эту не подключал.. smile

я вона как делал:

Код


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//                            Описание переменных                          //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
Variant my_workbook;
Variant my_worksheet;
Variant my_range;
PropertyGet Range ("Range");
Variant my_excel;
Variant all_workbooks;

AnsiString fil;
void TForm1::ex_OPEN (AnsiString ex_file)
{
//////////////////////////////////////
////////////Запускаем Excel///////////
//////////////////////////////////////
 try
 {

//////////////////////////////////////
////////////Запускаем Excel///////////
//////////////////////////////////////

Variant my_excel=Variant::CreateObject("excel.application");
Variant all_workbooks=my_excel.OlePropertyGet ("workbooks");

///////////////////////////////////////
///////////Открываем таблицу///////////
///////////////////////////////////////
  Procedure Open ("Open");
  all_workbooks.Exec(Open<<ex_file);

  my_workbook = my_excel.OlePropertyGet ("ActiveWorkbook");
  my_worksheet = my_workbook.OlePropertyGet ("ActiveSheet");

 }
 catch (...)
 {
   ShowMessage("Не удалось запустить Excel.");
   return;
 }
}
//---------------------------------------------------------------------------
void TForm1::ex_CLOSE ()
{
  Procedure Close ("Close");
  my_workbook.Exec(Close<<my_worksheet);
}

и всё работало smile

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

Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.

Annihilator

Дата 12.8.2007, 20:37 (ссылка)

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

Загрузка ...

bytegrinder

Профиль
Группа: Участник
Сообщений: 493
Регистрация: 21.11.2006
Где: Омск

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

В том и прикол что раз через 5 катит - в остальном не может определить CreateOleObject

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

Если вы не можете сделать хоpошyю пpогpаммy, сделайте, чтобы она по кpайней меpе выглядела хоpошо

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