Форум: "Основная";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c