Главная страница
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.017 c
3-83371
bss
2003-05-06 10:16
2003.05.26
Добавление заголовков на кнопки DBNavigatora


3-83330
diww
2003-05-05 12:53
2003.05.26
переиндексация dbf


1-83550
STANT
2003-05-13 19:13
2003.05.26
Вопрос по созданию компонент


14-83726
bis
2003-05-06 08:37
2003.05.26
Что есть красота?


3-83356
Apachi
2003-05-06 07:48
2003.05.26
IB работа с датой