VC6中使用MFC自动化Excel数据写入和图表绘制

在VC6.0中使用MFC实现Excel自动化:写入数据绘制图表 环境说明: Windows XP VC++ 6.0 Excel 2003 详细过程: http://zhangliancheng.com

// Machine generated IDispatch wrapper class（es） created with ClassWizard

#include “stdafx.h“
#include “excel.h“

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif



/////////////////////////////////////////////////////////////////////////////
// Adjustments properties

/////////////////////////////////////////////////////////////////////////////
// Adjustments operations

LPDISPATCH Adjustments::GetApplication（）
{
	LPDISPATCH result;
	InvokeHelper（0x60020000 DISPATCH_PROPERTYGET VT_DISPATCH （void*）&result NULL）;
	return result;
}

long Adjustments::GetCreator（）
{
	long result;
	InvokeHelper（0x60020001 DISPATCH_PROPERTYGET VT_I4 （void*）&result NULL）;
	return result;
}

LPDISPATCH Adjustments::GetParent（）
{
	LPDISPATCH result;
	InvokeHelper（0x1 DISPATCH_PROPERTYGET VT_DISPATCH （void*）&result NULL）;
	return result;
}

long Adjustments::GetCount（）
{
	long result;
	InvokeHelper（0x2 DISPATCH_PROPERTYGET VT_I4 （void*）&result NULL）;
	return result;
}

float Adjustments::GetItem（long Index）
{
	float result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper（0x0 DISPATCH_PROPERTYGET VT_R4 （void*）&result parms
		Index）;
	return result;
}

void Adjustments::SetItem（long Index float newValue）
{
	static BYTE parms[] =
		VTS_I4 VTS_R4;
	InvokeHelper（0x0 DISPATCH_PROPERTYPUT VT_EMPTY NULL parms
		 Index newValue）;
}


/////////////////////////////////////////////////////////////////////////////
// CalloutFormat properties

/////////////////////////////////////////////////////////////////////////////
// CalloutFormat operations

LPDISPATCH CalloutFormat::GetApplication（）
{
	LPDISPATCH result;
	InvokeHelper（0x60020000 DISPATCH_PROPERTYGET VT_DISPATCH （void*）&result NULL）;
	return result;
}

long CalloutFormat::GetCreator（）
{
	long result;
	InvokeHelper（0x60020001 DISPATCH_PROPERTYGET VT_I4 （void*）&result NULL）;
	return result;
}

LPDISPATCH CalloutFormat::GetParent（）
{
	LPDISPATCH result;
	InvokeHelper（0x1 DISPATCH_PROPERTYGET VT_DISPATCH （void*）&result NULL）;
	return result;
}

void CalloutFormat::AutomaticLength（）
{
	InvokeHelper（0xa DISPATCH_METHOD VT_EMPTY NULL NULL）;
}

void CalloutFormat::CustomDrop（float Drop）
{
	static BYTE parms[] =
		VTS_R4;
	InvokeHelper（0xb DISPATCH_METHOD VT_EMPTY NULL parms
		 Drop）;
}

void CalloutFormat::CustomLength（float Length）
{
	static BYTE parms[] =
		VTS_R4;
	InvokeHelper（0xc DISPATCH_METHOD VT_EMPTY NULL parms
		 Length）;
}

void CalloutFormat::PresetDrop（long DropType）
{
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper（0xd DISPATCH_METHOD VT_EMPTY NULL parms
		 DropType）;
}

long CalloutFormat::GetAccent（）
{
	long result;
	InvokeHelper（0x64 DISPATCH_PROPERTYGET VT_I4 （void*）&result NULL）;
	return result;
}

void CalloutFormat::SetAccent（long nNewValue）
{
	static BYTE parms[] =
		VTS_I4;
	

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2011-04-07 14:57  TestExcel\
     目录           0  2011-04-06 14:43  TestExcel\Debug\
     文件     5468573  2011-04-06 13:41  TestExcel\Debug\excel.obj
     文件       15872  2011-04-02 17:12  TestExcel\Debug\Result.xls
     文件      110376  2011-04-06 13:41  TestExcel\Debug\StdAfx.obj
     文件     1486921  2011-04-06 14:43  TestExcel\Debug\TestExcel.exe
     文件     2159716  2011-04-06 14:43  TestExcel\Debug\TestExcel.ilk
     文件       13416  2011-04-06 13:41  TestExcel\Debug\TestExcel.obj
     文件     5497704  2011-04-06 13:41  TestExcel\Debug\TestExcel.pch
     文件     3466240  2011-04-06 14:43  TestExcel\Debug\TestExcel.pdb
     文件        2480  2011-04-06 13:41  TestExcel\Debug\TestExcel.res
     文件       76629  2011-04-06 14:43  TestExcel\Debug\TestExcelDlg.obj
     文件      287744  2011-04-06 14:43  TestExcel\Debug\vc60.idb
     文件      700416  2011-04-06 14:43  TestExcel\Debug\vc60.pdb
     文件     1377727  2011-04-02 10:47  TestExcel\excel.cpp
     文件      399786  2011-04-02 10:47  TestExcel\excel.h
     文件        9870  2011-04-01 21:33  TestExcel\RCa02428
     文件        9870  2011-04-01 21:36  TestExcel\RCb02428
     文件        9870  2011-04-01 21:39  TestExcel\RCc02428
     文件        3633  2011-04-01 21:33  TestExcel\ReadMe.txt
     目录           0  2011-04-01 21:33  TestExcel\res\
     文件        1078  2011-04-01 21:33  TestExcel\res\TestExcel.ico
     文件         401  2011-04-01 21:33  TestExcel\res\TestExcel.rc2
     文件         687  2011-04-02 10:45  TestExcel\resource.h
     文件         229  2011-04-02 10:46  TestExcel\StdAfx.cpp
     文件        1054  2011-04-01 21:33  TestExcel\StdAfx.h
     文件       35516  2011-04-02 10:45  TestExcel\TestExcel.aps
     文件        1081  2011-04-07 14:57  TestExcel\TestExcel.clw
     文件        2253  2011-04-02 10:44  TestExcel\TestExcel.cpp
     文件        4332  2011-04-02 17:15  TestExcel\TestExcel.dsp
     文件         543  2011-04-01 21:33  TestExcel\TestExcel.dsw
............此处省略7个文件信息