Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 115

/ вопрос открыт /

Приветствую, уважаемые эксперты!С помощью кода см.приложение,я заношу содержимое stringgrid в excel.Вот здесь http://msdn2.microsoft.com/en-us/library/aa212524(office.11).aspx описание метода AutoFormat.Я бы хотел что бы ВЫ,на примере приведённого ниже кода вместо заполнения свойства worksheet,показали бы использование этого метода,буду признателен если вы вместо
AutoFormat(Format, Number, Font, Alignment, Border, Pattern, Width),приведёте конкретные значения,что бы я уж до конца разобрался.

Приложение:
  1. procedure tform1.bitbtntoexcelonclick(sender: tobject);
  2. var
  3.  
  4.  
  5. i, j, k, r, c : integer;
  6. iindex : olevariant;
  7. tabgrid : variant;
  8. begin
  9. if genericstringgrid.cells[0,1] < > '' then
  10. begin
  11. iindex := 1;
  12. r := genericstringgrid.rowcount;
  13. c := genericstringgrid.colcount;
  14.  
  15. tabgrid := vararraycreate([0,(r - 1),0,(c - 1)],varolestr);
  16. i := 0;
  17.  
  18. repeat
  19. for j := 0 to (c - 1) do
  20. tabgrid[i,j] := genericstringgrid.cells[j,i];
  21. inc(i,1);
  22. until
  23. i > (r - 1);
  24.  
  25. xlapp.connect;
  26.  
  27. xlapp.workbooks.add(xlwbatworksheet,0);
  28.  
  29. workbk := xlapp.workbooks.item[iindex];
  30.  
  31. worksheet := workbk.worksheets.get_item(1) as _worksheet;
  32.  
  33. worksheet.range['a1',worksheet.cells.item[r,c]].value := tabgrid;
  34.  
  35. worksheet.name := 'customers';
  36. worksheet.columns.font.bold := true;
  37. worksheet.columns.horizontalalignment := xlright;
  38. worksheet.columns.columnwidth := 14;
  39.  
  40. worksheet.range['a' + inttostr(1),'a' + inttostr(r)].font.color := clblue;
  41. worksheet.range['a' + inttostr(1),'a' + inttostr(r)].horizontalalignment := xlhalignleft;
  42. worksheet.range['a' + inttostr(1),'a' + inttostr(r)].columnwidth := 31;
  43.  
  44. xlapp.visible[0] := true;
  45.  
  46. xlapp.disconnect;
  47. // unassign the delphi variant matrix
  48. tabgrid := unassigned;
  49. end;
  50. end;
  51.  


GAZ Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: GAZ (статус: Посетитель)
Вопрос отправлен: 12 ноября 2007, 17:47
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 16 августа 2017, 20:22
Выполнено за 0.03 сек.
Рейтинг@Mail.ru