这个有关问题高人请点拨一下吧

这个问题高人请点拨一下吧
http://topic.****.net/u/20100326/10/aad7bca2-65fa-491b-9ea6-72aa63fcec3c.html?seed=1101363428&r=80037919#r_80037919

这里就是过不去啊，哪位高人指点一下啊。找不到解……唉

    if(!app.CreateDispatch(_T("Excel.Application"), NULL))

    {

        ::CoUninitialize();

		this->MessageBox("无法创建Excel应用！");

        return;

    }

------解决方案--------------------

#import "C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL" 

#import "c:\\Program Files\\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.olb" 

#import "c:\Program Files\Microsoft Office\Office11\MSWORD.olb" rename("ExitWindows","ExitWindowsEx")

#import "c:\Program Files\Microsoft Office\Office11\excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \

	rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")

版本和路径自己改下

	 VARIANT varItem;

         varItem.vt = VT_I4;

         varItem.intVal = 1;

         ::CoInitialize(NULL);

         CLSID clsid;


	 CLSIDFromProgID(L"Excel.Application", &clsid); 

	 Excel::_ApplicationPtr pApp;

	 pApp .CreateInstance (clsid,NULL);

	 pApp ->PutVisible (0,VARIANT_TRUE);