из Delphi в Excel

[mxroman]

Здравствуйте, такая задача взять инфу из Edit загнать в Excel ячейку при нажатии кнопки btn... желательно чтобы создавался в конкретном месте файл Excel...

Много чего прочитал но на готовом коде так и не запустился мой D7


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin

end;

end.




Вот код, надо между

begin

end;

Что то написать))) напишите пожалуйста, а то я уже неделю парюсь(((

компонет Office добавил вроде...

[Multiman]

var xlsx:variant;
begin
xlsx := CreateOLEObject('Excel.Application');
xlsx.Visible:=True;
xlsx.Workbooks.add;
xlsx.save('C:\new.xlsx');
xlsx.Range['A4']:=Edit1.Text;

end;

[mxroman]

procedure TForm1.Button1Click(Sender: TObject);
var xlsx:variant;
begin
xlsx := CreateOLEObject('Excel.Application' );
xlsx.Visible:=True;
xlsx.Workbooks.add;
xlsx.save('C:\new.xlsx');
xlsx.Range['A4']:=Edit1.Text;
end;
end;

end.


Ругается на эту вот строчку, D7 стоит, что может быть не подскажете?



procedure TForm1.Button1Click(Sender: TObject);
var xlsx:variant;
begin
//xlsx := CreateOLEObject('Excel.Application' );
//xlsx.Visible:=True;
xlsx.Workbooks.add;
xlsx.save('C:\new.xlsx');
xlsx.Range['A4']:=edt1.Text;

end;

end.

Запустился но выдаёт ошибку, файл экселя не появился в указанном месте(
У меня офис 2003 стоит, xlsx может на xls поменять или как?

[Multiman]

xlsx := CreateOLEObject('Excel.Application' );

В раздел uses необходимо добавить ComObj.

xlsx.save('C:\new.xlsx') здесь указывайте свой путь, свое название и расширение файла. В 2003 вроде .xls. А вообще юзайте 2010=)

[mxroman]

что за раздел можно по подробней как это сделать???

если 2003 то за место xlsx = xls везде вписывать или как???

[mxroman]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, ExcelXP, ComObj;

type
  TForm1 = class(TForm)
    exclbjct1: TExcelOLEObject;
    btn1: TButton;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var xlsx:variant;
begin
xlsx := CreateOLEObject('Excel.Application' );
xlsx.Visible:=True;
xlsx.Workbooks.add;
xlsx.save('C:\new.xls');
xlsx.Range['A4']:=edt1.Text;
end;

end.

ВСЁ ПОЛУЧИЛОСЬ БОЛЬШОЕ СПАСИБО!!!)

Ещё вопрос, при нажатии открывается Книга со текстом в колонке, а файл тот что создаётся автоматически он пустой почему то...


надо открыть
xlsx.Workbooks.add;
записать
xlsx.Range['A4']:=edt1.Text;
а потом сохранить автоматически с изменением в колонке, пробывал менять местами строчки не получется

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

ИЗВИНЯЮСЬ

[Multiman]

Тогда вот так сделаем:

var
  Excel, Workbook: variant;
begin
  Excel := CreateOLEObject('Excel.Application');
  Workbook := Excel.Workbooks.add;
  Excel.Visible := true;
  Excel.Range['E8'] := Edit1.Text;
  Workbook.saveas('C:\neww.xls');
  Workbook.Close;
  Excel.Application.Quit;
end;

Последние 2 строчки можете удалить, если вам не нужно автоматически прекращать работу с Excel.

[mxroman]

БОЛЬШОЕ СПАСИБО!!!!!!!!!!!!

Можно ещё вопросик)

1. Как сделать чтобы при сохранении Книги в указанную ячейку сохранялась дата и время текущее установленное в компе т.е. на винде

2. Есть ли какие нить коды для изменения размеров ячейки, шрифта, стиля и т.д.

Нашёл маленько

 //Excel.Columns['B'].ColumnWidth:=15;             //ширина столбца
  //Excel.Rows['2'].RowHeight:=15;                  //ширина строки
  //Excel.Rows[4].Font.Size:=14;                    //размер шрифта всей строки
  //Excel.Columns['D'].Font.Size:=14;               //размер шрифта всего столбца

Как сделать шрифт конкретной ячейки, и выравнивание например по середине... и ещё если есть что нить

2 вопрос снят, http://www.delphisources.ru/pages/fa...xcel_work.html там всё что надо))))

3. Как записать код чтобы сохранялась книга по Введённому адресу в Edit2, т.е.
Workbook.saveas('C:\neww.xls'); заменить Workbook.saveas(edt2); а также чтобы дату приплюсовать к имени книги...

пробывал эксперементировал вата(

4. Как картинку на форму вставить чтобы постоянно была!!!

procedure TForm1.img1Click(Sender: TObject);
begin
Img1.Picture.LoadFromFile('c:\678.b mp');
end;


Но это только по шелчку двойному, как сделать чтобы просто отображалась!!!??? И чтобы при переносе экзэшника картинка была в exe

[Multiman]

1. Как сделать чтобы при сохранении Книги в указанную ячейку сохранялась дата и время текущее установленное в компе т.е. на винде

Excel.Range['E9'] := DateToStr(date);
  Excel.Range['E10'] := TimeToStr(time);

3. Как записать код чтобы сохранялась книга по Введённому адресу в Edit2, т.е.
Workbook.saveas('C:\neww.xls'); заменить Workbook.saveas(edt2); а также чтобы дату приплюсовать к имени книги...

я бы во так сделал:

Workbook.saveas('C:\'+edit2.text+'_'+DateToStr(date)+'.xls');

в этом случае в edit просто название файла нужно ввести, если вам надо полностью путь то:

Workbook.saveas(edit2.text+'_'+DateToStr(date)+'.xls');

4. Как картинку на форму вставить чтобы постоянно была!!!

У компонента Image есть свойство Picture, вот там и загружайте свою картинку.

[mxroman]

Спасибо большое

Ещё возник одна фигня, при наборе названии кнопки или Label у меня название очень длинное и хотелось бы чтобы записывалось в 2 строчки, т.е. переносом... Как такое организовать


с Label разобрался а вот с кнопкой как быть и Edit если вписываешь длинный текст?