Цитата:
procedure TForm1.SpeedButton18Click(Sender: TObject);
var
Excel, WorkBook, Sheet: Variant;
begin
Excel:=CreateOleObject('Excel.Application'); // для остальных
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add;
Sheet:=WorkBook.WorkSheets[1];
Sheet.Cells.VerticalAlignment:=xlCenter;
Sheet.Cells[2, 1]:='Вид изделия';
Sheet.Cells[5, 5]:='XX___1___XX';
Sheet.Cells.Columns.AutoFit;
Excel.Visible:=True;
end;
|
Этот код более или менее подходит, но есть проблема...как ячейкам присвоить не просто текст, а текст из Edit, или название(Caption) speedbutton, а еще название radiogroup1 и radiogroup2, и еще один момент выбранный из radiogroup1 и radiogroup2 radiobutton