Модераторы: Daevaorn

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> подключени к екселю 
:(
    Опции темы
Step
Дата 4.2.2003, 02:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
у меня есть код
Код
app.CreateDispatch("Excel.Application");
CWnd * wn=FindWindow("XLMAIN",NULL);
wn->ShowWindow(SW_SHOWNORMAL);
wb.CreateDispatch("Excel.Application");

Данный код запускает ексел, показывает его на экране.

Прошу заметить он запускает новый экземпляр екселя.
подскажите пожалуйста как мне привязаться к рабочему экземпляру и к активному листу

переменные в примере - объекты класов из библиотеки TLB или OLB


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Step
Дата 4.2.2003, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Поднимаю тему


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 4.2.2003, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
Тож ничего особенного smile.gif
Код

#define USE_PROGID 1
#define USE_LIBID 0

#if USE_PROGID
#import "progid:Excel.Sheet.8" auto_search auto_rename rename_search_namespace("Office9")
#elif USE_LIBID
#import "libid:{00020813-0000-0000-C000-000000000046}" auto_search auto_rename version(1.3) lcid(0) no_search_namespace
#else
#pragma message ("Make sure excel9.olb is on the path")
#import "excel9.olb" auto_search auto_rename
#endif
using namespace Excel;

if(!AfxOleInit())
{
 AfxMessageBox("Could not initialize COM services");
 return;
}

   
_ApplicationPtr pXL;

try {
 pXL.GetActiveObject (L"Excel.Application.9");

 pXL->Visible[0] = VARIANT_TRUE;

 WorkbooksPtr pBooks = pXL->Workbooks;
 _WorkbookPtr pBook;//  = pBooks->ActiveSheet; //Add((long)xlWorksheet);

 _WorksheetPtr pSheet = pXL->ActiveSheet;

 try {
  // This one will fail
  pSheet->Name = "Market Share?";
 } catch (_com_error &e) {
 
 }

 pSheet->Name = "Market Share!";

 pSheet->Range["A2"]->Value = "Company A";
 pSheet->Range["B2"]->Value = "Company B";
 pSheet->Range["C2"]->Value = "Company C";
 pSheet->Range["D2"]->Value = "Company D";

 pSheet->Range["A3"]->Value = 75.0;
 pSheet->Range["B3"]->Value = 14.0;
 pSheet->Range["C3"]->Value = 7.0;
 pSheet->Range["D3"]->Value = 4.0;

 Sleep(1000);

 RangePtr  pRange  = pSheet->Range["A2:D3"];
 _ChartPtr  pChart  = pBook->Charts->Add();

 pChart->ChartWizard((Range*) pRange, (long) xl3DPie, 7L, (long) xlRows,
  1L, 0L, 2L, "Market Share");


} catch(_com_error &e) {
}



--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Step
Дата 5.2.2003, 00:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
у меня не тот олб там в апликатион нету getactiveobject..
это должно делаться как-то через интерфейс.


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 5.2.2003, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
Какой офис?


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Step
Дата 5.2.2003, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
10 xp


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 5.2.2003, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
насчет ХР - хз... не нраится мне он... 2К лучше имхо


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Unregistered
Дата 5.2.2003, 20:31 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
офис xp, не система там просто нет олб нармальной..
  Вверх
Step
Дата 5.2.2003, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
фокус в том что мне надо создать какойто диспатч, после этого я запрашую интерфейс екселя и все работае, вот только стартовый диспатч я создать не могу, так как если я буду создавать екселевский то ексель запуститься и я получу интерфейс не того экземпляра.


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 6.2.2003, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
Step >офис xp, не система там просто нет олб нармальной..
не дурак я, понял, что офис, про него и грил... мне больше нраится офис 2К
з.ы. если как-нить наткнусь на Офис ХР, тады посморю...


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Step
Дата 6.2.2003, 00:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Baa кстати 2к у меня с русским иероглифы получаються


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Step
Дата 6.2.2003, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Baa может подскажеш код который сможет переключать листы..


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 7.2.2003, 00:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
А зачем тебе их переключать? может проще работать не переключая?
Вот из мсдна на басике
Код

Sub ReferToMultipleSheetsExample()
  ' This procedure shows how to programmatically refer to
  ' multiple worksheets.
  Dim wksCurrent As Excel.Worksheet
 
  With ActiveWorkbook.Worksheets(Array("Employees", "Sheet2", "Sheet3"))
     .FillAcrossSheets (Worksheets("Employees").UsedRange)
  End With
  Stop
  ' The worksheets named "Sheet2" and "Sheet3" should now
  ' contain the same table that is found on the "Employees"
  ' sheet. Press F5 to clear the contents from these worksheets.
  For Each wksCurrent In ActiveWorkbook _
     .Worksheets(Array("Sheet2", "Sheet3"))
     wksCurrent.UsedRange.Clear
  Next wksCurrent
End Sub




--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Step
Дата 7.2.2003, 01:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Да на бейсики я сам знаю как это сделать.


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 7.2.2003, 02:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
Дык а какая разница-то? Ведь интферфейсы-то те же...


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Step
Дата 7.2.2003, 02:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
интерфейс тотже, да вот такого он сделать непозволит, нет у него такой вещицы
Цитата
Worksheets("Employees").




--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Baa
Дата 7.2.2003, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: 8
Всего: 12
Worksheets ["Employees"]
так пробовал?


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Step
Дата 7.2.2003, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
да он вообще параметры не принимает


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
pish_r
Дата 27.2.2003, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А какая разница, какой у тя офис? В олб файле описан интерфейс. Так вот если те не нравится интерфейс олб файла с экспишным екселем, (мне он тоже не нравится, везде просит параметры ч/з variant передавать, а не напрямую) найди старенький олб. Например excel8.olb Будет работать и с ХР тоже. Сам пробовал. VC просто на основе олб создает уйму хидерных файликов, которые Baa так любит писать ручками smile.gif . Т.е. нет привязки к конкретному файлу как к длл, например.
--------------------
________________-=тУт быЛ pisH_r=-
PM MAIL   Вверх
Step
Дата 27.2.2003, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
pish_r это я все знаю, но тыскажи какая версия олб потдержует передачу параметра в
Цитата
Worksheets
я еще тако не встричал, а пробывал я и 97 и 2000 и хр и 2002, а точто они подходят это понятно


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
pish_r
Дата 27.2.2003, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
sheets=book.GetSheets();
sheet=sheets.Get_Default(COleVariant(long(1)));//Первая закладка
Можно вместо long(1) впаять имя закладки
--------------------
________________-=тУт быЛ pisH_r=-
PM MAIL   Вверх
Step
Дата 27.2.2003, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Цитата
Get_Default(
эта в какой олб ты такое выкопал, я что то не нашел


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
pish_r
Дата 27.2.2003, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
excel8.olb
--------------------
________________-=тУт быЛ pisH_r=-
PM MAIL   Вверх
Step
Дата 27.2.2003, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Цитата
excel8.olb
ок. посмотрю


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Fantasist
Дата 28.2.2003, 02:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй
***


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

Репутация: 4
Всего: 41
Цитата
у меня не тот олб там в апликатион нету getactiveobject..



А и не должно быть. GetActiveObject - это метод класса _com_ptr_t - умного указателя вокруг интерфейса, а сам этот метод - обертка API-шной GetActiveObject - возвращает интерфейс загруженного COM объекта по его CLSID.
Пользуйся CreateInstance. То есть:


_ApplicationPtr pXL;
pXL.CreateInstance(L"Excel.Application.9");




--------------------
Волны гасят ветер...
PM MAIL   Вверх
Step
Дата 28.2.2003, 02:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: 5
Всего: 25
Цитата
А и не должно быть. GetActiveObject - это метод класса _com_ptr_t - умного указателя вокруг интерфейса, а сам этот метод - обертка API-шной GetActiveObject - возвращает интерфейс загруженного COM объекта по его CLSID.
блин, внатуре, это я конечно протупил....


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++:Общие вопросы"
Earnest Daevaorn

Добро пожаловать!

  • Черновик стандарта C++ (за октябрь 2005) можно скачать с этого сайта. Прямая ссылка на файл черновика(4.4мб).
  • Черновик стандарта C (за сентябрь 2005) можно скачать с этого сайта. Прямая ссылка на файл черновика (3.4мб).
  • Прежде чем задать вопрос, прочтите это и/или это!
  • Здесь хранится весь мировой запас ссылок на документы, связанные с C++ :)
  • Не брезгуйте пользоваться тегами [code=cpp][/code].
  • Пожалуйста, не просите написать за вас программы в этом разделе - для этого существует "Центр Помощи".
  • C++ FAQ

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Earnest Daevaorn
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C/C++: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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