excel调用问题

请问在VC中如何创建和使用excel（或word)对象？  
  而且如何判断机器中安装了excel和word？它们的版本是多少？  
  问题点数：50、回复次数：5Top

1 楼oldworm（oldworm）回复于 2002-09-21 19:48:46 得分 20

将excel作为一个进程外服务器创建  
  至于判断版本，可以读主文件版本，就是主执行文件的版本。BOOL   GetFileVersion   (LPCTSTR   lpszFileName,   char   *szVer,   int   size)  
  {  
  UINT     uVersionLen;  
  DWORD   dwVerHnd   =   0;  
  LPSTR   lpstrVffInfo   =   NULL;  
  VS_FIXEDFILEINFO   *pFixedInfo;  
   
          DWORD   dwVerInfoSize   =   GetFileVersionInfoSize((char   *)lpszFileName,   &dwVerHnd);  
          if(dwVerInfoSize   ==   0){  
                  return   FALSE;  
  }  
   
          lpstrVffInfo   =   new   char[dwVerInfoSize];  
          if   (lpstrVffInfo   ==   NULL)  
                  return   FALSE;       //   Allocation   failed  
   
          if   (!GetFileVersionInfo((char   *)lpszFileName,   dwVerHnd,   dwVerInfoSize,   lpstrVffInfo)){  
  delete   lpstrVffInfo;  
                  return   FALSE;  
          }  
   
  if(!   VerQueryValue(lpstrVffInfo,_T("\\"),(void**)&pFixedInfo,(UINT   *)&uVersionLen))  
  {  
  delete   lpstrVffInfo;  
  return   FALSE;  
  }  
  //暂时只取前面三个  
  _snprintf(     szVer,   size,   "%u.%u.%u",    
  HIWORD   (pFixedInfo->dwFileVersionMS),  
          LOWORD   (pFixedInfo->dwFileVersionMS),  
          HIWORD   (pFixedInfo->dwFileVersionLS));  
          //LOWORD   (pFixedInfo->dwFileVersionLS));    
  szVer[size   -1]   =   0;  
   
  delete   lpstrVffInfo;  
          return   TRUE;  
  }  
   
   
  Top

2 楼masterz（www.fruitfruit.com）回复于 2002-09-21 21:17:31 得分 25

search   Q178749   in   MSDN  
            _Application   m_app;    
          LPDISPATCH   pDisp;    
          LPUNKNOWN   pUnk;    
          CLSID   clsid;    
          BeginWaitCursor();    
          ::CLSIDFromProgID(L"Excel.Application",&clsid);    
          if(::GetActiveObject(clsid,NULL,&pUnk)==S_OK)    
          {    
                  VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**)&pDisp)==S_OK);    
                  m_app.AttachDispatch(pDisp);    
                  pUnk->Release();    
          }    
          else    
          {    
                  if(!m_app.CreateDispatch("Excel.Application"))    
                  {    
                          AfxMessageBox("excel   program   not   found");    
                  }    
          }    
          EndWaitCursor();Top

3 楼Fishcat（）回复于 2002-09-21 21:40:13 得分 5

execel完全是组件化开发的产物，他的可重用对象只要安装了execel就存在  
  与系统之中。你可以创建com的客户端对他进行调用就行了。Top

4 楼AroundClockDancer（夜行人）回复于 2002-09-22 00:03:29 得分 0

这段用VB写可简单极了，我帮别人改过的。用VC怎么这么麻烦呀？Top

5 楼AroundClockDancer（夜行人）回复于 2002-09-22 00:04:13 得分 0

用   import   和SMART   POINTER难道不可以？Top

相关问题

• excel
• 版本
• application
• null
• lpstrvffinfo
• pfixedinfo
• dwverinfosize
• dwverhnd
• szver
• punk

• 帖主：zhaolaoxin
• oldworm
• masterz
• Fishcat

• Visual C++类图书
• Visual C++类源码下载