Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Вниз

Помогите! OLE Excel!   Найти похожие ветки 

 
DBDev   (2003-07-16 12:42) [0]

То есть создаем оле, все настраиваем, переименовываем первую из 3-х вкладок во вновь созданной книге, но как перейти на вторую и переименовать ее, как сделать ее активной, может кто подскажет?

V = Variant::CreateObject("excel.application");
V.Exec(PropertySet("Visible") << false);
V.Exec(PropertyGet("Workbooks"));
V.Exec(PropertySet("SheetsInNewWorkbook") << 3);
V.Exec(Function("Workbooks")).Exec(Procedure("Add"));
V.Exec(PropertyGet("ActiveSheet")).Exec(PropertySet("Name") << "ааааа");

V.Exec(PropertyGet("ActiveSheet")).Exec(PropertySet("item") << 2); // не работает

V.Exec(PropertyGet("ActiveSheet")).Exec(PropertySet("Name") << "ббббб");
...


 
Sandman25   (2003-07-16 13:01) [1]

(Excel.WorkBooks.Sheets.Item[2] as _WorkSheet).Activate(LOCALE_USER_DEFAULT)

Осталось только перевести на С :)


 
DBDev   (2003-07-16 13:48) [2]

В моем случае:

V.Exec(Function("Workbooks")).Exec(PropertyGet("Worksheets")).Exec(PropertyGet("Item") << 2).Exec(Function("Activate"));

Не работает! Не понимает Worksheets


 
Sandman25   (2003-07-16 16:13) [3]

Внимательнее читаем. Sheets, а не Worksheets.


 
Sandman25   (2003-07-16 16:20) [4]

Даже еще хуже, я и сам немного ошибся в получении WorkBook.
Надо:
(Excel.ActiveWorkbook.Sheets.Item[2] as _WorkSheet).Activate(LOCALE_USER_DEFAULT)
или
(Excel.Workbooks.Items[IExcel.Workbooks.Count].Workbook.Sheets.Item[2] as _WorkSheet).Activate(LOCALE_USER_DEFAULT)

Хотя лучше использовать результат функции Workbooks.Add, которая возвращает как раз добавленную книгу.


 
Sandman25   (2003-07-16 16:24) [5]

Опять с руками что-то :)
(Excel.Workbooks.Items[Excel.Workbooks.Count].Sheets.Item[2] as _WorkSheet).Activate(LOCALE_USER_DEFAULT)



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.013 c
9-20369
X-Vizitor
2003-02-06 13:12
2003.08.07
GLSCENE -плавный поворот камеры


3-20415
KIR
2003-07-16 17:08
2003.08.07
Ограниченные возможности SQL в BDE...


14-20735
Nickola2
2003-07-18 12:08
2003.08.07
Как вычислить


4-20865
sergiu
2003-06-03 15:25
2003.08.07
Как вставить некий компонент в пункт меню ?????


14-20729
off
2003-07-19 20:49
2003.08.07
Не вижу ссылки показать только мои вопросы...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский