#include "stdafx.h"
#define _WIN32_DCOM

#import "C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL"
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#import "C:\Program Files\Microsoft Office\OFFICE12\EXCEL.EXE" \
	rename("DialogBox","_DialogBox") \
	rename("RGB","_RGB") \
	exclude("I","IPicture")

using namespace Excel;
int main() 
{
	::CoInitialize(NULL);
	{
		_ApplicationPtr pApp("Excel.Application");
		pApp->Visible[0] = true;		
	}
	CoUninitialize();
}

_WorkbookPtr  book  = excel->Workbooks;
//получаю первый лист
_WorksheetPtr sheet = book->Worksheets->Item[1L];		
// заполняю ячейку
sheet->Range["B2"]->Value2= "ТекстТекстТекст";

int _tmain(int argc, _TCHAR* argv[])
{
	// Инициализируем  COM 
	::CoInitialize(NULL);
	Excel::_ApplicationPtr pAppExcel;
	Excel::_WorkbookPtr pBook;

	//отурываем Excel
	HRESULT hRes = E_FAIL;
	hRes = pAppExcel.CreateInstance(L"Excel.Application");
	if ( FAILED(hRes) ) 	
		::MessageBox(NULL, "Excel не найден!", "Ошибка", MB_OK);			

	//делаем его видимым
	pAppExcel->Visible[0] = true;

	//открываем файл L"c:\1.xls"
	_variant_t  varOption(static_cast<long>(DISP_E_PARAMNOTFOUND), VT_ERROR);
	pBook = pAppExcel->Workbooks->Open(
		L"c:\\1.xls", 
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption,
		varOption);

	Excel::_WorksheetPtr pFirstsheet;
	//получаем первый лист 
	pFirstsheet = pBook->Worksheets->Item[1L];
	//делаем первый лист активным
	pFirstsheet->Activate();
	// заполняем ячейку "E17"
	pFirstsheet->Range["E17"]->Value2= "ТекстТекстТекст!";
	//или 
	//заполняем "E1"
	Excel::RangePtr pRange = pFirstsheet->Cells;
	Excel::RangePtr pCell;
	pCell = pRange->Item[1][5]; // E1
	pCell->Value2 = "Ячейка E1";
	
	//сохраняем документ
	pBook->Save();
	//закрываем документ
	pBook->Close();
	//закрываем Excel
	pAppExcel->Quit();

	// Закрываем COM 
	::CoUninitialize();



	return 0;
}

	//получеам первый лист
	Excel::_WorksheetPtr pFirstsheet = pBook->Worksheets->Item[1L];
	//получеам первую ячейку
	Excel::RangePtr pRange = pFirstsheet->Cells;

	Excel::RangePtr  pEndCelRow;
	pEndCelRow = pRange->GetRows();

	//получаем к-во строк 
	long lCountRows = 0; 
	lCountRows = pEndCelRow->Count;

	Excel::RangePtr pEndRange, pLastFilledRange;
	//последняя ячейка в столбце 1
	pEndRange = pRange->Item[lCountRows][1];
	//последняя заполненная ячейка
	pLastFilledRange = pEndRange->GetEnd(Excel::xlUp);