设置单元格，合并单元格，设置单元格文字居中

这是我转发的, 不是我原创的.

 

/******************************************************************************
*
* 演示使用VC操作Excel 2007
* 功能：设置单元格，合并单元格，设置单元格文字居中
*
* 时间：2009-02-23 20:44:45
* 作者：高宏伟(DukeJoe)
* QQ：21807822
* Blog：http://blog.donews.com/dukejoe/
* 注释：
*
* 开发环境：Visual Studio.NET 2008
* Office版本： Excel 2007
* 操作系统：Windows XP Home Edition Service Pack 2
*
*
*****************************************************************************/
#include <iostream>

using namespace std ;

#import "C:/Program Files/Common Files/Microsoft Shared/OFFICE12/mso.dll" rename("RGB", "MSRGB") /
    rename("DocumentProperties", "JOEDocumentProperties")

#import "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB" raw_interfaces_only, /
    rename("Reference", "ignorethis"), rename("VBE", "JOEVBE")

#import "C:/Program Files/Microsoft Office/OFFICE12/excel.exe" exclude("IFont", "IPicture") /
    rename("RGB", "ignorethis"), rename("DialogBox", "ignorethis"), rename("VBE", "JOEVBE"), /
    rename("ReplaceText", "JOEReplaceText"), rename("CopyFile","JOECopyFile"), /
    rename("FindText", "JOEFindText"), rename("NoPrompt", "JOENoPrompt")

using namespace Office;
using namespace VBIDE;
using namespace Excel ;

int ExportExcelFile() ;

int main(int argc, char* argv[])
{
    if(FAILED(::CoInitialize(NULL)))
        return 1 ;

    ExportExcelFile() ;

    ::CoUninitialize();

    return 0;
}

int ExportExcelFile()
{
    _ApplicationPtr pApplication = NULL ;
    _WorkbookPtr pThisWorkbook = NULL ;
    _WorksheetPtr pThisWorksheet = NULL ;
    SheetsPtr pThisSheets = NULL ;
    RangePtr pThisRange = NULL ;
    _variant_t vt ;
    Excel::XlFileFormat vFileFormat ;
    Excel::XlSaveAsAccessMode vSaveAsAccessMode ;
    Excel::XlSaveConflictResolution vSaveConflictResolution ;

    pApplication.CreateInstance("Excel.Application");
    pApplication->PutVisible (0,VARIANT_TRUE);
    pThisWorkbook = pApplication->GetWorkbooks()->Add() ;
    pThisSheets = pThisWorkbook->GetWorksheets() ;
    pThisWorksheet = pThisSheets->GetItem((short)1);
    pThisRange = pThisWorksheet->GetRange("A1:C6") ;
    pThisRange->ClearFormats() ;
    pThisRange->PutItem(1, 1, _variant_t("-------------")) ;
    pThisRange->PutItem(1, 2, _variant_t("-------------")) ;
    pThisRange->PutItem(1, 3, _variant_t("QQ:21807822")) ;
    // 合并单元格，并文本居中
    pThisRange = pThisWorksheet->GetRange("A1:A6") ;
    pThisRange->MergeCells = _variant_t(true) ;
    pThisRange->VerticalAlignment = _variant_t((long)Excel::xlCenter) ;
    pThisRange->HorizontalAlignment = _variant_t((long)Excel::xlCenter);
    pThisWorksheet->GetRange("A:A") ;
    pThisRange->ColumnWidth = 66.72 ;

    // 存盘退出
    vSaveAsAccessMode = xlNoChange ;
    vFileFormat = xlWorkbookDefault ;
    vSaveConflictResolution = xlLocalSessionChanges ;
    pThisWorkbook->SaveAs(_variant_t("D://Visual Studio 2008//Projects//test1//joe.xlsx"), vFileFormat,_variant_t(""),_variant_t(""), _variant_t(false),
        _variant_t(false), vSaveAsAccessMode, vSaveConflictResolution, _variant_t(false)) ;
    pThisWorkbook->Close();
    pApplication->Quit();

    return 0 ;
}