CString str="内容"; 
myrange=workSheet.GetRange(COleVariant("A1"),COleVariant("A1")); 
myrange.SetValue2(COleVariant(str)); 
font=myrange.GetFont(); 
font.SetBold(COleVariant((short)TRUE)); 
font.SetSize(COleVariant((short)15)); 
myrange.SetHorizontalAlignment(COleVariant((short)2)); 


IndexToString(1,1,tszRange); 
_bstr_t Cell1(tszRange); 
IndexToString(1,col,tszRange); 
_bstr_t Cell2(tszRange); 
myrange=workSheet.GetRange(COleVariant("A1"),COleVariant("A6")); 
myrange.Select(); 
myrange.Merge(covFalse); 

我首先在单元格[1,1]中写入数值 然后把A1-A6合并,然后把在[1,1]写入的内容在合并后的单元格中间对齐, 
为什么实现不了,单元格合并后,如何定位到单元格? 谢谢

jixingzhong»
在VC中彻底玩转Excel　 作者：龚敏 来源：子玉山庄 

如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解 
数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！ 
好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程， 
包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。 
特别说明以下代码需要MFC的支持，而且工程中还要包含EXCEL2000的定义文件：EXCEL9.H，EXCEL9.CPP 

***************************************************************************************************************** 

//***** 
//变量定义 
_Application app; 
Workbooks books; 
_Workbook book; 
Worksheets sheets; 
_Worksheet sheet; 
Range range; 
Range iCell; 
LPDISPATCH lpDisp; 
COleVariant vResult; 
COleVariant 
covTrue((short)TRUE), 
covFalse((short)FALSE), 
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); 


//***** 
//初始化COM的动态连接库 
if(!AfxOleInit()) 
{ 
AfxMessageBox("无法初始化COM的动态连接库!"); 
return ; 
} 


//***** 
//创建Excel 2000服务器(启动Excel) 
if(!app.CreateDispatch("Excel.Application")) 
{ 
AfxMessageBox("无法启动Excel服务器!"); 
return; 
} 

app.SetVisible(TRUE); //使Excel可见 
app.SetUserControl(TRUE); //允许其它用户控制Excel 


//***** 
//打开c:\\\\1.xls 
books.AttachDispatch(app.GetWorkbooks()); 
lpDisp = books.Open("C:\\\\\\\\1.xls", 
covOptional, covOptional, covOptional, covOptional, covOptional, 
covOptional, covOptional, covOptional, covOptional, covOptional, 
covOptional, covOptional ); 


//***** 
//得到Workbook 
book.AttachDispatch(lpDisp); 


//***** 
//得到Worksheets 
sheets.AttachDispatch(book.GetWorksheets()); 


//***** 
//得到当前活跃sheet 
//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待 
lpDisp=book.GetActiveSheet(); 
sheet.AttachDispatch(lpDisp); 


//***** 
//读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列 
Range usedRange; 
usedRange.AttachDispatch(sheet.GetUsedRange()); 
range.AttachDispatch(usedRange.GetRows()); 
long iRowNum=range.GetCount(); //已经使用的行数 

range.AttachDispatch(usedRange.GetColumns()); 
long iColNum=range.GetCount(); //已经使用的列数 

long iStartRow=usedRange.GetRow(); //已使用区域的起始行，从1开始 
long iStartCol=usedRange.GetColumn(); //已使用区域的起始列，从1开始 


//***** 
//读取第一个单元格的值 
range.AttachDispatch(sheet.GetCells()); 
range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal ); 
COleVariant vResult =range.GetValue(); 
CString str; 
if(vResult.vt == VT_BSTR) //字符串 
{ 
str=vResult.bstrVal; 
} 
else if (vResult.vt==VT_R8) //8字节的数字 
{ 
str.Format("%f",vResult.dblVal); 
} 
else if(vResult.vt==VT_DATE) //时间格式 
{ 
SYSTEMTIME st; 
VariantTimeToSystemTime(&vResult.date, &st); 
} 
else if(vResult.vt==VT_EMPTY) //单元格空的 
{ 
str=""; 
} 


//***** 
//读取第一个单元格的对齐方式，数据类型:VT_I4 
//读取水平对齐方式 
range.AttachDispatch(sheet.GetCells()); 
iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal); 
vResult.lVal=0; 
vResult=iCell.GetHorizontalAlignment(); 
if(vResult.lVal!=0) 
{ 
switch (vResult.lVal) 
{ 
case 1: //默认 
break; 
case -4108: //居中 
break; 
case -4131 : //靠左 
break; 
case -4152 : //靠右 
break; 
} 

} 

//垂直对齐方式 
iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal); 
vResult.lVal=0; 
vResult=iCell.GetVerticalAlignment(); 
if(vResult.lVal!=0) 
{ 
switch (vResult.lVal) 
{ 
case -4160 : //靠上 
break; 
case -4108 : //居中 
break; 
case -4107 : //靠下 
break; 
} 

} 


//***** 
//设置第一个单元格的值"HI,EXCEL!" 
range.SetItem(COleVariant(1),COleVariant(1),COleVariant("HI,EXCEL!")); 


//***** 
//设置第一个单元格字体颜色:红色 
Font font; 
range.AttachDispatch(sheet.GetCells()); 
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal); 
font.SetColor(COleVariant((long)0xFF0000)); 


//***** 
//合并单元格的处理 
//包括判断第一个单元格是否为合并单元格，以及将第一个单元格进行合并 
Range unionRange; 
range.AttachDispatch(sheet.GetCells()); 
unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal ); 

vResult=unionRange.GetMergeCells(); 
if(vResult.boolVal==-1) //是合并的单元格 
{ 
//合并单元格的行数 
range.AttachDispatch (unionRange.GetRows ()); 
long iUnionRowNum=range.GetCount (); 

//合并单元格的列数 
range.AttachDispatch (unionRange.GetColumns ()); 
long iUnionColumnNum=range.GetCount (); 

//合并区域的起始行，列 
long iUnionStartRow=unionRange.GetRow(); //起始行，从1开始 
long iUnionStartCol=unionRange.GetColumn(); //起始列，从1开始 

} 
else if(vResult.boolVal==0) 
{//不是合并的单元格} 

//将第一个单元格合并成2行，3列 
range.AttachDispatch(sheet.GetCells()); 
unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal ); 
unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3))); 
unionRange.Merge(COleVariant((long)0)); //合并单元格 


//***** 
//将文件保存为2.xls 
book.SaveAs(COleVariant("C:\\\\\\\\2.xls"),covOptional,covOptional, \\\\ 
covOptional,covOptional,covOptional,0,\\\\ 
covOptional,covOptional,covOptional,covOptional); 


//***** 
//关闭所有的book，退出Excel 
book.Close (covOptional,COleVariant(OutFilename),covOptional); 
books.Close(); 
app.Quit();

JoeDuke»

C/C++ code

/******************************************************************************
*
* 演示使用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 = xlCenter ;
pThisRange->HorizontalAlignment = 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 ;
}



如果你使用的是Office 2007,那你可以在Visual Studio .NET 2008里试用一下这个代码。 
建立一个空的Console项目，把代码拷进去