3,245
社区成员
发帖
与我相关
我的任务
分享
bool ExcelCom::Init()
{
HRESULT hr = ::CoInitialize(NULL);
if(SUCCEEDED(hr) )
{
CLSID id;
CLSIDFromProgID(L"Excel.Application", &id);
IDispatch* pDisp;
hr=::CoCreateInstance(id,NULL,CLSCTX_LOCAL_SERVER,IID_IDispatch,(void**)&pDisp);
if( SUCCEEDED(hr) )
{
this->p = pDisp;
CComVariant res;
hr = GetPropertyByName(L"Workbooks",&res);
if (res.pdispVal)
{
CComDispatchDriver wbDisp(res.pdispVal);
hr=wbDisp.Invoke0(L"Add");
m_Valid = true;
}
}
}
if(m_Valid) Minimiz();
return m_Valid;
}