摘要

本文详细介绍了如何自动化像Microsoft Office这样支持COM的应用程序。

更多信息

下面部分介绍了如何创建MFC项目。采用Microsoft Excel举例，你可以将前8个步骤用于任何项目，修改9-15步用于不同的应用程序。

创建自动化项目

Application: CAutoProjectApp in AutoProject.h and AutoProject.cpp
Dialog: CAutoProjectDlg in AutoProject.h and AutoProjectDlg.cpp

BOOL CAutoProjectApp::InitInstance()
{if(!AfxOleInit())  // Your addition starts here{AfxMessageBox("Could not initialize COM dll");return FALSE;}     // End of your additionAfxEnableControlContainer();...}

#include <afxdisp.h>

#include "stdafx.h"
#include "excel8.h" // excel.h in the case of Excel 2002 and Excel 2003.

void CAutoProjectDlg::OnRun()
{_Application app;  // app 是 Excel _Application 对象// 启动 Excel 并得到应用程序对象if(!app.CreateDispatch("Excel.Application")){AfxMessageBox("Couldn''t start Excel.");}else{//使 Excel 可视，然后显示消息app.SetVisible(TRUE);AfxMessageBox ("Excel is Running!");}
}

附加说明

当你在项目中从类型库添加类（根据上面所说的9个步骤），你将注意到在项目中添加了许多类。在ClassView中你可以双击某个类查看该类在Excel8.cpp中的定义。

如果你需要验证返回值或改变函数的执行，你需要得到函数的定义，无论何时当你改变函数定义，记住在Excel8.h中修改定义。当你这样做的时候，请确认你改变的是正确的函数定义；有时多个类中包含了相同名字的函数，例如GetApplication。

通过以上如何自动化Microsoft Excel的讲述，你可以将这些方法应用到其它自动化程序中。下表包含了Microsoft Office应用程序类型库的名称。

   应用程序(Application)              类型库(Type Library)--------------------------------------------------------Microsoft Access 97                   Msacc8.olbMicrosoft Jet Database 3.5            DAO350.dllMicrosoft Binder 97                   Msbdr8.olbMicrosoft Excel 97                    Excel8.olbMicrosoft Graph 97                    Graph8.olbMicrosoft Office 97                   Mso97.dllMicrosoft Outlook 97                  Msoutl97.olbMicrosoft PowerPoint 97               Msppt8.olbMicrosoft Word 97                     Msword8.olbMicrosoft Access 2000                 Msacc9.olbMicrosoft Jet Database 3.51           DAO360.dllMicrosoft Binder 2000                 Msbdr9.olbMicrosoft Excel 2000                  Excel9.olbMicrosoft Graph 2000                  Graph9.olbMicrosoft Office 2000                 Mso9.dllMicrosoft Outlook 2000                Msoutl9.olbMicrosoft PowerPoint 2000             Msppt9.olbMicrosoft Word 2000                   Msword9.olbMicrosoft Access 2002                 Msacc.olbMicrosoft Excel 2002                  Excel.exeMicrosoft Graph 2002                  Graph.exeMicrosoft Office 2002                 MSO.dllMicrosoft Outlook 2002                MSOutl.olbMicrosoft PowerPoint 2002             MSPpt.olbMicrosoft Word 2002                   MSWord.olbMicrosoft Office Access 2003          Msacc.olbMicrosoft Office Excel 2003           Excel.exeMicrosoft Graph 2003                  Graph.exeMicrosoft Office 2003                 MSO.dllMicrosoft Office Outlook 2003         MSOutl.olbMicrosoft Office PowerPoint 2003      MSPpt.olbMicrosoft Office Word 2003            MSWord.olb

提示：除了 Dao350.dll 、Dao360.dll和 Microsoft Office 10(MSO.dll)，类型库默认位于： C:\Program Files\Microsoft Office\Office (Office 2002 路径是 C:\...\Office10，Office 2003 路径是 C:\...\Office11), Dao350.dll/Dao360.dll 默认位于 C:\Program Files\Common Files\Microsoft Shared\Dao。 Office 2002 的MSO.dll 默认 C:\Program Files\Common Files\Microsoft Shared\Office10， Office 2003 的MSO.dll位于 C:\Program Files\Common Files\Microsoft Shared\Office11
==========================================================================================

Excel

1. 引入类

#include "CApplication.h"
#include "CFont0.h"
#include "CWorkbook.h"
#include "CWorkbooks.h"
#include "CRange.h"
#include "CWorksheet.h"
#include "CWorksheets.h"

2. 主要接口

BOOL CXXX::Create(void)
{
    if(!m_app.CreateDispatch(L"Excel.Application"))
   {
       AfxMessageBox(L"Could not start Excel.");
      return FALSE;
   }
   m_app.put_DisplayAlerts (VARIANT_FALSE);
   m_app.put_UserControl(FALSE);
   return TRUE;
}

void CXXX::Destroy(void)
{
     //CloseWorkbook();
     m_app.Quit();
     m_app.ReleaseDispatch();
}

int CXXX::OpenWorkbook(CString strPath)
{
    try
    {
         LPDISPATCH lpDisp;
         lpDisp = m_app.get_Workbooks();  // Get an IDispatch pointer
         ASSERT(lpDisp);
         m_books.AttachDispatch( lpDisp );  // Attach the IDispatch pointer to the books object.

// open the document

lpDisp = m_books.Open(strPath,     m_covOptional, m_covOptional,
          m_covOptional, m_covOptional, m_covOptional, m_covOptional,
          m_covOptional, m_covOptional, m_covOptional, m_covOptional,
          m_covOptional, m_covOptional, m_covOptional, m_covOptional);
         ASSERT(lpDisp);

//Set CWorkbook to use lpDisp, the IDispatch* of the actual workbook.
         m_book.AttachDispatch(lpDisp); 
         m_sheets = m_book.get_Worksheets();
    }
    catch(COleDispatchException* e)
    {
        TRACE(_T("[EXCEPTION]OpenWorkbook exception COleDispatchException!!!\n"));
        TCHAR msg[2048];
        e->GetErrorMessage(msg,1024);
        e->Delete();
        MessageBox(0,msg, TEXT("Error"), MB_OK | MB_ICONERROR);
        return -1;
     }
     return 0;
}

void Cxxxx::CloseWorkbook(void)
{
    m_sheet.ReleaseDispatch();
　　m_sheets.ReleaseDispatch();
　　m_book.ReleaseDispatch();
　　m_books.Close();
　　m_books.ReleaseDispatch();
}

int CXXX::ReaddExcelData(CString strPath)
{
　　if( -1 == OpenWorkbook(strPath) )
　　{
　　　　CloseWorkbook();
　　　　return -1;
　　}

　　if ( !ParseCauSheet() )
　　{
　　　　CloseWorkbook();
　　　　return -1;
　　}

　　CloseWorkbook();
　　return 0;
}

void CExcelOp::ParseSheet(void)
{
    CRange range;
　　CRange usedRange;
　　COleVariant val;
　　CString strRangeId,strKeyword;
　　CString strRangePos;
　　int index = 0;

　　m_sheet = m_sheets.get_Item(COleVariant((short)(1))); // m_sheets are indexed starting from 1
　　usedRange = m_sheet.get_UsedRange();
　　range = usedRange.get_Rows();
　　int nRowCnt = (int)range.get_Count();
　　for(int i = 1; i <= nRowCnt; i++)
　　{

　　　　　　。。。。。
　　}
　　return;
}