excel调用问题

[zhaolaoxin]

请问在VC中如何创建和使用excel（或word)对象？
而且如何判断机器中安装了excel和word？它们的版本是多少？

[oldworm]

将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;
}

[masterz]

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();

[Fishcat]

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

[AroundClockDancer]

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

[AroundClockDancer]

用 import 和SMART POINTER难道不可以？