[转]如何使用MFC和类型库创建自动化项目

本文转自：http://www.cnblogs.com/zhoug2020/archive/2012/04/01/2429064.html

摘要

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

更多信息

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

创建自动化项目

. 在Microsoft Developer Studio中，创建"MFC AppWizard(exe)"项目，命名为"AutoProject."
. 在第1步的MFC应用程序向导中，选择"Dialog Based"应用程序类型并点"完成"
在创建的项目信息对话框中将显示创建的类： Application: CAutoProjectApp in AutoProject.h and AutoProject.cpp
Dialog: CAutoProjectDlg in AutoProject.h and AutoProjectDlg.cpp
点 OK 完成项目创建。
. Visual Studio设计编辑区打开了对话框"IDD_AUTOPROJECT_DIALOG" ,依照下面两步修改它。
. 删除静态控件(IDC_STATIC)和Cancel按钮(IDCANCEL)
. 将OK按钮改为"IDRUN"，说明改为"Run." 关闭AutoProject.rc对话框设计界面。
. 点View菜单中的ClassWizard(或按CTRL+W)
. 选择消息映射(Message Maps)标签,在对象ID列表框中选择IDRUN，在消息列表框中选择"BN_CLICKED",点添加函数并命名为"OnRun",点OK关闭ClassWizard

提示：此步骤在AutoProjectDLG.h中定义了"OnRun();"函数，并在 AutoProjectDLG.cpp 中添加了消息处理函数CAutoProjectDlg::OnRun()。
. 点View菜单中的ClassWizard(或按CTRL+W)
. 选择Automation标签，点Add Class并选择"From a type library" 浏览并选择你希望自动化的对象库(例如，如果你自动化Excel , 则选择Microsoft Excel 8.0 对象库，默认位于 C:\Program Files\Microsoft Office\Office\Excel8.olb).

如果你自动化Microsoft Excel ,选择位于 C:\Program Files\Microsoft Office\Office\Excel9.olb 的Microsoft Excel 9.0 对象库。

如果你自动化Microsoft Excel 2002和Microsoft Office Excel  ,对象库内含在Excel.exe中，Office 2002的Excel.exe 默认位于 C:\program Files\Microsoft Office\Office10\Excel.exe, Office 2003的Excel.exe 默认位于 C:\program Files\Microsoft Office\Office11\Excel.exe 。选择合适的对象库后，点Open,在类确认列表中选择所有类，点OK。

提示：类确认对话框中的列表框里包含了Microsoft Excel 类型库中的所有IDispatch接口（与类中一致）。在对话框下面可以看到命名为Excel8.cpp的执行文件，该文件包含了从COleDispatchDriver派生的封装类，头文件是Excel8.h(对于Excel 2002和Excel ,文件名为Excel.cpp和Excel.h)
. 点OK关闭MFC ClassWizard对话框
. 在 CAutoProjectApp::InitInstance() 函数中添加如下代码，用于加载COM支持库: BOOL CAutoProjectApp::InitInstance()
{
      if(!AfxOleInit())  // Your addition starts here
      {
            AfxMessageBox("Could not initialize COM dll");
            return FALSE;
      }     // End of your addition

      AfxEnableControlContainer();
      .
      .
      .

}

. 在AutoProject.cpp顶部添加#include行 #include <afxdisp.h>

. 在AutoProjectDlg.cpp 顶部stdafx.h下添加对excel8.h的包含 #include "stdafx.h"
#include "excel8.h" // excel.h in the case of Excel 2002 and Excel 2003.

. 在CAutoProjectDlg::OnRun()中添加如下所示的自动化代码 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!");
      }
}

. 编译并运行项目。运行结果：当你点击对话框中的Run按钮，Microsoft Excel将被调用。关闭消息框使Auto_Excel对话框激活。CAutoProjectDlg::OnRun()函数结束，application变量离开作用域，Microsoft Excel将退出。 

附加说明

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

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

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

   Microsoft Access                    Msacc8.olb
   Microsoft Jet Database 3.5            DAO350.dll
   Microsoft Binder                    Msbdr8.olb
   Microsoft Excel                     Excel8.olb
   Microsoft Graph                     Graph8.olb
   Microsoft Office                    Mso97.dll
   Microsoft Outlook                   Msoutl97.olb
   Microsoft PowerPoint                Msppt8.olb

   Microsoft Word                      Msword8.olb
   Microsoft Access                  Msacc9.olb
   Microsoft Jet Database 3.51           DAO360.dll
   Microsoft Binder                  Msbdr9.olb
   Microsoft Excel                   Excel9.olb
   Microsoft Graph                   Graph9.olb
   Microsoft Office                  Mso9.dll
   Microsoft Outlook                 Msoutl9.olb
   Microsoft PowerPoint              Msppt9.olb
   Microsoft Word                    Msword9.olb

   Microsoft Access                  Msacc.olb
   Microsoft Excel                   Excel.exe
   Microsoft Graph                   Graph.exe
   Microsoft Office                  MSO.dll
   Microsoft Outlook                 MSOutl.olb
   Microsoft PowerPoint              MSPpt.olb
   Microsoft Word                    MSWord.olb

   Microsoft Office Access           Msacc.olb
   Microsoft Office Excel            Excel.exe
   Microsoft Graph                   Graph.exe
   Microsoft Office                  MSO.dll
   Microsoft Office Outlook          MSOutl.olb
   Microsoft Office PowerPoint       MSPpt.olb
   Microsoft Office Word             MSWord.olb

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

Excel

. 引入类

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

. 主要接口

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[];
        e->GetErrorMessage(msg,);
        e->Delete();
        MessageBox(,msg, TEXT("Error"), MB_OK | MB_ICONERROR);
        return -;
     }
     return ;
}

 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( - == OpenWorkbook(strPath) )
　　{
　　　　CloseWorkbook();
　　　　return -;
　　}

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

　　CloseWorkbook();
　　return ;
}

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

　　m_sheet = m_sheets.get_Item(COleVariant((short)())); // 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 = ; i <= nRowCnt; i++)
　　{

　　　　　　。。。。。
　　}
　　return;
}