С++ Builder6 & Excel Опции

[18192123]

Здравствуйте!

Подскажите пожалуйста, можно ли содержимое компонента-таблицы StringGrid экспортировать в документ Excel?
Если да, то как это делается?

[volvo]

Вот основа кода:

bool Xls_To_StringGrid(TStringGrid *AGrid, String AXLSFile)
{
	const xlCellTypeLastCell = 0x0000000B;
	Variant XLApp = CreateOleObject("Excel.Application");

		XLApp.OlePropertyGet("Application").OlePropertyGet("Workbooks").
			OleProcedure("Open", AXLSFile.c_str());
		XLApp.OlePropertySet("Visible", false);
		Variant Sheet = XLApp.OlePropertyGet("ActiveSheet");

		XLApp.OlePropertyGet("Cells").
			OlePropertyGet("SpecialCells", xlCellTypeLastCell).OleProcedure("Activate");
		int x = XLApp.OlePropertyGet("ActiveCell").OlePropertyGet("Row");
		int y = XLApp.OlePropertyGet("ActiveCell").OlePropertyGet("Column");
		AGrid->RowCount = x;
		AGrid->ColCount = y;

		for(int rows = 0; rows < x; rows++)
		{
			for(int cols = 0; cols < y; cols++)
			{
				AGrid->Cells[AGrid->FixedCols + cols][AGrid->FixedRows + rows] =
					Sheet.OlePropertyGet("Cells").
					OlePropertyGet("Item", rows + 1 , cols + 1);
			}
		}

	  Sheet = Unassigned;
	  XLApp.OlePropertyGet("Application").OleProcedure("Quit");
	  XLApp = Unassigned;
	  return true;
}

void __fastcall TFormRegModel::ButClick(TObject *Sender)
{
	if(Xls_To_StringGrid(StringGrid1, "D:\\book1.xls"))
	{
		ShowMessage("Table has been exported!");
	}
}

, всякие обработки исключений повесь сама...