С++ Builder6 & Excel Опции

[18192123]

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

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

[volvo]

Не-не-не... Билдер - это тебе не Дельфи, тут вся работа происходит через OlePropertyGet/OlePropertySet/OleFuntion/OleProcedure... Вот так работает экспорт в Excel:

bool SaveAsExcelFile(TStringGrid *AGrid, AnsiString ASheetName, AnsiString AFileName)
{
	const int xlWBATWorksheet = -4167;

	int bounds[4] = {0, AGrid->RowCount, 0 , AGrid->ColCount };
	Variant Array = VarArrayCreate(bounds, 3, varVariant);
	for(int i = 0; i < AGrid->RowCount; i++)
	{
		for(int j = 0; j< AGrid->ColCount; j++)
		{
			Array.PutElement(AGrid->Cells[j][i], i, j );
		}
	}

	Variant XLApp = CreateOleObject("Excel.Application");
	try
	{
		// Hide Excel
		XLApp.OlePropertySet("Visible", false);
		// Add new Workbook
		XLApp.OlePropertyGet("WorkBooks").OleFunction("Add", xlWBATWorksheet);

		Variant Sheet =
			XLApp.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1).
				  OlePropertyGet("Worksheets").OlePropertyGet("Item", 1);

		Sheet.OlePropertySet("Name", ASheetName.c_str());

		Variant Cell1 = Sheet.OlePropertyGet("Cells", 1, 1);
		Variant Cell2 = Sheet.OlePropertyGet("Cells", AGrid->RowCount + 1, AGrid->ColCount + 1);

		Variant fRange = Sheet.OlePropertyGet("Range", Cell1, Cell2);
		fRange.OlePropertySet("Value", Array);

		XLApp.OlePropertySet("DisplayAlerts",false);
		XLApp.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1).OleProcedure("SaveAs", AFileName.c_str());
		XLApp.OleProcedure("Quit");
	}
	catch(...)
	{
		//
		ShowMessage("Экспорт данных - Ошибка !!!");
	}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	// Вызывать - так:
	SaveAsExcelFile(sgTable, "test", "F:\\aga.xls");
}