Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 303
  • Last Modified:

OLE-automation for Excel97

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
penschke
Asked:
penschke
  • 2
1 Solution
 
Tommy HuiEngineerCommented:
Yes, take a look at the sample in vc\samples\COM\COMEXCEL. Compile that and run it to see it in action.


0
 
penschkeAuthor Commented:
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
 
penschkeAuthor Commented:
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

Transaction-level recovery for Oracle database

Veeam Explore for Oracle delivers low RTOs and RPOs with agentless transaction log backup and transaction-level recovery of Oracle databases. You can restore the database to a precise point in time, even to a specific transaction.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now