Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

OLE-automation for Excel97

Posted on 1998-04-03
3
Medium Priority
?
300 Views
Last Modified: 2013-11-25
I have used OLE-automation to control Excel95 from Visual C++. Therefore I generated via the class-wizard with the Excel5-OLB-file the 4 classes Application, Workbooks, Worksheet and Range. The approach is described in Inside Visual C++ from MS-Press (Ch. 24) and worked fine.  Now I want to do the same with Excel97. The previously approach did not work. Some class names differ by a prefixed underscore, some methods I used are no more available (Workbooks of Application) and I always get an exception when trying to start up Excel.

Has somebody successfully implemented an Excel97-OLE-Automation-Server and can give me help??
0
Comment
Question by:penschke
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 15

Accepted Solution

by:
Tommy Hui earned 240 total points
ID: 1184047
Yes, take a look at the sample in vc\samples\COM\COMEXCEL. Compile that and run it to see it in action.


0
 

Author Comment

by:penschke
ID: 1184048
Thank you very much!
That was exactly what I wanted.
I have registered asa an expert as well.
Would You like to have an email-conversation?

Regards,
Walter

0
 

Author Comment

by:penschke
ID: 1184049
Well sorry, I have found an other problem. What works is the following source-code compiled in DEBUG-mode. In RELEASE-mode the Excel does not start-up properly:
// NOTE: This example will only work with Excel8 in Office97
// Compile with cl /GX comexcel.cpp
// TO DO: Edit the #import paths

#import <mso97.dll> no_namespace rename("DocumentProperties", "DocumentPropertiesXL")  
#import <vbeext1.olb> no_namespace  
#import <excel8.olb> rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces

#include <stdio.h>
#include <iostream.h>
#include <tchar.h>

void dump_com_error(_com_error &e)
{
    _tprintf(_T("Oops - hit an error!\\n"));
    _tprintf(_T("\\a\\tCode = %08lx\\n"), e.Error());
    _tprintf(_T("\\a\\tCode meaning = %s\\n"), e.ErrorMessage());
    _bstr_t bstrSource(e.Source());
    _bstr_t bstrDescription(e.Description());
    _tprintf(_T("\\a\\tSource = %s\\n"), (LPCTSTR) bstrSource);
    _tprintf(_T("\\a\\tDescription = %s\\n"), (LPCTSTR) bstrDescription);
}

// If this is placed in the scope of the smart pointers, they must be
// explicitly Release(d) before CoUninitialize() is called.  If any reference
// count is non-zero, a protection fault will occur.
struct StartOle {
    StartOle() {
            CoInitialize(NULL);
      }
    ~StartOle(){
            CoUninitialize();
      }
// };
} _inst_StartOle;

void main()
{
//      StartOle Excel97;
    using namespace Excel;

    _ApplicationPtr pXL;

    try {
         pXL.CreateInstance(L"Excel.Application.8");

            pXL->Visible = VARIANT_TRUE;

            // Open sample Excel-Sheet
            char excelFilename[1024] = "d:\\projects\\msvcpp5\\excel97_driver\\test_files\\sample_excel97.xls";

          WorkbooksPtr  pBooks = pXL->Workbooks;
            _WorkbookPtr  pBook  = pBooks->Open((char*)excelFilename);
            _WorksheetPtr pSheet = pXL->ActiveSheet;

            char x;
            char y[8] = ""; int iy;
            char xy[9];

            float fnum;
            for (x='C';x<='P';x++)
            {
                  for (iy=2; iy<=50; iy++)
                  {
                        sprintf(y, "%d", iy);
                        strcpy (xy ,&x);
                        strcat (xy, y);

                        fnum = pSheet->Range[xy]->Value;
//                        fnum = Vnum->getFloatRef();
                        fnum++;
//                        Vnum.putFloatRef(fnum);
                        pSheet->Range[xy]->Value = fnum;
                  }
            }

            Sleep(3000);

            // Close sheet
            pBook->Save();
//            delete pSheet;
//            delete pBook;
//            delete pBooks;
            pXL->Quit();
    }

      // catch exceptions if raised
      catch(_com_error &e)
      {
            dump_com_error(e);
    }

}


Both compile-version behave differently. Might that be a Microsoft-Bug?
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

With most software applications trying to cater to multiple user needs nowadays, the focus is to make them as configurable as possible. For e.g., when creating Silverlight applications which will connect to WCF services, the service end point usuall…
For a while now I'v been searching for a circular progress control, much like the one you get when first starting your Silverlight application. I found a couple that were written in WPF and there were a few written in Silverlight, but all appeared o…
The goal of the video will be to teach the user the concept of local variables and scope. An example of a locally defined variable will be given as well as an explanation of what scope is in C++. The local variable and concept of scope will be relat…
The viewer will learn additional member functions of the vector class. Specifically, the capacity and swap member functions will be introduced.

722 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question