|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Из DBGrid в Exel. Как дать имя файлу Exel?
Подскажите, как при экспортирование таблицы в Exel дать файлу имя с текущей датой? Что бы было так : 07,05,2012.xls
|
#2
|
|||
|
|||
Цитата:
А как ты делаешь экспорт? Собственно, сформировать само имя достаточно просто: Код:
uses DateUtils; function GetExportFileName(ADate : TDateTime) : String; begin Result := Format('%d.%d.%d.xls',[DayOf(ADate),MonthOf(ADate),YearOf(ADate)]); end; |
#3
|
||||
|
||||
Код:
ExcelApp.FileName:= DateToStr(Now)+'.xls'; Google в помощь |
#4
|
|||
|
|||
Цитата:
вот что пишет [Error] Unit6.pas(99): Undeclared identifier: 'ExcelApp' |
#5
|
|||
|
|||
Цитата:
Код:
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; |