Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизЗагрузка результата селекта в Excel Найти похожие ветки
← →
Oleon (2002-04-09 17:26) [3]var
XLApp : Variant;
Sheet : Variant;
RangeHeader : Variant;
RangeStr :string;
Begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible := True;
XLApp.Workbooks.Add(xlWBatWorkSheet);
XLApp.Workbooks[1].WorkSheets[1].Name := Title;
Sheet := XLApp.Workbooks[1].WorkSheets[Title];
RangeStr := "A1:" + Char(Integer("A") + "кол-во колонок-1)+ "1"
// Ссылка на заголовок вообще
RangeHeader := XLApp.Workbooks1].WorkSheetsTitle].RangeRangeStr];
// жирный фонт
RangeHeader.Columns.Font.Bold := True;
// пишешь загловки
for i := 1 to GridColCount do begin
Sheet.Cells[1, i] := .....AsString
for i := 1 to "кол-во столбцов d селекте" do
for j := 1 to "записей так эдак тыши 3 ... 4 ..." do
Sheet[i,j] := ....AsString;
End;
Good Luck!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c