Из delphi в excel

[Antoha5101]

Здравствуйте. помогите пожалуйста с маленькой проблемкой. есть шаблон Excel. в него я вписываю с помощью edit данные. как можно сделать кнопку сохранения, так что бы имя сохраняемого файла было одним из значения edit. например если в edit 4 написан заводской номер, то имя файла и будет заводской номер. помогите если не трудно.
Код Delphi

procedure TForm1.Button2Click(Sender: TObject);
 var xls:variant;
begin
xls:= CreateOLEObject('Excel.Application');
xls.WorkBooks.Open(FileName:='D:\2.xls');
xls.Visible:=false;
xls.Range['A6']:=Edit1.Text;
xls.Range['E8']:=Edit2.Text;
xls.Range['B12']:=Edit3.Text;
xls.Range['E13']:=Edit4.Text;
xls.Range['E14']:=Edit5.Text;
xls.Range['B31']:=Edit7.Text;
xls.Range['D31']:=Edit8.Text;
xls.Range['B32']:=Edit6.Text;
xls.Range['D32']:=Edit9.Text;
xls.Range['C40']:=Edit10.Text;
xls.Range['E40']:=Edit11.Text;
xls.Range['C45']:=Edit12.Text;
xls.Range['C46']:=Edit13.Text;
xls.Range['E45']:=Edit14.Text;
xls.Range['E46']:=Edit15.Text;
xls.Range['E76']:=Edit16.Text;
xls.Range['E109']:=Edit17.Text;
xls.Range['A29']:=Edit18.Text;
xls.Range['E21']:=DateTimePicker1.DateTime;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

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

например если в edit 4 написан заводской номер, то имя файла и будет заводской номер

а если в edit4 записано что-то другое, то что будет именем файла?
И как это определить, заводской номер там или нет?!

так, что ли?

if Trim(Edit4.Text)='' then begin
  ShowMessage('Нет данных в поле Edit4');
  Exit;
end
xls.WorkBooks.Open(FileName:='D:\'+Trim(Edit4.Text)+'.xls');

p.s. будьте бдительны - далеко не все символы допустимы в имене файла. возможно, понадобится дополнительный контроль за содержимым Edit4...

[Antoha5101]

В этом edit 4 планируется заводской номер не больше 10 символов... он может быть как цифровой так и буквенный. вот как то так.

[Serge_Bliznykov]

ну, я как-то уже предложил вариант решения.
подходит?

[Antoha5101]

Этот вариант для открытия файла, а мне нужно чтоб он сохранил созданный документ с названием из значения edit 4.((

[Serge_Bliznykov]

а так?

 var ExcelApp, Sheet:variant;
begin
  if Trim(Edit4.Text)='' then begin
    ShowMessage('Нет данных в поле Edit4');
    Exit;
  end;

  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Visible := false;

    ExcelApp.Workbooks.Add;
    Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];

    // Sheet.Cells[Row, Col] := ... ;

    Sheet.Range['A6']:=Edit1.Text;
    Sheet.Range['E8']:=Edit2.Text;
    Sheet.Range['B12']:=Edit3.Text;
    ....

    ExcelApp.ActiveWorkbook.SaveAs('D:\'+Trim(Edit4.Text)+'.xls');

    ShowMessage('Ok!');
  finally
    ExcelApp.Application.Quit;
    ExcelApp := unassigned;
  end;

[Antoha5101]

Спасибо за помощь завтра попробую.

[Antoha5101]

Может что то я не правильно делаю но у меня не получилось...

[Serge_Bliznykov]

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

Может что то я не правильно делаю но у меня не получилось...

жаль...
я у себя этот код проверил - он отработал...

[Antoha5101]

получилось вот так
procedure TForm1.Button2Click(Sender: TObject);
var xls, Book, Sheet: variant;
begin
if Trim (Edit4.Text)=''then begin
ShowMessage ('Íåò äàííûõ â ïîëå çàâîäñêîé íîìåð');
exit;
end;
xls:= CreateOLEObject('Excel.Application' );
Book:=xls.WorkBooks.Open(FileName:= 'D:\2.xls');
xls.Visible:=false;
Sheet:=xls.Worksheets[2];
xls.Range['A6']:=Edit1.Text;
xls.Range['E8']:=Edit2.Text;
xls.Range['B12']:=Edit3.Text;
xls.Range['E13']:=Edit4.Text;
xls.Range['E14']:=Edit5.Text;
xls.Range['B31']:=Edit7.Text;
xls.Range['D31']:=Edit8.Text;
xls.Range['B32']:=Edit6.Text;
xls.Range['D32']:=Edit9.Text;
xls.Range['C40']:=Edit10.Text;
xls.Range['E40']:=Edit11.Text;
xls.Range['C45']:=Edit12.Text;
xls.Range['C46']:=Edit13.Text;
xls.Range['E45']:=Edit14.Text;
xls.Range['E46']:=Edit15.Text;
xls.Range['E76']:=Edit16.Text;
xls.Range['E109']:=Edit17.Text;
xls.Range['A29']:=Edit18.Text;
xls.Range['E21']:=DateTimePicker1.DateTime;
xls.DisplayAlerts:=False;
xls.ExcelBasic.FilePrintSetup(Print er:='Duplex', DoNotSetAsSysDefault:=true); //print
xls.ActiveDocument.PrintOut(Copies: =3);
Book.SaveAs(Edit4.Text+'.xls'); //save
xls.Quit;

end;
спасибо за помощь