VPF::Количество листов в документе Excel

ksili

Дата 25.4.2006, 10:20 (ссылка)

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

Загрузка ...

Эксперт

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

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

Мне нужно программно добавить в документе Excel четыре новых листа. В справке по Visual Basic нашёл соответствующее свойство Sheets.Count. Однако когда пишу так:

Код


 int p;
 Variant vExcel,vBook,vSheet;

.......

         vBook = vExcel.OlePropertyGet("WorkBooks");
         vBook.OleProcedure("Open",path.c_str());
         p = vBook.OlePropertyGet("Sheets").OlePropertyGet("Count");
         vBook.OlePropertyGet("WorkSheets").OlePropertySet("Count",p+4);

на строке p = ..... возникает ошибка
EOleSysError with message "Неизвестное имя"

Так как же их добавить?

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

Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)

_hunter

Дата 25.4.2006, 10:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

ты, для начала, определи что именно "неизветсно" -- "Sheets" или "Count" (особенно учитывая следующую строку)

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

Tempora mutantur, et nos mutamur in illis...

sexton

Дата 25.4.2006, 11:01 (ссылка)

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

Загрузка ...

sexton=Пономарь (eng)

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

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

Утебя не определена переменная для конкретной книги.
То есть надо дописать что-то типа:

Код


vVarBooks=vVarApp.OlePropertyGet("Workbooks");
vVarBook=vVarBooks.OlePropertyGet("Item",1);

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

Поставить +

ЖЖ
Рассылка Рассылок

ksili

Дата 26.4.2006, 08:05 (ссылка)

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

Загрузка ...

Эксперт

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

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

Да-а, что-то я накосячил.
Правильно так:

Код


 Variant vExcel,vBook,vBooks,vSheet;

         vBooks = vExcel.OlePropertyGet("WorkBooks");
         vBooks.OleProcedure("Open",path.c_str());
         vBook = vBooks.OlePropertyGet("Item",1);

         //выбираем 1-й лист
         vSheet=vBook.OlePropertyGet("Sheets").OlePropertyGet("Item",1).OlePropertyGet("Select");

         //добавляем 4 листа
         vBook.OlePropertyGet("Sheets").OlePropertyGet("Add");
         vSheet = vBook.OlePropertyGet("Sheets").OlePropertyGet("Item",1);
         vSheet.OlePropertySet("Name","Лист 1");

         vBook.OlePropertyGet("Sheets").OlePropertyGet("Add");
         vSheet = vBook.OlePropertyGet("Sheets").OlePropertyGet("Item",1);
         vSheet.OlePropertySet("Name","Лист 2");

         vBook.OlePropertyGet("Sheets").OlePropertyGet("Add");
         vSheet = vBook.OlePropertyGet("Sheets").OlePropertyGet("Item",1);
         vSheet.OlePropertySet("Name","Лист 3");

         vBook.OlePropertyGet("Sheets").OlePropertyGet("Add");
         vSheet = vBook.OlePropertyGet("Sheets").OlePropertyGet("Item",1);
         vSheet.OlePropertySet("Name","Лист 4");

// дальше переставляем каждый лист на нужное место

Это сообщение отредактировал(а) ksili - 26.4.2006, 08:06

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

Deft

Дата 8.5.2009, 07:24 (ссылка)

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

Загрузка ...

Новичок

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

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

думаю логично будет спросить в этой теме:
1)как узнать число листов в книге? думаю что как-то через OLEPropertyGet но вот как...
2)как узнать имя активного листа? ну или имя по номеру...

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