1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
// avec XlsApp: TExcelApplication;
procedure TForm1.Button1Click(Sender: TObject);
var
XlsWk: _workbook;
XlsPage :_Worksheet;
begin
XlsApp.Connect;
XlsApp.Visible[0] := true;
XlsWk := XlsApp.Workbooks.Open('F:\Prog\_Essai\Classeur1.XLS', False,False, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
XlsPage := XlsWk.Worksheets['Feuil1'] as _worksheet;
// test 1
XlsPage.Range['A1', 'A8'].Interior.Color := RGB(100,200,128);
// test 2
XlsPage.Range['C5', 'C10'].Interior.Color := clLime;
// test 3
XlsPage.Range['D1', 'D8'].Interior.ColorIndex := 7;
XlsApp.Save;
XlsApp.Disconnect; |
Partager