首先在stdafx.h里加入对IDispatch接口提供支持的头文件：
#include 《afxDisp.h》
再在应用程序类的InitInstance()函数里加入：
AfxOleInit(); // 初始化OLE Automation库
我们应该怎么引用Excel对象库呢？按Ctrl+W启动Class Wizard，
再选择“Add Class...”->“From a type library...”，然后
选择“c:\program files\microsoft office\office”目录下的
“Excel8.olb”，随后在“confirm classes”对话框的List box
中将列出所有Excel8对象库中可用的对象。按住ctrl键再用箭头
选中Sheets、_Application、_Worksheet、_Workbook、Workbooks、
Range几个对象，按确定。哈！你看到在ClassView窗口中多出的
几个类吗？现在Excel就可以任由我们摆布啦！
好了，VC的灵话性在这儿将会体现出来了，我们生成的几个Excel
对象有很多已定义好的函数，但它们可能并不完全适合我们，哈！
我们可以跟据需要来修改这些函数！！当然不能乱改，前提是我
们必须对Excel VBA有详细的了解！
比如Workbooks类中的Add函数有一个Template参数用于指定模板文
件，但大多数情况我们用不着模板文件，怎么办呢？你是否记得在
VBA中这个参数是一个可选项？那就改呗！我们可以用C++的特性，
重载这个函数！在左边的Workbooks上右键->“Add member
function...”，然后在function type中输入“LPDISPATCH”，在
fucntion declaration输入“Add()”然后按OK。然后按如下方法
编辑该函数，大家看到，我们只是将Template参数去掉了，然而
继续保留对InvokeHelper的调用，请别忘记，MFC自动化类通常都
是从COleDispatchDriver派生的。
LPDISPATCH Workbooks::Add()
{
LPDISPATCH result;
InvokeHelper(0xb5, DISPATCH_METHOD, VT_DISPATCH,
(void*)&result, NULL);
return result;
}
为对话框上的按钮生成一个函数吧，我们要写VC代码了！别忘了在
对话框的实现文件中加入#include"excel8.h"呀！
准备好了吗？代码如下！！！！！
void CExcelOleDlg::OnButton1()
{
LPDISPATCH pDispatch = NULL;
LPUNKNOWN pUnknown = NULL;
CLSID clsid;
_Application appExcel;
LPDISPATCH pWorkbooks = NULL;
Workbooks Workbooks;
LPDISPATCH pWorkbook = NULL;
LPDISPATCH pWorksheets = NULL;
Sheets Worksheets;
LPDISPATCH pWorksheet = NULL;
_Worksheet Worksheet;
LPDISPATCH pWorkRange = NULL;
Range WorkRange;
CLSIDFromProgID( L"Excel.Application.8", &clsid );
// 看指定的对象是否已经运行
if ( SUCCEEDED(GetActiveObject(
clsid, NULL, &pUnknown )) )
{
VERIFY( SUCCEEDED(pUnknown->QueryInterface(
IID_IDispatch, (void**)&pDispatch )) );
ASSERT( pDispatch );
appExcel.AttachDispatch( pDispatch );
pUnknown->Release();
}
else
{
// 没运行。那就建立Excel.Application.8对象
if ( ! appExcel.CreateDispatch(
(LPCTSTR)"Excel.Application.8") )
{
MessageBox(
"can not found the Excel.Application.8 object!");
return;
}
}
// 显示并激活Excel窗口
// XLMAIN 是用Spy++查到的
HWND hWndExcelMain = ::FindWindow( "XLMAIN", NULL );
ASSERT( hWndExcelMain );
::ShowWindow( hWndExcelMain, SW_SHOW );
::UpdateWindow( hWndExcelMain );
::BringWindowToTop( hWndExcelMain );
// 设置在一个新工作簿中的工作表数为1
appExcel.SetSheetsInNewWorkbook( 1 );
// 得到工作簿集的IDispatch，并绑定到Workbooks对象
pWorkbooks = appExcel.GetWorkbooks();
ASSERT( pWorkbooks );
Workbooks.AttachDispatch( pWorkbooks );
// 如果工作簿集是空的，那就添加一个工作簿
if ( Workbooks.GetCount() == (long)0 )
{
pWorkbook = Workbooks.Add();
ASSERT( pWorkbook );
}
// 得到工作表集（同上）
pWorksheets = appExcel.GetWorksheets();
ASSERT( pWorksheets );
Worksheets.AttachDispatch( pWorksheets );
// 激活第一个工作表
pWorksheet = Worksheets.GetItem(
COleVariant((short)1) );
ASSERT( pWorksheet );
Worksheet.AttachDispatch( pWorksheet );
Worksheet.Select( COleVariant((short)TRUE) );
// 得到A1区域的引用
pWorkRange = Worksheet.GetRange(
COleVariant("A1"), COleVariant("A1"));
WorkRange.AttachDispatch( pWorkRange );
WorkRange.SetValue(
COleVariant("多简单！就是麻烦一点儿！") );
if ( pWorkbook )
pWorkbook->Release();
}
请注意，上述代码中除了了加入错误检查之外，还判断指定的对象是否已经
运行，如果已经运行则直接引用该对象，否则才建立新对象，其它的和上面
VB程序的功能相同！！！竟然多了这么多代码，真让人不可思议！
快累死我了！我是实在没力气解释这段VC程序了，感兴趣的朋友可以拿它和
上面的VB程序对照一下，回头再讨论这个问题吧！啊！哈---依呀累死我了！！