ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отчет в Excel
15 сообщений из 15, страница 1 из 1
Отчет в Excel
    #32146439
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
Привет всем!
Подскажите кто сможет.
Создаю отчет в Excel, все данные сливаются нормально, но, мне необходимо, чтобы в конце таблица подчеркивалась (просто изменить значение границы для последней строки таблицы). Как это сделать? кол-во строк в таблице меняется (в зависимости от отчета)
...
Рейтинг: 0 / 0
23.04.2003, 10:49
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146450
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
Zapishi v Excele macros i posmotri kak on eto delajet. U sebja v proge sdelaj to zhe samoje. Jesli connectishsja k Excel chrez OleObject, to nado podkluchit unit Excel2000 vrode dlja konstant.
...
Рейтинг: 0 / 0
23.04.2003, 11:05
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146491
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
Дак вот, не получается "to zhe samoje" ;-)

Код: plaintext
1.
Excel.ActiveSheet.Selection.Borders(xlEdgeBottom).LineStyle:='xlContinuous';
...
Рейтинг: 0 / 0
23.04.2003, 11:32
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146501
Фотография Ильшат
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ильшат
Участник
Кавычки убери. и пропиши в uses Excel2000
...
Рейтинг: 0 / 0
23.04.2003, 11:39
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146509
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
Говорит
Method 'Selection' not supported by automation object

в uses все прописано...
...
Рейтинг: 0 / 0
23.04.2003, 11:43
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146519
Фотография Ильшат
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ильшат
Участник
Example:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Var
  Excel, WorkBook, Sheet: Variant;
begin
  Screen.Cursor := crHourGlass;
  try
    Excel := CreateOleObject( 'Excel.Application');
  except
    Screen.Cursor := crDefault;
    Application.MessageBox( 'Возможно, на этой машине не установлен ' +
      'Microsoft Excel или один из его компонентов, ' +
      'невозможно создать Excel Workbook',
      'Ошибка', MB_ICONERROR + MB_OK);
    Exit;
  end;

  WorkBook := Excel.WorkBooks.Add;
  Sheet := WorkBook.WorkSheets[  1 ];
...
  Sheet.Range[ 'A3:F' +
    IntToStr(  3  + frmMain.pbMain.Max)].Borders.LineStyle := xlContinuous;
  Sheet.Range[ 'A3:F' +
    IntToStr(  3  + frmMain.pbMain.Max)].Borders.Weight := xlMedium;

  Excel.ActiveSheet.PageSetup.CenterHorizontally := true;
  Sheet.PageSetup.Orientation := xlLandscape;
...
Рейтинг: 0 / 0
23.04.2003, 11:47
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146524
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
Selection tochno ponimajet. Sam proboval. Moget ActiveSheet ne nuzhen? Tam u menja bila moroka s tem chto cherez ActiveSheet i AcvtiveWorkbook ne vse poluchalos, a cherez Workbook(n) i Sheet(n) vse bilo ok.
...
Рейтинг: 0 / 0
23.04.2003, 11:49
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146532
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
Спасибо всем!
...
Рейтинг: 0 / 0
23.04.2003, 11:52
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146549
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
А еще вопросик, xlContinuous выделяет полностью все ячейки данного диапазона, а как сделать, чтобы выделялась ТОЛЬКО нижняя часть ячеек?
...
Рейтинг: 0 / 0
23.04.2003, 12:04
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146565
Фотография Ильшат
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ильшат
Участник
Код: plaintext
...Borders[xlEdgeBottom].LineStyle := xlContinuous;
...
Рейтинг: 0 / 0
23.04.2003, 12:11
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146576
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
эффекта ноль, т.е. всеравно выделяет все ячейки... :(
...
Рейтинг: 0 / 0
23.04.2003, 12:16
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146606
Фотография Ильшат
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ильшат
Участник
Ох-х..
Не знаю как у тебя написано, но вот это работает:

Код: plaintext
Sheet.Range[ 'A3'].Borders[ xlEdgeBottom].LineStyle := xlContinuous;
...
Рейтинг: 0 / 0
23.04.2003, 12:33
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146626
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
Ильшат, я конечно понимаю, что достал, твой пример работает.

смотри:
Код: plaintext
1.
2.
3.
vExcel.ActiveSheet.Range['A'+IntToStr(I)+':D' +IntToStr(I)].Borders[xlEdgeBottom].LineStyle := xlContinuous;

vExcel.ActiveSheet.Range['A10:D10'].Borders[xlEdgeBottom].LineStyle := xlContinuous;


верхняя строка выводит решетку, а нижняя (твоя) работает нормально...
хотя я не вижу в этих строках разницы... переменная I изменяется в цикле, строка написана уже после цикла, т.е. с последним значением переменной, в принципе должно работать... НО... :(
...
Рейтинг: 0 / 0
23.04.2003, 12:49
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146637
Фотография Wit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wit
Участник
Спасибо всем, разобрался...
...
Рейтинг: 0 / 0
23.04.2003, 12:58
| Ответить | Цитировать | Написать  
Отчет в Excel
    #32146931
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
> Wit

Ne rabotaj v cikle. Ne nado. Tormozit budet na bolshih objemah.
...
Рейтинг: 0 / 0
23.04.2003, 16:58
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отчет в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]