eugene771
Интересующийся
Offline
|
|
« : 16-04-2011 16:53 » |
|
При COM интерфейсе чзачем используют блок TRY? Что он выполняет. В нижеприведенном коде идет создание новой книги и новых листов: xl->Workbooks->Add(Excel::xlWorksheet); Как открыть уже существующий файл перейти к определенному листу и присвоить переменной X значение в какой то ячейке? try { //Initialise the COM interface CoInitialize(NULL); //Define a pointer to the Excel application Excel::_ApplicationPtr xl; //Start one instance of Excel xl.CreateInstance(L"Excel.Application"); //Make the Excel application visible xl->Visible = true; //Add a (new) workbook xl->Workbooks->Add(Excel::xlWorksheet); //Get a pointer to the active worksheet Excel::_WorksheetPtr pSheet = xl->ActiveSheet; //Set the name of the sheet pSheet->Name = "Chart Data"; //Get a pointer to the cells on the active worksheet Excel::RangePtr pRange = pSheet->Cells; .................................................
|
|
|
Записан
|
|
|
|
RXL
Технический
Администратор
Offline
Пол:
|
|
« Ответ #1 : 16-04-2011 17:20 » |
|
Это C++, а не VBA.
Блок try/catch используется для перехвата и обработки исключений.
Видимо ты совсем не знаешь C++, раз задаешь такие вопросы. Начни с изучения языка.
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
eugene771
Интересующийся
Offline
|
|
« Ответ #2 : 16-04-2011 17:42 » |
|
Это C++, а не VBA.
Блок try/catch используется для перехвата и обработки исключений.
Видимо ты совсем не знаешь C++, раз задаешь такие вопросы. Начни с изучения языка.
Я просто не заглядывая хотел узнать для чего это нужно. А основной вопрос все таки по VBA, т к Excel я подключил и меня с форумов по C++ отправили задавать вопросы по VBA, мне нужно две три строчки кода для доступа к файлу Excel. В коде идет обращение уже через функции VBA.
|
|
« Последнее редактирование: 16-04-2011 17:45 от eugene771 »
|
Записан
|
|
|
|
RXL
Технический
Администратор
Offline
Пол:
|
|
« Ответ #3 : 16-04-2011 17:50 » |
|
eugene771, невозможно понять, что ты пишешь. Попробуй излагать мысли яснее.
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
eugene771
Интересующийся
Offline
|
|
« Ответ #4 : 16-04-2011 18:18 » |
|
eugene771, невозможно понять, что ты пишешь. Попробуй излагать мысли яснее.
xl->Workbooks->Add(Excel::xlWorksheet); Excel::_WorksheetPtr pSheet = xl->ActiveSheet; Здесь создается новая книга и мы устанавливаем указатель на активный лист, а мне надо перейти к открытой в Excel книге по имени и поставить указатель на определенный лист по имени. И затем переменной X присвоить значение определенной ячейки. Т к в Excel у меня идет динамический вывод данных(Excel запущен и книга открыта) и из своей программы я получаю к ним доступ.
|
|
|
Записан
|
|
|
|
RXL
Технический
Администратор
Offline
Пол:
|
|
« Ответ #5 : 17-04-2011 04:21 » |
|
Повторяю этот совет тысячный раз: 1. Открываешь Excel (ручками). 2. Запускаешь запись макроса. 3. Делаешь действия, которые нужно. 4. Останавливаешь запись макроса. 5. Смотришь полученный код.
Если что непонятно, то читаешь в MSDN.
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
eugene771
Интересующийся
Offline
|
|
« Ответ #6 : 17-04-2011 07:17 » |
|
Повторяю этот совет тысячный раз: 1. Открываешь Excel (ручками). 2. Запускаешь запись макроса. 3. Делаешь действия, которые нужно. 4. Останавливаешь запись макроса. 5. Смотришь полученный код.
Если что непонятно, то читаешь в MSDN.
Это все понятно, но мне нужно из своего приложения C++ получить доступ к ячейкам открытой книги в Excel и здесь макросом ничего не сделаешь. Там VBA, а у меня я так понимаю winAPI. Перерыл весь интернет и не нашел ни одного примера доступа к открытой книге. xl->Workbooks->Add(Excel::xlWorksheet); Создание нового файла XL->Workbooks->Open(L"test.xls"); Открытие существующего файла, а нужно к активной книге перейти с параметром: ActiveWorkbook x1->Workbooks->Item["test.xls"]; Это не работает.
|
|
« Последнее редактирование: 17-04-2011 07:26 от eugene771 »
|
Записан
|
|
|
|
Dimka
Деятель
Команда клуба
Offline
Пол:
|
|
« Ответ #7 : 17-04-2011 10:38 » |
|
eugene771, ещё раз: то, что делается в VBA, делается через интерфейс COM-объекта, и точно так же делается в C++. Разница только в синтаксисе. Никакого WinAPI при работе с Excel нет.
Запиши макрос. Затем запусти его и убедись, что всё работает как надо. Покажи, какой макрос VBA у тебя получился, и только потом, глядя на этот макрос, уже говори, что ты не понимаешь, что и как записать в C++.
|
|
|
Записан
|
Программировать - значит понимать (К. Нюгард) Невывернутое лучше, чем вправленное (М. Аврелий) Многие готовы скорее умереть, чем подумать (Б. Рассел)
|
|
|
eugene771
Интересующийся
Offline
|
|
« Ответ #8 : 17-04-2011 12:32 » |
|
eugene771, ещё раз: то, что делается в VBA, делается через интерфейс COM-объекта, и точно так же делается в C++. Разница только в синтаксисе. Никакого WinAPI при работе с Excel нет.
Запиши макрос. Затем запусти его и убедись, что всё работает как надо. Покажи, какой макрос VBA у тебя получился, и только потом, глядя на этот макрос, уже говори, что ты не понимаешь, что и как записать в C++.
Sub List1() '
' Workbooks.Open Filename:= _ "C:\Documents and Settings\ogen\Ìîè äîêóìåíòû\Test.xls" Range("B6").Select ActiveCell.FormulaR1C1 = "123" Range("B6").Select Selection.Copy Sheets("List3").Select Range("B4").Select ActiveSheet.Paste End Sub
Как видно ничего общего, Должно быть примерно так: xl.CreateInstance(L"Excel.Application"); Excel::_WorkbookPtr pWorkbook = xl->ActiveWorkbook; Excel::_WorksheetPtr pSheet = pWorkbook->Worksheets->GetItem("List1"); Excel::RangePtr pRange = pSheet->Cells; Но не работает почему то? Надежда на поиск в yandex пропала, вся надежда на форумы))
|
|
« Последнее редактирование: 17-04-2011 12:43 от eugene771 »
|
Записан
|
|
|
|
Dimka
Деятель
Команда клуба
Offline
Пол:
|
|
« Ответ #9 : 17-04-2011 13:04 » |
|
eugene771, я не понимаю, что значит "должно быть примерно так".
Судя по тексту макроса ты: - открываешь книгу, - выбираешь ячейку B6 в текущем листе (обычно List1), - пишешь в неё значение 123, - копируешь ячейку в буфер, - выбираешь лист List3, - выбираешь на нём ячейку B4, - вставляешь в неё значение из буфера.
В C++ коде ты в текущей книге обращаешься к List1 (вне зависимости от того, является ли он текущим) и выделяешь в нём все ячейки.
Между этим нет ничего общего. Какое поведение правильное?
|
|
|
Записан
|
Программировать - значит понимать (К. Нюгард) Невывернутое лучше, чем вправленное (М. Аврелий) Многие готовы скорее умереть, чем подумать (Б. Рассел)
|
|
|
eugene771
Интересующийся
Offline
|
|
« Ответ #10 : 17-04-2011 13:27 » |
|
eugene771, я не понимаю, что значит "должно быть примерно так".
В C++ коде ты в текущей книге обращаешься к List1 (вне зависимости от того, является ли он текущим) и выделяешь в нём все ячейки.
Между этим нет ничего общего. Какое поведение правильное?
#include <windows.h> #include <stdio.h> #include <stdlib.h> #include <malloc.h> #include "time.h" #include "string.h" #include <math.h> #include <cmath> #include <iostream> #include <conio.h> #include <fstream> #include <cmath> #import \ "C:\Program Files\Common Files\Microsoft Shared\OFFICE11\mso.dll" \ rename("DocumentProperties", "DocumentPropertiesXL") \ rename("RGB", "RBGXL") //Microsoft VBA objects #import \ "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6ext.olb" //Excel Application objects #import "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" \ rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \ rename("DocumentProperties", "DocumentPropertiesXL") \ rename("ReplaceText", "ReplaceTextXL") \ rename("CopyFile", "CopyFileXL") \ exclude("IFont", "IPicture") no_dual_interfaces //Use the standard namespace //#include "Excel_2K_SRVR.h" using namespace std; long m_nResult; char m_szErrorMessage [1024]; long m_nExtendedErrorCode; long errnom, transerr; char mes[256]; int rc; //Define our own function, e^{-x} sin(x) //In general this could be the result of a simulation, etc. double f(const double &x) {return (sin(x)*exp(-x));} //Main driver program
int main() { try { //Initialise the COM interface CoInitialize(NULL); //Define a pointer to the Excel application Excel::_ApplicationPtr xl; //Start one instance of Excel //xl.CreateInstance(L"Excel.Application"); xl.CreateInstance(L"Excel.Application"); //Make the Excel application visible xl->Visible = true; //Add a (new) workbook //xl->Workbooks->Add(Excel::xlWorksheet); //xl->ActiveWorkbook; Excel::_WorkbookPtr pWorkbook = xl->ActiveWorkbook; //xl->Workbooks->Open(Excel::xlWorkbooks->Item["test.xls"]); //Get a pointer to the active worksheet //Excel::_WorksheetPtr pSheet = xl->ActiveSheet; Excel::_WorksheetPtr pSheet = pWorkbook->Worksheets->GetItem("List1"); //Excel::_WorksheetPtr pSheet = xl->ActiveWorkbook->ActiveSheet; //Set the name of the sheet pSheet->Name = "Chart Data"; //Get a pointer to the cells on the active worksheet Excel::RangePtr pRange = pSheet->Cells; //Define the number of plot points unsigned Nplot = 100; //Set the lower and upper limits for x double x_low = 0.0, x_high = 20.0; //Calculate the size of the (uniform) x interval //Note a cast to an double here double h = (x_high - x_low)/(double)Nplot; //Create two columns of data in the worksheet //We put labels at the top of each column to say what it contains pRange->Item[1][1] = "x"; pRange->Item[1][2] = "f(x)"; //Now we fill in the rest of the actual data by //using a single for loop for(unsigned i=0;i<Nplot;i++) { //Calculate the value of x (equally-spaced over the range) double x = x_low + i*h; //The first column is our equally-spaced x values pRange->Item[i+2][1] = x; //The second column is f(x) pRange->Item[i+2][2] = f(x); } //The sheet "Chart Data" now contains all the data //required to generate the chart //In order to use the Excel Chart Wizard, //we must convert the data into Range Objects //Set a pointer to the first cell containing our data Excel::RangePtr pBeginRange = pRange->Item[1][1]; //Set a pointer to the last cell containing our data Excel::RangePtr pEndRange = pRange->Item[Nplot+1][2]; //Make a "composite" range of the pointers to the start //and end of our data //Note the casts to pointers to Excel Ranges Excel::RangePtr pTotalRange = pSheet->Range[(Excel::Range*)pBeginRange][(Excel::Range*)pEndRange]; // Create the chart as a separate chart item in the workbook Excel::_ChartPtr pChart=xl->ActiveWorkbook->Charts->Add(); //Use the ChartWizard to draw the chart. //The arguments to the chart wizard are //Source: the data range, //Gallery: the chart type, //Format: a chart format (number 1-10), //PlotBy: whether the data is stored in columns or rows, //CategoryLabels: an index for the number of columns // containing category (x) labels // (because our first column of data represents // the x values, we must set this value to 1) //SeriesLabels: an index for the number of rows containing // series (y) labels // (our first row contains y labels, // so we set this to 1) //HasLegend: boolean set to true to include a legend //Title: the title of the chart //CategoryTitle: the x-axis title //ValueTitle: the y-axis title pChart->ChartWizard((Excel::Range*)pTotalRange, (long)Excel::xlXYScatter, 6L,(long)Excel::xlColumns, 1L, 1L, true, "My Graph", "x", "f(x)"); //Give the chart sheet a name pChart->Name = "My Data Plot"; } //If there has been an error, say so catch(_com_error & error) { cout << "COM ERROR" << endl; } //Finally Uninitialise the COM interface CoUninitialize(); //Finish the C++ program
return 0; }
Вот полный код тестовой программы, она работала при работе не с открытой книгой, а при создании новой. Макрос я произвольный сделал, чтобы показать разницу. В общем программа выдает ошибку с памятью, все именения в тех строчках которые я сразу указал, там точно есть ошибка и мне ее надо найти. Ошибка не при компиляции а при исполнении, в книге ничего не появляется. First-chance exception at 0x7c812afb in EXEMPLEFUNC2.exe: Microsoft C++ exception: _com_error at memory location 0x0012f950.. Пишут connection= true программно делать, как это в коде прописать?
|
|
« Последнее редактирование: 17-04-2011 14:15 от eugene771 »
|
Записан
|
|
|
|
Dimka
Деятель
Команда клуба
Offline
Пол:
|
|
« Ответ #11 : 17-04-2011 18:08 » |
|
eugene771, это не ошибка в строчках. Это твоё незнание COM вообще и COM-сервера Excel в частности, а также непонимание далеко не простых их C++-реализаций - о чём я предупреждал с самого начала. На C++ с Excel работают очень немногие "извращенцы".
Может у кого и родится желание написать тебе пример. У меня точно не родится, у меня и Excel нету.
|
|
|
Записан
|
Программировать - значит понимать (К. Нюгард) Невывернутое лучше, чем вправленное (М. Аврелий) Многие готовы скорее умереть, чем подумать (Б. Рассел)
|
|
|
|