3,245
社区成员
发帖
与我相关
我的任务
分享
_ApplicationPtr pApplication = NULL ;
WorkbooksPtr pWorkbooks = NULL ;
_WorkbookPtr pThisWorkbook = NULL ;
_WorksheetPtr pThisWorksheet = NULL ;
SheetsPtr pThisSheets = NULL ;
RangePtr pThisRange = NULL ;
_variant_t vt ;
VARIANT vOptional;
vOptional.vt = VT_ERROR;
vOptional.scode = DISP_E_PARAMNOTFOUND;
pApplication.CreateInstance("Excel.Application");
pApplication->PutVisible (0,VARIANT_FALSE);
pApplication->PutDisplayAlerts(0,VARIANT_FALSE); //不显示警告信息
pApplication->PutAlertBeforeOverwriting(0,VARIANT_FALSE); //覆盖时不提示
pWorkbooks = pApplication->GetWorkbooks() ;
pWorkbooks->Open( "C:\\test.xls",
vOptional, vOptional, vOptional, vOptional, vOptional, vOptional,
vOptional, vOptional, vOptional, vOptional, vOptional, vOptional
);
pThisWorkbook = pWorkbooks->GetItem((short)1);
pThisWorkbook->SaveAs("C:\\test.txt",_variant_t((short)Excel::xlText),vOptional,vOptional,_variant_t((short)FALSE),\
vOptional,Excel::xlNoChange,vOptional,vOptional,vOptional,vOptional);
pThisWorkbook->Close();
pWorkbooks->Close();
pThisWorkbook.ReleaseDispatch();
pWorkbooks.ReleaseDispatch();
pApplication->Quit();
pApplication.ReleaseDispatch();