Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
3-83378
Jaxtor
2003-05-06 10:31
2003.05.26
DoubleClick в DBGrid


3-83420
Iliasaur
2003-05-07 10:12
2003.05.26
---|Ветка была без названия|---


7-83756
Vladislav
2003-03-26 11:14
2003.05.26
Всеми любимый GetVolumeInformation


3-83348
Ernest
2003-04-29 15:10
2003.05.26
Help with BDE


9-83311
Ev_genus
2002-12-15 22:44
2003.05.26
Проекция.