![]() |
|
|
![]()
|
|
| Agent_00 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 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")); } } } //--------------------------------------------------------------------------- |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 24 Всего: 98 |
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| Agent_00 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 45 Регистрация: 15.2.2007 Репутация: нет Всего: нет |
Спасибо, но там приведены для 97 офиса, а для 2003 аналогично?
|
|||
|
||||
| gather |
|
|||
![]() Rescue Officer ![]() Профиль Группа: Участник Сообщений: 127 Регистрация: 13.6.2007 Где: Russia, Lipetsk Репутация: нет Всего: 4 |
А проверить не судьба? Работает все нормально. |
|||
|
||||
| Agent_00 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 45 Регистрация: 15.2.2007 Репутация: нет Всего: нет |
|
|||
|
||||
![]()
|
| Правила форума "С++ Builder" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | C++ Builder | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |