0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 14
1

Ошибка в работе COM(Excel)

18.04.2011, 21:23. Показов 2374. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пример работает, когда три строки кода с "++++++" используем и работаем с новой вновь созданной книгой Excel. Но я попытался работать с уже откытой и активной книгой и получил следующую ошибку при исполнении:
First-chance exception at 0x7c812afb in EXEMPLEFUNC2.exe: Microsoft C++ exception: _com_error at memory location 0x0012f950..
Помогите заставить код работать пожалуйста.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#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;
int  rc;
 
int main()
{
    
try
{
//Initialise the COM interface
CoInitialize(NULL);
Excel::_ApplicationPtr xl;
xl.CreateInstance(L"Excel.Application");
xl->Visible = true;
//Add a (new) workbook  
//xl->Workbooks->Add(Excel::xlWorksheet); +++++++++++++++++++
Excel::_WorkbookPtr pWorkbook = xl->ActiveWorkbook;
//Excel::_WorksheetPtr pSheet = xl->ActiveSheet;+++++++++++++
Excel::_WorksheetPtr pSheet = pWorkbook->Worksheets->GetItem("List1");++++++
//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;
}
Добавлено через 12 минут
C++
1
2
3
4
//xl->Workbooks->Add(Excel::xlWorksheet); +++++++++++++++++++
Excel::_WorkbookPtr pWorkbook = xl->ActiveWorkbook;///----------
//Excel::_WorksheetPtr pSheet = xl->ActiveSheet;+++++++++++++
Excel::_WorksheetPtr pSheet = pWorkbook->Worksheets->GetItem("List1");//--------------------
Заменяемые строки, правка не работает на форуме.
0
18.04.2011, 21:23
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.04.2011, 21:23
Ответы с готовыми решениями:

Ошибка в работе с Excel
Вводит при чтении с excel файла: Warning: strtotime(): It is not safe to rely on the system's timezone settings. You are *required* to...

Ошибка при работе с Excel
Программа взаимодействует с экселем. Если я правильно понял, у меня не подключена какая-то библиотека, потому что данный проект работал,...

Ошибка при работе с Excel
ошибка Добавлено через 27 секунд private void button3_Click_1(object sender, RoutedEventArgs e) { excelapp...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.04.2011, 21:23
Помогаю со студенческими работами здесь

Ошибка при работе с Excel
Определяю количество занятых ячеек (ячеек с информацией) в столбце файл-Excel, точнее номер последнего занятого столбца. При выполнении...

Ошибка при работе с excel
Нужно прочитать значение из ячейки. Например 1,1 (A1). Возникает ошибка -------------- Исключение из HRESULT: 0x800A03EC ...

Ошибка при работе с Excel файлом
В модели расположен эксель файл с именем GIS и функция которая должна с ним работать. В ней следующий код: GIS.readFile(); y=0; o=0; ...

Ошибка в приложении при работе с excel
Здравствуйте написал приложение! В приложении считывает данные с Excel таблицы. У меня на пк все нормально, никаких ошибок. А вот на пк...

Странная ошибка при работе с Excel
Пытаюсь создать Excel файл и записать в него ячейки но при компиляции программы получаю совершенно не понятную мне ошибку int i; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru