Зависимости: ComObj Автор: Константин, konrads@mail.ru, Новосибирск Copyright: <Konrads> Дата: 29 августа 2002 г. ***************************************************** }
В uses добавить ComObj var Form1: TForm1; XL: variant; // Переменная в которой создаётся обьект EXCEL
Создание документа
// Обьект EXCEL XL := CreateOleObject('Excel.Application'); // Чтоб не задавал вопрос о сохранении документа XL.DisplayAlerts := false; // новый документ XL.WorkBooks.Add; // или загружаем его XL.WorkBooks.Open(MyDir + '\akt.xls'); { MyDir - глобальная переменная типа string в неё помещаем путь к каталогу запуска нашей програмы по событию FormCreate
procedure TForm1.FormCreate(Sender: TObject); begin GetDir(0,MyDir); end; я всегда так делаю, чтобы программу можно было в любой каталог поместить вместе со своими дополнительными файлами, в этом случае путь будет выбираться всегда правильно }
// Делаем его видимым XL.Visible := true; // Когда прога уже оттестирована лучше это делать в конце, быстрей работает, // а пока нет лучше в начале
// Левое и правое поля отступа для печати XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin := 30; XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin := 10; // Даём название страничке XL.WorkBooks[1].WorkSheets[1].Name := 'Прайс лист'; // Строка появляется на каждом листе при печати XL.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleRows := '$3:$3'; XL.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleColumns := '$A:$A'; // формат числа for i := 4 to 13 do XL.WorkBooks[1].WorkSheets[1].Columns[i].NumberFormat := '0,00'; XL.WorkBooks[1].WorkSheets[1].Columns[4].NumberFormat := '0';
// Таким способом можно задавать ширину колонки XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth := 4.5; XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth := 50; for i := 3 to 13 do XL.WorkBooks[1].WorkSheets[1].Columns[i].ColumnWidth := 8;
// Шрифт жирный XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True; XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color := clBlack; XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size := 16; XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := 'Times New Roman'; XL.WorkBooks[1].WorkSheets[1].Cells[1, 4] := 'Прайс лист'; // Выравнивам по центру по вертикали XL.WorkBooks[1].WorkSheets[1].Rows[1].VerticalAlignment := 2; // Выравнивам по центру по горизонтали XL.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := 3; // Обьединяем ячейки XL.WorkBooks[1].WorkSheets[1].Range['A1:D1'].Merge;
// Выравнивам по центру по вертикали XL.WorkBooks[1].WorkSheets[1].Rows[3].VerticalAlignment := 2; // Выравнивам по центру по горизонтали XL.WorkBooks[1].WorkSheets[1].Rows[3].HorizontalAlignment := 3; // Выравнивам по левому краю XL.WorkBooks[1].WorkSheets[1].Cells[3, 2].HorizontalAlignment := 2; XL.WorkBooks[1].WorkSheets[1].Cells[3, 3].HorizontalAlignment := 2; // Выравнивам по правому краю XL.WorkBooks[1].WorkSheets[1].Cells[3, 4].HorizontalAlignment := 4; XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Color := clBlack; XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Name := 'Times New Roman'; XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Size := 12; XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True; XL.WorkBooks[1].WorkSheets[1].Cells[3, 1] := '№'; XL.WorkBooks[1].WorkSheets[1].Cells[3, 2] := 'Наименование продукции'; XL.WorkBooks[1].WorkSheets[1].Cells[3, 3] := 'Ед. изм.';