Сохранить файл(ы) в папку

[SashOkSerg]

Возникла необходимость сохранения отчетов на каждый рабочий день ...
например: нажимаю на кнопку отчёт и создаётся на диске д папка с названием Отчёт 14.09.2013 и туда помещаются некие документы....

Стараюсь сделать это следующими шагами:

Создаю папку:

MkDir("d:\\Отчёт " + DateToStr(Date()));

т.е. на диске Д создалась папка такого вида: Отчёт 14.09.2013

Далее мне необходимо сохранить в эту же папку некоторые файлы, например Excel ... Создаю новый документ excel и передаю в него данные :

Variant App, Books, Book, Sheets, Sheet, Cells, Cell;
 try
	{
 App=CreateOleObject("Excel.Application");
	}
  catch (...)
	{
		ShowMessage("Не могу запустить сервер Microsoft Excel. Продолжение невозможно.");
		return;
	}
 App.OlePropertySet("Visible",true);  //делаем Excel видимым
	Books=App.OlePropertyGet("Workbooks");
	App.OlePropertySet("SheetsInNewWorkbook",3); //создаём 3 листа в книге
	Books.OleProcedure("Add");
	Book=Books.OlePropertyGet("Item",1);
	Sheets=Book.OlePropertyGet("Worksheets");
	Sheet=Sheets.OlePropertyGet("Item",1);  //ссылка на первый лист в книге
	Sheet.OleProcedure("Activate");

//сюда передаются данные с неких таблиц ... этот кусок кода пропускаю....

...

AnsiString NameFile = "base.xlsx";

App.OlePropertySet("DisplayAlerts",false);
	App.OlePropertyGet("Workbooks").
		  OlePropertyGet("Item",1).
		  OleProcedure("SaveAs", AnsiString( ExtractFilePath(Application->ExeName) + "путь//папка" + NameFile).c_str());
   App.OleProcedure("Quit");

Соответственно как мне написать / дописать код чтобы этот файл под некоторым именем сохранился в эту же папку Отчёт 14.09.2013 и.т.д. когда в следующий раз нажму кнопку - на новый день в новую папку!

[Serge_Bliznykov]

ну, если то, что Вы написали, у Вас работает, тогда попробуйте так:
(скомпоновал то, что у Вас есть)

AnsiString NameDir = "d:\\Отчёт " + DateToStr(Date());

....

App.OlePropertySet("DisplayAlerts",false);
	App.OlePropertyGet("Workbooks").
		  OlePropertyGet("Item",1).
		  OleProcedure("SaveAs", AnsiString(NameDir + "\\" + NameFile).c_str());

[SashOkSerg]

Сообщение от Serge_Bliznykov

ну, если то, что Вы написали, у Вас работает, тогда попробуйте так:
(скомпоновал то, что у Вас есть)

AnsiString NameDir = "d:\\Отчёт " + DateToStr(Date());

....

App.OlePropertySet("DisplayAlerts",false);
	App.OlePropertyGet("Workbooks").
		  OlePropertyGet("Item",1).
		  OleProcedure("SaveAs", AnsiString(NameDir + "\\" + NameFile).c_str());

То что я написал у меня не работает, открывается документ, передаются данные и при закрывании сразу ошибка... Пробовал без передачи данных... также ошибка...

Пробовал Ваш код, но без передачи данных с таблиц,... Документ открывается но не сохраняется ... выскакивает та самая ошибка:

[SashOkSerg]

Нашёл эту ошибку... в строчке :

OleProcedure("SaveAs", AnsiString(NameDir + "\\" + NameFile).c_str());

Если убрать :

AnsiString(NameDir + "\\" + NameFile).c_str();

и оставить просто:

OleProcedure("SaveAs");

то код работает и сохраняет в мои документы под стандартным именем файл Книга1.xlsx !..

[SashOkSerg]

Вопрос решён:

App.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs", WideString(AnsiString(NameDir + "\\" + NameFile).c_str()));