|
|
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
Привет всем Как программно нарисовать рамку ячейки? Начало цикла xlApp.ActiveWorkbook.Sheets("Приложение1").Cells(13 + i - 1, 2)....-здесь должен быть какой-то метод, а вот какой незнаю КонецЦикла Спасибо заранее ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 07:35 |
|
||
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
примерно так, это можно увидеть записав макрос with xlsheet.range(xlsheet.cells(1,1), xlsheet.cells(1,20) .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeLeft).Weight = xlThin .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeTop).Weight = xlThin .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeBottom).Weight = xlThin .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeRight).Weight = xlThin end with И не надо ссылаться неявно - ActiveWorkbook, возможны фокусы с незакрыванием программо екселя. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 07:54 |
|
||
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
Спасибо большое Александр! я сделал так with xlApp.ActiveWorkbook.Sheets("Приложение1").range(xlApp.ActiveWorkbook.Sheets("Приложение1").cells(1,1), xlApp.ActiveWorkbook.Sheets("Приложение1").cells(1,20) .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeLeft).Weight = xlThin .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeTop).Weight = xlThin .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeBottom).Weight = xlThin .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeRight).Weight = xlThin end with рамку рисует нормально, но меня смущает то, что вы сказали "И не надо ссылаться неявно - ActiveWorkbook, возможны фокусы с незакрыванием программо екселя." и что за объект xlsheet? А вообщето, я планировал , чтобы пользователь не видел как открывается закрывается ексел.Я буду делать так ,чтобы при нажатии на кнопку сразу печатался отчет(екселевский), заполненный данными из приложения. Возможео ли это? Сорри если что, я начинающий ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 08:10 |
|
||
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
Set xlApp = CreateObject("Excel.Application") Set xlWkb = App.Workbooks.Open("c:\Shablon\Форма.xlt") Set xlSheet = Wkb.Sheets(("Приложение1") Именно при программном закрытии (без пользователя) объект екселя может остаться в памяти при неявном обращении к его объектам типа workbooks.close ActiveSheet ActiveBook и т.д. такая вот особенность у екселя. посмотреть остался ли в памяти можно через диспетчер задач после отработки процедуры. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 08:29 |
|
||
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
прошу извинить Set xlApp = CreateObject("Excel.Application") Set xlWkb = xlApp.Workbooks.Open("c:\Shablon\Форма.xlt") Set xlSheet = xlWkb.Sheets(("Приложение1") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 08:32 |
|
||
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
Уважаемый Александр, большое спасибо, у меня еще вопрос, как создать копию шаблона-мне нужно работать с копией-а шаблон не трогать И еще.Если в файле шаблона несколько страниц... Спасибо заранее. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 09:12 |
|
||
|
Рамку программно
|
|||
|---|---|---|---|
|
#18+
Хосе как создать копию шаблона-мне нужно работать с копией-а шаблон не трогать как в примере написано - открываем .xlt Хосе И еще.Если в файле шаблона несколько страниц... Set xlSheet1 = xlWkb.Sheets(("Приложение1") Set xlSheet2 = xlWkb.Sheets(("Приложение2") и работаем с xlSheet1 и xlSheet2 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.11.2004, 09:23 |
|
||
|
|
start [/forum/topic.php?fid=61&fpage=370&tid=2186470]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
36ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 12ms |
| total: | 131ms |
| 0 / 0 |
