[dimon4iknik]

Подскажите, как при экспортирование таблицы в Exel дать файлу имя с текущей датой? Что бы было так : 07,05,2012.xls

[lmikle]

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

Подскажите, как при экспортирование таблицы в Exel дать файлу имя с текущей датой? Что бы было так : 07,05,2012.xls

А как ты делаешь экспорт?
Собственно, сформировать само имя достаточно просто:

Код:

uses DateUtils;

function GetExportFileName(ADate : TDateTime) : String;
begin
  Result := Format('%d.%d.%d.xls',[DayOf(ADate),MonthOf(ADate),YearOf(ADate)]);
end;

[Ildar-tsr]

Код:

ExcelApp.FileName:= DateToStr(Now)+'.xls';

[dimon4iknik]

Сообщение от Ildar-tsr

Код:

ExcelApp.FileName:= DateToStr(Now)+'.xls';

вот что пишет
[Error] Unit6.pas(99): Undeclared identifier: 'ExcelApp'

[dimon4iknik]

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

А как ты делаешь экспорт?

Код:

procedure TForm6.btn3Click(Sender: TObject);
var
 XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
 XArr:=VarArrayCreate([1,tbl1.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;

 j := 1;
 tbl1.First;
 while not tbl1.Eof do
  begin
   i:=1;
   while i<=tbl1.FieldCount do
    begin
     XArr[i] := tbl1.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+tbl1.FieldCount)+IntToStr(j)].Value := XArr;
   tbl1.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+tbl1.FieldCount)+IntToStr(j)].select;

 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;


end;

Вот так.