Текущий архив: 2003.05.26;
Скачать: CL | DM;
Вниз
Export in Excel Найти похожие ветки
← →
Till © (2003-05-13 14:37) [0]Привет всем кого не видел сеня ;)
Сделал Экспорт из стринг грида вот так
procedure TForm1.Excel1Click(Sender: TObject);
var
excel,excel1,WorkBook:variant;
i,j : integer;
Sheet:Variant;
begin
if not IsOLEObjectInstalled("Excel.Application") then
ShowMessage("У вас не установлен Microsoft Excel, экспорт невозможен! Обратитесь к Вашему Системному Администратору!")
else
begin
excel:= CreateOLEObject("Excel.Application");
excel.workbooks.add;
excel.visible := true;
excel1:=excel.Workbooks[1].Sheets[1];
for i := 0 to StringGrid.RowCount do
for j := 0 to StringGrid.ColCount do
begin
excel1.Cells[i+1,j+1].Value:=StringGrid.Cells[i,j];
end;
end;
end;
Все блин экспортируеться ну например если в стринг гриде больше 7 строк , в экселе он показывает сколько нужнго столбцов но строк стока не показывает доходит до 7 и все, хотя если строк много идет обработка экспорта видно по загруженности проца, но показывает всего 7 строк, помогите разобраться! Плиз!!
Вот еще вопросик как сделать так когда я экспортировал таблицу в эксель сделать у нее черное очертание?
Спасибо!
Жду ответа!
← →
Карелин Артем © (2003-05-13 14:55) [1]1! StringGrid.RowCount -1
2 Поставь обновления для офиса, если винда 9Х или офис 97.
Насчет всяких финтифлюшек типа рамок можешь черкнуть мне письмо - вышлю учебный пример собственного изготовления.
← →
Till © (2003-05-14 08:13) [2]Все я нашел свою ошибку ;))
Страницы: 1 вся ветка
Текущий архив: 2003.05.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
