Главная страница
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.016 c
14-83647
Top Gun
2003-05-01 00:06
2003.05.26
Как действует функция SetWindowLong ? Никак не пойму


6-83641
Zevsus
2003-03-24 23:22
2003.05.26
чтобы две программы слушали udp порт одновременно.


9-83313
albom
2002-12-13 01:09
2003.05.26
Вращение камеры


3-83415
Quest
2003-04-29 20:41
2003.05.26
Vendor initialization failed


3-83371
bss
2003-05-06 10:16
2003.05.26
Добавление заголовков на кнопки DBNavigatora