1、首先在工程中加入文件excel2000.fp和excelreport.fp文件(.\national instruments\cvi90\toolslib\activex\excel);包含头文件#include "ExcelReport.h"和#include “excel2000.h”
2、代码
static CAObjHandle applicationHandle = 0;
static CAObjHandle workbookHandle = 0;
static CAObjHandle worksheetHandle = 0;
if (applicationHandle == 0) //如果尚未创建应用程序,则创建 excel
{
ExcelRpt_ApplicationNew(0, &applicationHandle);
}
else //如果已经创建,则首先关闭前一次的book和sheet
{
ExcelRpt_ApplicationQuit (applicationHandle);
CA_DiscardObjHandle(applicationHandle);
ExcelRpt_ApplicationNew(0, &applicationHandle);
}
ExcelRpt_WorkbookNew(applicationHandle, &workbookHandle); //新建一个excel文件
ExcelRpt_WorksheetNew(workbookHandle, 1, &worksheetHandle); 新建已经sheet表格
ExcelRpt_SetCellValue (worksheetHandle, "A1",ExRConst_dataString,"编号"); //编写内容
ExcelRpt_SetCellRangeAttribute (worksheetHandle, "A1", ER_CR_ATTR_COLUMN_WIDTH, 6.0); //设定属性
ExcelRpt_SetCellRangeAttribute (worksheetHandle, "D2:D65536", ER_CR_ATTR_NUMBER_FORMAT, "0.0");//格式化单元格
ExcelRpt_SetWorksheetAttribute (worksheetHandle, ER_WS_ATTR_NAME, string); //设定表格名称
ExcelRpt_WorkbookSave(workbookHandle_Result, "D:\\temp.xls", ExRConst_DefaultFileFormat); //文件保存
//删除前3个sheet
ExcelRpt_GetWorksheetFromName (workbookHandle, "Sheet1", &worksheetHandle);
ExcelRpt_WorksheetDelete(worksheetHandle);
ExcelRpt_GetWorksheetFromName (workbookHandle, "Sheet2", &worksheetHandle);
ExcelRpt_WorksheetDelete(worksheetHandle);
ExcelRpt_GetWorksheetFromName (workbookHandle, "Sheet3", &worksheetHandle);
ExcelRpt_WorksheetDelete(worksheetHandle);
ExcelRpt_SetApplicationAttribute (applicationHandle, ER_AP_ATTR_VISIBLE, 1);//使表格可见