3,245
社区成员
发帖
与我相关
我的任务
分享
HRESULT hr(S_FALSE);
VARIANT result;
VariantInit(&result);
//获得EXCEL的CLSID
hr=CLSIDFromProgID(OLESTR("Excel.Application"),&clsid);
if(FAILED(hr))
{
this->m_ErrorCode=1;
//请检查是否已经安装EXCEL!
VariantClear(&result);
return false;
}
//创建实例
hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
if(FAILED(hr))
{
this->m_ErrorCode=1;
//请检查是否已经安装EXCEL!
VariantClear(&result);
return false;
}
//获取WorkBooks属性
hr=this->invokeMember(DISPATCH_PROPERTYGET, &result, pXlApp, L"Workbooks", 0);
if(FAILED(hr))
{
this->m_ErrorCode=14;//获取Workbooks时出错!
VariantClear(&result);
return false;
}
pXlBooks = result.pdispVal;
VARIANT vPara;
VariantInit(&vPara);
vPara.vt = VT_BOOL;
vPara.boolVal = VARIANT_FALSE;
this->invokeMember(DISPATCH_PROPERTYPUT, NULL, pXlApp, L"DisplayAlerts", 1, vPara);
VariantClear(&vPara);