работа с excel файлами через Delphi

[Winss]

Как распечатать stringgrid(вместе с ячейками)? На одном из форумов написанно, что нужно в отчёте в ручную рисовать ячейки. А как это сделать?

[pu4koff]

если надо границы нарисовать, то запускаешь эксель и записываешь макрос, в котором у ячеек устанавливаешь нужную границу, ну и потом готовый код этого макроса с бэйсика на делфи перегоняешь. В принципе ничего сложного

[Pitbull]

Сообщение от pu4koff

если надо границы нарисовать, то запускаешь эксель и записываешь макрос, в котором у ячеек устанавливаешь нужную границу, ну и потом готовый код этого макроса с бэйсика на делфи перегоняешь. В принципе ничего сложного

а что ole-обїект не сгодится тут?

[pu4koff]

Сообщение от Pitbull

а что ole-обїект не сгодится тут?

ну я посчитал что для автора проблема рамочки у ячеек нарисовать (а создание оле объекта уже имееца), вот и опустил создание оле. Ну а для того, чтобы узнать что с этим объектом делать лично я всегда макрос записываю, а потом в делфи код перегоняю с необходимыми поправками
ЗЫ. если уж туплю, то извиняйте... первые лекции не идут мне на пользу

[Cantana]

procedure TForm2_temp.bb_excelClick(Sender: TObject);
var
ExcelApp,Sheet, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
S: String;
T,V,BeginCol, BeginRow, i, j : integer;
RowCount, ColCount : integer;
P:REAL;
begin
Cursor:=crHourGlass;


// Координаты левого верхнего угла области, в которую будем выводить данные
BeginCol := 5;
BeginRow := 11;

// Размеры выводимого массива данных
RowCount := 12; {у тебя размер StringGrid}
ColCount := 40;

// Создание Excel
ExcelApp := CreateOleObject('Excel.Application' );

// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
ExcelApp.Application.EnableEvents := false;

// Создаем Книгу (Workbook)
// Если заполняем шаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTempla te.xls');
Workbook := ExcelApp.WorkBooks.Add('protocolMA_ temp.xls');
// Workbook := ExcelApp.WorkBooks.Add;
Sheet := Workbook.Sheets.Item[1];


Sheet.Cells[3,1]:=' '; {можно так}
Sheet.Cells[5,1]:=' ';
Sheet.Cells[6,1]:=' ';

// или так а вообще можно пользаватьяся сразу оба варианта

// Создаем Вариантный Массив, который заполним выходными данными
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
// Cursor:=crHourGlass;
// Заполняем массив

// тут цикл и присвоивание ячеек StringGrid
ArrayData[I, J] := {параметр};

// Область, в которую будем выводить данные
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

// А вот и сам вывод данных
// Намного быстрее поячеечного присвоения

Range.Value := ArrayData;

beep;
// Делаем Excel видимым
Cursor:=crDefault;
ExcelApp.Visible := true;

end;

p.s: uses добав comobj и пробуй , удачи !

[Winss]

Сообщение от pu4koff

ну я посчитал что для автора проблема рамочки у ячеек нарисовать (а создание оле объекта уже имееца)

именно так)
С проблемой обрисовки разобрался, спасибо.
Теперь возник другой вопрос: Выделить 1 ячейку без использования букв можно (т.е. .Cells[1,1]), а можно ли выделить так диапазон?

[Winss]

Сообщение от Winss

именно так)
Теперь возник другой вопрос: Выделить 1 ячейку без использования букв можно (т.е. .Cells[1,1]), а можно ли выделить так диапазон?

с этим тоже уже разобрался)