VC6.0生成Excel文件

 

源码请参考：在我的资源中：VC读写Excel

 

上文介绍了读取Excel文件中数据的方法，这回说明生成一个Excel文件的方法。

 

初始化Com库和使用的对象都和上文一样，下面这段代码的逻辑是：

1.        先打开一个Excel文件，

2.        在激活的Sheet的下一个sheet中写入数据

3.        保存成另外一个文件

 

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

       {

              ::MessageBox( NULL, _T( "创建Excel服务失败！" ), _T( "错误提示！" ), MB_OK | MB_ICONERROR);

              exit(1);

       }

      

       //设置为显示

       m_oExcelApp.SetVisible(FALSE);

       m_oWorkBooks.AttachDispatch( m_oExcelApp.GetWorkbooks(), TRUE );

      

       LPDISPATCH lpDisp = NULL;

       COleVariant covTrue((short)TRUE);

    COleVariant covFalse((short)FALSE);

    COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); 

       Range            oCurCell;

 

       // 打开文件

       lpDisp = m_oWorkBooks.Open( _T( "K://VoiceS_Excel//09_Backup//02_Test//SourceFile.xls" ),

                                      _variant_t(vtMissing),

        &n