Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подключение Word, Exel 2003! 
:(
    Опции темы
Agent_00
Дата 8.8.2007, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



По умолчанию Билдер 6 работает с 98, XP и 2000 офисом! Как сделать, чтобы он работал и с 2003? 
пытаюсь выполнить простой код, не хочет :(

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

#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include <comobj.hpp>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
if (!XLApplication.IsEmpty())
        {
         XLApplication.OlePropertySet("DisplayAlerts",false);
         XLApplication.OleFunction("Quite");
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
const int xlBatChart = -4190;
const int xlBatWorksheet = -4167;
XLApplication = CreateOleObject("Exel.Application");
XLApplication.OlePropertySet("Visible",true);
Variant XLWorkbooks = XLApplication.OlePropertyGet("Workbooks");
XLWorkbooks.OleFunction("Add");
XLWorkbooks.OleFunction("Add",xlBatChart);
XLWorkbooks.OleFunction("Add",xlBatWorksheet);
Variant XLBook = XLWorkbooks.OlePropertyGet("Item",2);
Variant XLChart = XLBook.OlePropertyGet("Chart");
XLChart.OleFunction("Add");
XLBook = XLWorkbooks.OlePropertyGet("item",3);
Variant XLSheet = XLBook.OlePropertyGet("Sheets");
XLSheet.OleFunction("Add");
int count = XLWorkbooks.OlePropertyGet("Count");
for (int i=1;i<count;i++)
        {
         XLBook = XLWorkbooks.OlePropertyGet("Item",i+1);
         ListBox1->Items->Add(XLBook.OlePropertyGet("Name"));
         Variant XLSheets = XLBook.OlePropertyGet("Sheets");
         int sheetCount = XLSheets = XLBook.OlePropertyGet("Count");
         for (int j=9;j<sheetCount;j++)
                {
                 Variant XLSheet = XLSheets.OlePropertyGet("Item",j+1);
                 ListBox1->Items->Add("     " + XLSheet.OlePropertyGet("Name"));
                }
        }

}
//---------------------------------------------------------------------------

PM MAIL   Вверх
_hunter
Дата 8.8.2007, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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





--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Agent_00
Дата 8.8.2007, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Спасибо, но там приведены для 97 офиса, а для 2003 аналогично?
PM MAIL   Вверх
gather
Дата 9.8.2007, 06:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Rescue Officer
*


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

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



Цитата(Agent_00 @ 8.8.2007,  14:42)
Спасибо, но там приведены для 97 офиса, а для 2003 аналогично?

А проверить не судьба?
Работает все нормально.
PM MAIL WWW Skype GTalk Jabber   Вверх
Agent_00
Дата 10.8.2007, 05:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



 smile  smile Спасибо!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.

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


 




[ Время генерации скрипта: 0.0429 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.