Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отчет в Excel / 15 сообщений из 15, страница 1 из 1
23.04.2003, 10:49
    #32146439
Wit
Wit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
Привет всем!
Подскажите кто сможет.
Создаю отчет в Excel, все данные сливаются нормально, но, мне необходимо, чтобы в конце таблица подчеркивалась (просто изменить значение границы для последней строки таблицы). Как это сделать? кол-во строк в таблице меняется (в зависимости от отчета)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 11:05
    #32146450
Papka
Papka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
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:32
    #32146491
Wit
Wit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
Дак вот, не получается "to zhe samoje" ;-)

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

в uses все прописано...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 11:47
    #32146519
Ильшат
Ильшат
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
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:49
    #32146524
Papka
Papka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
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:52
    #32146532
Wit
Wit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
Спасибо всем!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 12:04
    #32146549
Wit
Wit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
А еще вопросик, xlContinuous выделяет полностью все ячейки данного диапазона, а как сделать, чтобы выделялась ТОЛЬКО нижняя часть ячеек?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 12:11
    #32146565
Ильшат
Ильшат
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
Код: plaintext
...Borders[xlEdgeBottom].LineStyle := xlContinuous;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 12:16
    #32146576
Wit
Wit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
эффекта ноль, т.е. всеравно выделяет все ячейки... :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 12:33
    #32146606
Ильшат
Ильшат
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
Ох-х..
Не знаю как у тебя написано, но вот это работает:

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

смотри:
Код: 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:58
    #32146637
Wit
Wit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
Спасибо всем, разобрался...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2003, 16:58
    #32146931
Papka
Papka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет в Excel
> Wit

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


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