Модераторы: 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   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++:Общие вопросы"
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.0549 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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