ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Рамка ячейки в Excel
6 сообщений из 6, страница 1 из 1
Рамка ячейки в Excel
    #36547532
azett
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
azett
Гость
Здравствуйте... подскажите пожалуйста...

Формирую отчет в Excel... нужно сделать чтобы ячейки куда выводятся данные были в рамке...
чтобы сетка получилась

сделал в файле Excell макрос, который делает границы ячейки в рамку

в программе такой код

m.olebook.Range("m.olebook.Cells(ii,1).address").select
m.olebook.Run("Mac1")

выдает ошибку Ole error code 0x800a03ec Unknown come status code

без первой строчки макрос выполняется, но соответственно в одной ячейке где курсор оставался при закрытии файла excel

в чем может быть проблема?
...
Рейтинг: 0 / 0
29.03.2010, 10:10
| Ответить | Цитировать | Написать  
Рамка ячейки в Excel
    #36548790
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
azett, в прищепке файл, которому уже лет сто, и мне он не принадлежит, брал его я еще в конференции ФИДО. В нем есть примеры работы с границами ячеек, почти в конце..
Если чего здесь из констант нет, - то ищи в EXCEL.H
...
Рейтинг: 0 / 0
29.03.2010, 17:44
| Ответить | Цитировать | Написать  
Рамка ячейки в Excel
    #36549560
azett
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
azett
Гость
Спасибо...
...
Рейтинг: 0 / 0
30.03.2010, 03:49
| Ответить | Цитировать | Написать  
Рамка ячейки в Excel
    #36553044
Koryuu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Koryuu
Участник
А я в проге рамочки рисую ^__^
Код: 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.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
#define xlBottom - 4107 
#define xlTop - 4160 
#define xlNone - 4142 
#define xlDiagonalDown  5 
#define xlDiagonalUp  6 
#define xlEdgeLeft  7 
#define xlEdgeTop  8 
#define xlEdgeBottom  9 
#define xlEdgeRight  10 
#define xlInsideVertical  11 
#define xlInsideHorizontal  12 
#define xlContinuous  1 
#define xlThin  2  
#define xlAutomatic - 4105 
#define xlContext - 5002 

*********************

oRange=loexcel.range[loexcel.cells(a,b),loexcel.cells(c,d)]
oRange.select
oRange.VerticalAlignment = xlTop
loexcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
loexcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With loexcel.Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
_______________________________
Истинный оргазм можно испытать только после нескольких часов жесткой е*ли с кодом
...
Рейтинг: 0 / 0
31.03.2010, 15:00
| Ответить | Цитировать | Написать  
Рамка ячейки в Excel
    #36553338
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Koryuu

Последние две линии я пишу так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Try && наверное может быть ситуация, когда будет только одна строка
* И тогда не будет понятия "внутренние горизонтальные линии" и будет ошибки
* Вот её тихонько перехватим и будем работать дальше
 With .BorderS(xlInsideVertical)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .Colorindex = xlAutomatic
 Endwith
Catch To oErr
Endtry
Try && наверное может быть ситуация, когда будет только один столбец
* И тогда не будет понятия "внутренние вертикальные линии" и будет ошибки
* Вот её тихонько перехватим и будем работать дальше
 With .BorderS(xlInsideHorizontal)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .Colorindex = xlAutomatic
 Endwith
Catch To oErr
Endtry


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
31.03.2010, 16:16
| Ответить | Цитировать | Написать  
Рамка ячейки в Excel
    #36557044
Koryuu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Koryuu
Участник
Спасибо за поданную мысль. У меня, правда, ни разу не было отчета состоящего из одной строки или одного столбца, но ведь когда-нибудь это может случиться =^^=

__________________________________
Истинный оргазм можно испытать только после нескольких часов жесткой е*ли с кодом
...
Рейтинг: 0 / 0
02.04.2010, 09:55
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Рамка ячейки в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=36548790&tid=1585450]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 12ms
total:  132ms
созд. / загр.: 132ms
x
x
Закрыть


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