Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Вопрос по VBA при COM интерфейсе  (Прочитано 13149 раз)
0 Пользователей и 1 Гость смотрят эту тему.
eugene771
Интересующийся

ru
Offline 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
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 16-04-2011 17:20 » 

Это C++, а не VBA.

Блок try/catch используется для перехвата и обработки исключений.

Видимо ты совсем не знаешь C++, раз задаешь такие вопросы. Начни с изучения языка.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
eugene771
Интересующийся

ru
Offline 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
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 16-04-2011 17:50 » 

eugene771, невозможно понять, что ты пишешь. Попробуй излагать мысли яснее.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
eugene771
Интересующийся

ru
Offline Offline

« Ответ #4 : 16-04-2011 18:18 » 

eugene771, невозможно понять, что ты пишешь. Попробуй излагать мысли яснее.
xl->Workbooks->Add(Excel::xlWorksheet);
Excel::_WorksheetPtr pSheet = xl->ActiveSheet;
Здесь создается новая книга и мы устанавливаем указатель на активный лист, а мне надо перейти к открытой в  Excel  книге по имени и поставить указатель на определенный лист по имени. И затем переменной X присвоить значение определенной ячейки. Т к в Excel у меня идет динамический вывод данных(Excel запущен и книга открыта) и из своей программы я получаю к ним доступ.
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 17-04-2011 04:21 » 

Повторяю этот совет тысячный раз:
1. Открываешь Excel (ручками).
2. Запускаешь запись макроса.
3. Делаешь действия, которые нужно.
4. Останавливаешь запись макроса.
5. Смотришь полученный код.

Если что непонятно, то читаешь в MSDN.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
eugene771
Интересующийся

ru
Offline 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
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #7 : 17-04-2011 10:38 » 

eugene771, ещё раз: то, что делается в VBA, делается через интерфейс COM-объекта, и точно так же делается в C++. Разница только в синтаксисе. Никакого WinAPI при работе с Excel нет.

Запиши макрос. Затем запусти его и убедись, что всё работает как надо. Покажи, какой макрос VBA у тебя получился, и только потом, глядя на этот макрос, уже говори, что ты не понимаешь, что и как записать в C++.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
eugene771
Интересующийся

ru
Offline 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
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #9 : 17-04-2011 13:04 » 

eugene771, я не понимаю, что значит "должно быть примерно так".

Судя по тексту макроса ты:
- открываешь книгу,
- выбираешь ячейку B6 в текущем листе (обычно List1),
- пишешь в неё значение 123,
- копируешь ячейку в буфер,
- выбираешь лист List3,
- выбираешь на нём ячейку B4,
- вставляешь в неё значение из буфера.

В C++ коде ты в текущей книге обращаешься к List1 (вне зависимости от того, является ли он текущим) и выделяешь в нём все ячейки.

Между этим нет ничего общего. Какое поведение правильное?
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
eugene771
Интересующийся

ru
Offline 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
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #11 : 17-04-2011 18:08 » new

eugene771, это не ошибка в строчках. Это твоё незнание COM вообще и COM-сервера Excel в частности, а также непонимание далеко не простых их C++-реализаций  - о чём я предупреждал с самого начала. На C++ с Excel работают очень немногие "извращенцы".

Может у кого и родится желание написать тебе пример. У меня точно не родится, у меня и Excel нету.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines