vb中的createobject("Excel.Application")在vc中怎样实现

Question

vb中的createobject("Excel.Application")在vc中怎样实现

Answer 1

CLSID clsid;
      CLSIDFromProgID(L"Excel.Application", &clsid);  
      IUnknown *pUnk;
      HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
      ASSERT(!FAILED(hr));
      IDispatch *pDisp;
      hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pDisp);
      ASSERT(!FAILED(hr));
      pUnk->Release();也可以使用 COleDispatchDriver 类创建（这样比较简单）

Answer 2

比较简单的方法是从ＣｌａｓｓＷｉｚａｒｄ内的Add Class ...From a type library...