用VC调用EXCEL简单代码(转载自越长大越孤单，觉得很好)

首先在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程序对照一下，回头再讨论这个问题吧！啊！哈---依呀累死我了！！