Как вставить разрыв страници в Excel

Wlad_C

Гость

« : Ноябрь 03, 2010, 18:22 »

Добрый вечер!
Записал макрос вставки разрыва страницы в Excel, получил:
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
В программе из активной страницы получаем HPageBreaks :
QAxObject * hPageBreaks = Sheets->querySubObject("HPageBreaks");
Используя функцию
hPageBreaks->generateDocumentation();
получаем получаем документацию в формате html на HPageBreaks, и видим такие строчки для нужной нам функции Add:
QVariantList params = ...
QAxObject * result = object->querySubObject("Add(IDispatch*)", params);
Вот здесь и возникает проблема!
Для вставки разрыва нужно передать в качестве параметра активную ячейку в виде указателя на IDispatch! Получить активную ячейку как QAxObject не сложно. А вот как из QAxObject получить указатель на IDispatch?
Может кто сталкивался с подобной проблемой? Буду очень признателен!


	Записан

BRE

Гость

Re: Как вставить разрыв страници в Excel

« Ответ #1 : Ноябрь 03, 2010, 19:25 »

Посмотри на:
QVariant QAxBase::asVariant () const


	Записан

Wlad_C

Гость

Re: Как вставить разрыв страници в Excel

« Ответ #2 : Ноябрь 03, 2010, 20:07 »

Цитировать

QVariant QAxBase::asVariant () const

- Не то. Я уже имею активную ячейку c типом QAxObject.
Теперь ее нужно подставить в качестве параметра в функцию
querySubObject("Add(IDispatch*)", ActiveCells)
Но функция требует приведение
(IDispatch*) ActiveCells
что сделать не получается.
Может есть какие - нибудь обходные пути?


	Записан

BRE

Гость

Re: Как вставить разрыв страници в Excel

« Ответ #3 : Ноябрь 03, 2010, 20:08 »

Код

C++ (Qt)
    querySubObject("Add(IDispatch*)", ActiveCells.asVariant() );


	Записан

Wlad_C

Гость

Re: Как вставить разрыв страници в Excel

« Ответ #4 : Ноябрь 03, 2010, 20:51 »

Вы оказались правы! Это я не догнал.
Я активную ячейку получал так:
QVariant ActiveCell = App->property("ActiveCell");
А надо было так:

Код:

    QAxObject * Sheets = Workbook->querySubObject( "Sheets" ); 
    hPageBreaks = Sheets->querySubObject("HPageBreaks");
    QString strInsert ="A10";                                       // Ставим разрыв выше 10 строки, для примера
    Range = Sheet->querySubObject( "Range(const QVariant&)",strInsert);
    Range->dynamicCall("Select()");
    hPageBreaks->querySubObject("Add(IDispatch*)",Range->asVariant());

Большое спасибо!!!
Этот код работает!


	Записан

Wlad_C

Гость

Re: Как вставить разрыв страници в Excel

« Ответ #5 : Ноябрь 03, 2010, 21:24 »

P.S.
В Qt придумана неплохая функция:
generateDocumentation()
Но верить тому, что там написано надо с большой оглядкой.
Например, для интерфейса _Application она выдает:
IDispatch* val = object->property("ActiveCell").toIDispatch*();
Хотя на самом деле мы получаем тип QVariant. Т.е. правильная запись должна быть такая:
QVariant val = object->property("ActiveCell");
А для интерфейса HPageBreaks:
QVariantList params = ...
QAxObject * result = object->querySubObject("Add(IDispatch*)", params);
Т.е. в params надо поместить (IDispatch*).
Вот и возникает путаница. Видимо функция generateDocumentation() была написана давно, и с тех пор не модифицировалась.


	Записан

Страниц: [1] Вверх

Печать

« предыдущая тема следующая тема »