[OLE Excel] zapisywanie pliku

CApplication oExcel;
COleException e;
COleVariant covOptional( DISP_E_PARAMNOTFOUND, VT_ERROR );
COleVariant covTrue(( short ) TRUE ), covFalse(( short ) FALSE );

if( !oExcel.CreateDispatch( L"Excel.Application", & e ) )
{
    e.ReportError();
    return;
}
oExcel.put_Visible( TRUE );

CWorkbooks oBooks = oExcel.get_Workbooks();
CWorkbook oBook = oBooks._Open( L"d:\\zsrk\\baza.xls", //nazwa pliku bazowego
covOptional, // UpdateLinks,
covFalse, // ReadOnly,
covOptional, // Format,
covOptional, // Password,
covOptional, // WriteResPassword,
covTrue, // IgnoreReadOnlyRecommended,
covOptional, // Origin,
covOptional, // Delimiter,
covOptional, // Editable,
covOptional, // Notify,
covOptional, // Converter,
covOptional // AddToMru, 
);

CWorksheets oSheets = oBook.get_Worksheets();
CWorksheet oSheet = oSheets.get_Item( COleVariant(( short ) 1 ) );
CRange oRange = oSheet.get_Cells();
CFont0 font;


COleVariant nip;
char * bufNIP[ 50 ];
CString tmp_nip = L" ABC ";
CString t;
CString p = L"P";
std::string * c;
CString l_JG = L"3001";

tmp_nip = oRange.get_Item( COleVariant(( short ) 2 ), COleVariant(( short ) 32 ) );
t = tmp_nip.GetString();
tmp_nip = l_JG.Left( 3 ) + L"-" + l_JG.Right( 1 ) + t.Right( 8 );

oRange.put_Item( COleVariant(( short ) 2 ), COleVariant(( short ) 32 ), COleVariant(( CString ) tmp_nip.GetString() ) );

oBook.Close( covTrue, COleVariant( L"D:\\zsrk\\abc.xls" ), COleVariant(( long ) oExcel.get_Workbooks() ) );
oSheet.ReleaseDispatch();
oSheets.ReleaseDispatch();
oRange.ReleaseDispatch();
oBooks.Close();
oExcel.ReleaseDispatch();