常用代码备份--OLE操作Excel之sheet复制

bool CopySheet(CHAR szItem[20][64],char *szModelFilePath)
{
    AFX_MANAGE_STATE(AfxGetStaticModuleState());
    ::CoInitialize(NULL);
    AfxEnableControlContainer(); 

    CApplication    app;
    CWorkbooks      books;
    CWorkbook       book;
    CWorksheets     sheets;
    CWorksheet      sheet;
    CRange          range;
    CRange          cols;
    int             iNum = 0;
    CString         csSheetName = szItem[0];
    CHAR            szNewFilePath[MAX_PATH] = {0x00};

    for (iNum = 0;iNum < 20;iNum++)
    {
        if(strlen(szItem[iNum]) == 0)
            break;
    }

    ::GetCurrentDirectory(MAX_PATH,szNewFilePath);
    sprintf(szNewFilePath,"%s\\file.xlsx",szNewFilePath);

    COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);  
    if( !app.CreateDispatch("Excel.Application") )
    {  
        ::MessageBox(NULL,"Can not create EXCEL!","error",MB_OK);  
        return false;  
    }  
    books=app.get_Workbooks();
    LPDISPATCH lpDisp; 
    lpDisp = books.Open(szModelFilePath,  
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional
        );
    book.AttachDispatch(lpDisp);
    sheets=book.get_Sheets();
    sheet=sheets.get_Item(COleVariant((short)3));
    COleVariant temp;
    temp.pdispVal=sheet.m_lpDispatch;
    temp.vt=VT_DISPATCH;

    sheet.put_Name(csSheetName.Left(20));

    for(int i = 0;i < iNum-1;i++)
        sheet.Copy(vtMissing, temp);

    for(int i = 0;i < iNum;i++)//复制N个sheet
    {
        csSheetName = szItem[i];
        sheet=sheets.get_Item(COleVariant((short)(i+3)));
        sheet.put_Name(csSheetName.Left(31));//31是Excel允许的最大sheet名长度
    }
    book.SaveAs(COleVariant(szNewFilePath),covOptional,
        covOptional,covOptional,
        covOptional,covOptional,(long)0,
        covOptional,covOptional,covOptional,
        covOptional,covOptional);
    range.ReleaseDispatch();   
    sheet.ReleaseDispatch();   
    sheets.ReleaseDispatch();   
    book.ReleaseDispatch();   
    books.ReleaseDispatch();   
    app.Quit();  
    app.ReleaseDispatch();
    temp.Detach();
    temp.Clear();
    sprintf(szModelFilePath,"%s",szNewFilePath);
    ::CoUninitialize();
    return true;
}