из Delphi в Excel

[Zer0]

Свойство AutoSize - false
Выставить размер Лэйбла такой, как нужно и выставить свойство WordWrap - true

[Multiman]

Называйте компоненты программно.

В свойстве WordWrap кнопки установите значение true и:

 procedure TForm1.FormActivate(Sender: TObject);
begin
 button1.Caption:='Строка1'+#13+'Строка2';
end;;

#13 - перенос на другую строчку

[mxroman]

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;

Это код чтобы создалась новая книга и сохр, а как открыть конкретную книгу и изменить в ней одну ячейку и сохранить с изменением!!! без запросов

[Zer0]

Excel.Workbooks.Open('путь к файлу');

вместо

Workbook := Excel.Workbooks.add;

[mxroman]

// Выравнивам по центру по горизонтали
  XL.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := 3;

а как сделать полностью столбец по центру выравн.?

[Zer0]

Columns вместо Rows, т.е.

XL.WorkBooks[1].WorkSheets[1].Columns[номер_столбца].HorizontalAlignment := 3;

[mxroman]

    begin
    Excel := CreateOLEObject('Excel.Application');
    Excel.Workbooks.Open(edt121.Text);
    Excel.Visible := true;
    Excel.Range['B5'] := edt1.Text;
    Workbook.saveas(edt121.Text);
    Workbook.Close;
    Excel.Application.Quit;
    end;

что то заносит в ячеёку инфу, но вот не сохр... ругается на

    Workbook.saveas(edt121.Text);

    begin
    Excel := CreateOLEObject('Excel.Application');
    Excel.Workbooks.Open(edt121.Text);
    Excel.Visible := true;
    Excel.Range['B5'] := edt1.Text;
    Workbook.Close;
    Excel.Application.Quit;
    end;

ругается на

  Workbook.Close;

[Zer0]

А Вы уверены что именно на эти строчки? У меня ощущение, что ошибка все таки
Excel.Range['B5'] := edt1.Text;
Какую именно ошибку среда выдает?

[mxroman]

Project Project3.exe raised exception class EvariantInvalidOpError message 'Invalid variant operation'. Process stopped. Use Step or Run to Continue.

И выделяет строчку

Workbook.saveas(edt121.Text);

Ощущение вас подводит, инфи то он заносит в ячейку))))

    begin
    Excel := CreateOLEObject('Excel.Application');
    Excel.Workbooks.Open(edt121.Text);
    Excel.Visible := true;
    Excel.Range['A5'] := edt2.Text;
    //Workbook.saveas(edt121.Text);
    //Workbook.Close;
    //Excel.Application.Quit;
    end;

Вот так работает всё чики руки, но мне надо же закрыть книгу с сохр изменений

Вопрос по ходу как объединить ячейки???
Узнал из Delphi

Excel.WorkBooks[1].WorkSheets[1].Range['A11:C13'].Merge;

[Zer0]

Извините, когда писал пример забыл об одной переменной:

    begin
    Excel := CreateOLEObject('Excel.Application');
    Workbook := Excel.Workbooks.Open(edt121.Text);
    Excel.Visible := true;
    Excel.Range['A5'] := edt2.Text;
    Workbook.saveas(edt121.Text);
    Workbook.Close;
    Excel.Application.Quit;
    end;