Excel读取时,无法产成实例!
#import <MSO.DLL> no_namespace rename("DocumentProperties", "DocumentPropertiesXL") rename("IAccessible", "IAccessibleXL") rename("RGB", "RBGXL") rename("SearchPath", "SearchPathXL")#ifdef _PSEUDO_DEBUG  
#import <VBE6EXT.OLB>   rename("Component", "ComponentXL")
#else 
#import <VBE6EXT.OLB>    no_namespace rename("Component", "ComponentXL")
#endif#import <excel.exe> rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") rename("CopyFile", "CopyFileXL")   rename("ReplaceText", "ReplaceTextXL") rename("IDrawing", "IDrawingXL") rename("Drawing", "DrawingXL") rename("IPageSetup", "IPageSetupXL") no_dual_interfaces
void CExcel::InitExcelApp()
{
try
{
//create excel application
m_pXL.CreateInstance(L"Excel.Application.8");
if(NULL == m_pXL){
m_pXL.CreateInstance(L"Excel.Application.9");
}
if(NULL == m_pXL){
m_pXL.CreateInstance(L"Excel.Application.10");
}
if(NULL == m_pXL){
m_pXL.CreateInstance(L"Excel.Application.11");
}
if(NULL == m_pXL){
m_pXL.CreateInstance(L"Excel.Application.12");
}
if(NULL == m_pXL){
return ;
}

//create current book and worksheets m_pBooks = m_pXL->Workbooks;
if(NULL == m_pBooks){
return ;
} m_pBook  = m_pBooks->Add((long)xlWorksheet);
if(NULL == m_pBook){
return ;
} m_pSheets = m_pBook->Sheets;
if(NULL == m_pSheets){
return ;
}
m_pSheet = m_pBook->ActiveSheet;
}
catch(...)
{
return ;
}
}