ExcelのCellを結合する

//Excelを操作するためのタイプライブラリを読みこむ(Excel2002用)
#import "C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL" no_namespace rename("DocumentProperties", "DocumentPropertiesXL")   
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace   
#import "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces


//実行用のコード
void CXlsmergecellDlg::OnButton1() 
{
	using namespace Excel;
	COleVariant data,data1;
	_ApplicationPtr pXL;
	

	//--------------------
 	//Excelの起動
	pXL.CreateInstance(L"Excel.Application");
	pXL->Visible = TRUE;

	//--------------------
	//WorkBookを追加する
	WorkbooksPtr pBooks = pXL->Workbooks;
	_WorkbookPtr pBook  = pBooks->Add((long)xlWorksheet);

	//---------------------
	//Cellへデータを出力
	_WorksheetPtr pSheet = pXL->ActiveSheet;
	data = (short)1;
	data1 = (short)3;
	pSheet->Cells->Item[data1][data] = "aaaaa";

	//---------------------------------------------------
	//Cellを結合する
	pSheet->Range["A3"]["G5"]->MergeCells = true;

	AfxMessageBox("動作確認のために一時停止");

	pXL->Quit();
}