Excel加载项包括从xml写入数据，作图

公司需要开发一个Excel插件，这是用来测试的，可以很好的运行，也花费了不少时间。

// Bar.cpp : Implementation of CBar
#include “stdafx.h“
#include “ExcelLoad.h“
#include “Bar.h“
#include “xmlNodeWrapper.h“

/////////////////////////////////////////////////////////////////////////////
// CBar

_ATL_FUNC_INFO onclickButtonInfo ={CC_STDCALLVT_EMPTY2{VT_DISPATCHVT_BYREF | VT_BOOL}};

void __stdcall CBar::onclickButton1（IDispatch* /*Office::_CommandBarButton* */ CtrlVARIANT_BOOL * CancelDefault）
{
	USES_CONVERSION;	 
 	_WorkbookPtr   book;  
	_WorksheetPtr   sheet;   
	WorkbooksPtr   books;   
	SheetsPtr   sheets;   
	RangePtr   range;  
	book = m_app->GetActiveWorkbook（）;
	sheets = book->GetSheets（）;
	sheet = sheets->GetItem（_variant_t（（long）1））;
	range = sheet ->GetUsedRange（0）;
	IxmlDOMDocumentPtr   doc;
	HRESULT ret = doc.CreateInstance（ __uuidof（MSxml2::DOMDocument40））;
	if （FAILED（ret））
		return;
	doc->load（“F:\\WorkProject\\ExcelLoad\\Debug\\test.xml“）;
	IxmlDOMNodePtr pRoot = doc->documentElement;
//	CxmlNodeListWrapper tables= pRoot->selectNodes（_T（“//Table[@name=‘2011年 一季‘]|//Table[@name=‘2010年 年度‘]“））;
	CxmlNodeListWrapper tables= pRoot->selectNodes（_T（“//Table[@name]“））;
	int col = 1;
	for （int t = 0; t	{
		IxmlDOMNodePtr table = tables.Node（t）;
		CxmlNodeWrapper tableWrap（table）;
		CxmlNodeListWrapper cols（table->firstChild->childNodes）;
		for （int i=0; i		{
			CxmlNodeWrapper content = cols.Node（i）;
			if（t==0）
			{
				CString strText = content.AttrGetStr（_T（“text“））;
				int nIdent = content.AttrGetInt（_T（“indent“））;
				strText = CString（‘\‘‘ 1） + CString（‘ ‘ nIdent） + strText;
				range->PutItem（_variant_t（long（i+1）） _variant_t（long（1）） _variant_t（strText））;
			}
			CString str = content.GetText（）;
			if （i==0）
			{
				str = tableWrap.AttrGetStr（_T（“name“））;
			}
			str.Replace（_T（“--“） _T（“0“））;
			range->PutItem（_variant_t（long（i+1）） _variant_t（long（t+2）） _variant_t（str））;
			if （content.AttrGetStr（_T（“attr“）） == _T（“money“））
			{
				RangePtr cellRng = range->GetItem（_variant_t（long（i+1）） _variant_t（long（t+2）））;
				cellRng->NumberFormatLocal = _variant_t（_T（“###0.00;[红色]-###0.00“））;
			}
		}	
	}
	doc.Release（）;
}
void __stdcall CBar::onclickButton2（IDispatch* /*Office::_CommandBarButton* */ CtrlVARIANT_BOOL * CancelDefault）
{
	USES_CONVERSION;
	_WorkbookPtr   book;  
	_WorksheetPtr   sheet;   
	WorkbooksPtr   books;   
	SheetsPtr   sheets;   
	RangePtr   range;
	book = m_app->GetActiveWorkbook（）;
	sheets = book->GetSheets（）;
	sheet = sheets->GetItem（_variant_t（（long）1））;
	range = sheet ->GetUsedRange（0）;
	int iColCnt = range ->GetColumns（） ->GetCount（）;
	CString str;
	int iRowCnt = range ->GetRows（） ->GetCount（）;
	range = sheet ->GetCells（）;
	range->Clear（）;
}

void __stdcall CBar::onclickButton3（IDispatch* /*Office::_CommandBarButton* */ CtrlVARIANT_BOOL * CancelDefault）
{
	USES_CONVERSION;
	_WorkbookPtr   book;  
	_WorksheetPtr   sheet;   
	WorkbooksPtr   books;   

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3400  2011-06-24 00:17  ExcelLoad\Bar.cpp

     文件       7158  2011-06-04 18:57  ExcelLoad\Bar.h

     文件       1037  2011-04-14 20:23  ExcelLoad\Bar.rgs

     文件        839  2011-06-04 19:07  ExcelLoad\dlldata.c

     文件       1165  2011-04-14 18:53  ExcelLoad\dlldatax.c

     文件        754  2011-04-14 18:53  ExcelLoad\dlldatax.h

     文件    3816609  2003-08-13 02:34  ExcelLoad\EXCEL.tlh

     文件    3772341  2003-08-13 02:34  ExcelLoad\EXCEL.tli

     文件      33132  2011-04-14 18:53  ExcelLoad\ExcelLoad.aps

     文件        469  2011-04-14 18:53  ExcelLoad\ExcelLoad.clw

     文件       3868  2011-04-14 18:53  ExcelLoad\ExcelLoad.cpp

     文件        226  2011-04-14 18:53  ExcelLoad\ExcelLoad.def

     文件      12604  2011-06-05 02:41  ExcelLoad\ExcelLoad.dsp

     文件        541  2011-04-14 18:53  ExcelLoad\ExcelLoad.dsw

     文件       5271  2011-06-04 19:07  ExcelLoad\ExcelLoad.h

     文件        726  2011-04-14 18:53  ExcelLoad\ExcelLoad.idl

     文件    7611392  2011-06-24 00:17  ExcelLoad\ExcelLoad.ncb

     文件      52736  2011-06-24 00:17  ExcelLoad\ExcelLoad.opt

     文件       1501  2011-06-24 00:17  ExcelLoad\ExcelLoad.plg

     文件       2867  2011-04-14 18:53  ExcelLoad\ExcelLoad.rc

     文件       1548  2011-06-04 19:07  ExcelLoad\ExcelLoad.tlb

     文件        251  2011-04-14 18:53  ExcelLoad\ExcelLoadps.def

     文件        478  2011-04-14 18:53  ExcelLoad\ExcelLoadps.mk

     文件       1135  2011-06-04 19:07  ExcelLoad\ExcelLoad_i.c

     文件       4906  2011-06-04 19:07  ExcelLoad\ExcelLoad_p.c

     文件       3598  1998-08-09 11:07  ExcelLoad\MSADDNDR.tlh

     文件     487491  2003-08-08 00:23  ExcelLoad\MSO.tlh

     文件     380184  2003-08-08 00:23  ExcelLoad\MSO.tli

     文件    1286152  2011-03-25 11:22  ExcelLoad\msxml4.dll

     文件        502  2011-04-14 18:53  ExcelLoad\resource.h

............此处省略13个文件信息