本文转自：http://www.cnblogs.com/zhoug2020/archive/2012/04/01/2429064.html
摘要
本文详细介绍了如何自动化像Microsoft Office这样支持COM的应用程序。
更多信息
下面部分介绍了如何创建MFC项目。采用Microsoft Excel举例，你可以将前8个步骤用于任何项目，修改9-15步用于不同的应用程序。
创建自动化项目
1. 在Microsoft Developer Studio中，创建"MFC AppWizard(exe)"项目，命名为"AutoProject."
2. 在第1步的MFC应用程序向导中，选择"Dialog Based"应用程序类型并点"完成"
在创建的项目信息对话框中将显示创建的类： Application: CAutoProjectApp in AutoProject.h and AutoProject.cpp
Dialog: CAutoProjectDlg in AutoProject.h and AutoProjectDlg.cpp
点 OK 完成项目创建。
3. Visual Studio设计编辑区打开了对话框"IDD_AUTOPROJECT_DIALOG" ,依照下面两步修改它。
4. 删除静态控件(IDC_STATIC)和Cancel按钮(IDCANCEL)
5. 将OK按钮改为"IDRUN"，说明改为"Run." 关闭AutoProject.rc对话框设计界面。
6. 点View菜单中的ClassWizard(或按CTRL+W)
7. 选择消息映射(Message Maps)标签,在对象ID列表框中选择IDRUN，在消息列表框中选择"BN_CLICKED",点添加函数并命名为"OnRun",点OK关闭ClassWizard
提示：此步骤在AutoProjectDLG.h中定义了"OnRun();"函数，并在 AutoProjectDLG.cpp 中添加了消息处理函数CAutoProjectDlg::OnRun()。
8. 点View菜单中的ClassWizard(或按CTRL+W)
9. 选择Automation标签，点Add Class并选择"From a type library" 浏览并选择你希望自动化的对象库(例如，如果你自动化Excel 97, 则选择Microsoft Excel 8.0 对象库，默认位于 C:\Program Files\Microsoft Office\Office\Excel8.olb).
如果你自动化Microsoft Excel 2000,选择位于 C:\Program Files\Microsoft Office\Office\Excel9.olb 的Microsoft Excel 9.0 对象库。
如果你自动化Microsoft Excel 2002和Microsoft Office Excel 2003 ,对象库内含在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 2003,文件名为Excel.cpp和Excel.h)
10. 点OK关闭MFC ClassWizard对话框
11. 在 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();
.
.
.
}
12. 在AutoProject.cpp顶部添加#include行 #include <afxdisp.h>
13. 在AutoProjectDlg.cpp 顶部stdafx.h下添加对excel8.h的包含 #include "stdafx.h"
#include "excel8.h" // excel.h in the case of Excel 2002 and Excel 2003.
14. 在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!");
}
}
15. 编译并运行项目。运行结果：当你点击对话框中的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 97 Msacc8.olb
Microsoft Jet Database 3.5 DAO350.dll
Microsoft Binder 97 Msbdr8.olb
Microsoft Excel 97 Excel8.olb
Microsoft Graph 97 Graph8.olb
Microsoft Office 97 Mso97.dll
Microsoft Outlook 97 Msoutl97.olb
Microsoft PowerPoint 97 Msppt8.olb
Microsoft Word 97 Msword8.olb
Microsoft Access 2000 Msacc9.olb
Microsoft Jet Database 3.51 DAO360.dll
Microsoft Binder 2000 Msbdr9.olb
Microsoft Excel 2000 Excel9.olb
Microsoft Graph 2000 Graph9.olb
Microsoft Office 2000 Mso9.dll
Microsoft Outlook 2000 Msoutl9.olb
Microsoft PowerPoint 2000 Msppt9.olb
Microsoft Word 2000 Msword9.olb
Microsoft Access 2002 Msacc.olb
Microsoft Excel 2002 Excel.exe
Microsoft Graph 2002 Graph.exe
Microsoft Office 2002 MSO.dll
Microsoft Outlook 2002 MSOutl.olb
Microsoft PowerPoint 2002 MSPpt.olb
Microsoft Word 2002 MSWord.olb
Microsoft Office Access 2003 Msacc.olb
Microsoft Office Excel 2003 Excel.exe
Microsoft Graph 2003 Graph.exe
Microsoft Office 2003 MSO.dll
Microsoft Office Outlook 2003 MSOutl.olb
Microsoft Office PowerPoint 2003 MSPpt.olb
Microsoft 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;
}
时间： 2024-08-29 17:19:50