【转】Visual C++ 6.0 实现对excel2003的读写

1. 导入excel.h,excel.cpp文件

    具体方法是：

    1）进入VC6的类向导中的AUTOMATION页中，单击“ADD CLASS”，然后选择“from a type”，浏览office安装目录选择导入工程文件,如图1所示。

    2）选择EXCEL打开,如图2所示:

    3）点击对话框中的两个"BROWSE..."按钮,将excel.h与excel.cpp保存到当前VC++工程所在的目录。然后添加_Application,_Workbook,_Worksheet,Workbooks,Worksheets,Range类,这时VC++工程自动将excel.h与excel.cpp文件添加到VC++工程中。（注：上述6个类可一次添加，也可分别添加。）

2.  引入以下头文件

    

#include "comdef.h" 
#include "excel.h" 

3.  具体操作代码

BOOL COBUAntennaPatternDlg::CreateExcelFile(CString fileName)
{
	/*
	先创建一个_Application类，用_Application来创建一个Excel应用程序接口。
	Excel接口类中层次如下所示：
	-_Application
	 -Workbooks 工作簿集合
	  -_Workbook 工作簿
	   -Worksheets 工作表集合
	    -_Worksheet 工作表
		 -Range 单元格区域
	故要操作表，必须逐步获取
	Workbooks->_Workbook->Worksheets->_Worksheet->Range
	*/
	_Application	app;
	Workbooks		books;
	_Workbook		book;
	Worksheets		sheets;
	_Worksheet		sheet;
	Range			range;	// Excel中针对单元格的操作都应先获取其对应的Range对象
	Range			cols;

	/*
	COleVariant类为VARIANT数据类型的包装。
	在自动化程序中，通常都使用VARIANT数据类型进行参数传递。
	故下列程序中，函数参数都是通过COleVariant类来转换的。
	*/
	COleVariant		covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

	// 创建EXCEL服务器(启动Excel) 
	if (::CoInitialize( NULL ) == E_INVALIDARG)
	{
		AfxMessageBox(_T("初始化Com失败!"));
		return FALSE;
                }
	if (!app.CreateDispatch("Excel.Application"))
	{
		AfxMessageBox("无法创建Excel应用!");
		return FALSE;
	}

	// 获取工作簿集合
	books = app.GetWorkbooks();
	// 添加一个工作簿
	book =books.Add(covOptional);
	// 获取工作表集合
	sheets = book.GetWorksheets();
	// 获取第一个工作表
	sheet = sheets.GetItem(COleVariant((short)1));
	// 选择工作表中A1:A1单元格区域
	range = sheet.GetRange(COleVariant("A1"),COleVariant("A1"));
	// 设置单元格内容
	range.SetValue2(COleVariant("角度"));
	range = sheet.GetRange(COleVariant("B1"),COleVariant("B1"));
	range.SetValue2(COleVariant("功率"));

	CString sCell;
	for(int i=0; i<360; i++)
	{
		sCell.Format("A%d",i+2);
		range = sheet.GetRange(COleVariant(sCell),COleVariant(sCell));
		range.SetValue2(COleVariant((short)(i)));	// 写入short型数据
		sCell.Format("B%d",i+2);
		range = sheet.GetRange(COleVariant(sCell),COleVariant(sCell));
		range.SetValue2(COleVariant((double)(m_dBandPowerArr[i])));// 写入double型数据
	}
	
	// 选择整列，设为宽度自适应
	cols = range.GetEntireColumn();
	cols.AutoFit();
	// 隐藏Excel表格，并设置状态为用户不可控制
	app.SetVisible(FALSE);
	app.SetUserControl(FALSE);
	
	// 保存文件
	book.SaveAs(COleVariant(fileName),covOptional,
		covOptional,covOptional,
		covOptional,covOptional,
		(long)0,covOptional,covOptional,covOptional,
		covOptional,covOptional);
	
	// 退出
	app.Quit();
	app.ReleaseDispatch();

	return TRUE;
}

 4.  调用

char BASED_CODE szFilterProgram[] = "Microsoft Office Excel 工作簿(*.xls)|*.xls||";
CTime time = CTime::GetCurrentTime();
CString fileName = time.Format("OBU%Y%m%d%H%M%S"); 			
CFileDialog fileSaveBox(FALSE,NULL,fileName,
                   OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,szFilterProgram);
fileSaveBox.m_ofn.lpstrTitle = "保存";
if(fileSaveBox.DoModal() == IDOK)
{
	CString sPath;
	sPath = fileSaveBox.GetPathName();
	if(CreateExcelFile(sPath))
		AfxMessageBox("保存成功!");
}