excel创建服务失败处理办法

CLSID clsid;
HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);

if(FAILED(hr)) {
  ::MessageBox(NULL, "CLSIDFromProgID() 函数调用失败！", "错误", 0x10010);
  return -1;
}
// 创建实例
IDispatch *pXlApp;
hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
if(FAILED(hr)) {
  ::MessageBox(NULL, "请检查是否已经安装EXCEL！", "错误", 0x10010);
  return -2;
}
用上面代码 替换
app.CreateDispatch("Excel.Application", e)