12.09.2006, 11:38
общий
это ответ
Здравствуйте, Герасименко Алексей Анатольевич!
Полностью согласен с замечанием <b><u>sir henry</u></b>, но все таки привожу пример по форматированию ячейки (см. приложение).
Описание констант-форматирования Вы можете найти в файлах <font color=purple>Excel2000.pas</font> или <font color=purple>ExcelXP.pas</font>.
Также советую Вам посетить такую <big><a href=http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1274>ссылку</a></big>.
Удачи!!!
Приложение:
uses ComObj;var ExlApp: TExcelApplication; ExlWorkBook: ExcelWorkbook; ExlWorkSheet: ExcelWorkSheet;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin ExlApp:=TExcelApplication.Create(Self); ExlApp.ConnectKind := ckNewInstance; ExlApp.AutoQuit:=true; ExlApp.Visible[LOCALE_USER_DEFAULT]:=true; ExlWorkBook:=ExlApp.Workbooks.Add(EmptyParam,0); ExlWorkSheet:=ExlApp.ActiveWorkbook.ActiveSheet as ExcelWorksheet;end;procedure TForm1.CellOkClick(Sender: TObject);var UserRange:OleVariant;begin//форматирование ExlApp.ActiveCell.Value2:=‘Hello!!!‘; UserRange:=ExlWorkSheet.Range[‘A1‘,‘A1‘]; UserRange.Borders[2].LineStyle := 1; UserRange.HorizontalAlignment := xlCenter; UserRange.VerticalAlignment := xlCenter;end;