Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Рамку программно / 7 сообщений из 7, страница 1 из 1
01.11.2004, 07:35
    #32762496
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
Привет всем
Как программно нарисовать рамку ячейки?
Начало цикла
xlApp.ActiveWorkbook.Sheets("Приложение1").Cells(13 + i - 1, 2)....-здесь должен быть какой-то метод, а вот какой незнаю
КонецЦикла

Спасибо заранее
...
Рейтинг: 0 / 0
01.11.2004, 07:54
    #32762508
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
примерно так, это можно увидеть записав макрос
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, возможны фокусы с незакрыванием программо екселя.
...
Рейтинг: 0 / 0
01.11.2004, 08:10
    #32762520
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
Спасибо большое Александр!

я сделал так
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?

А вообщето, я планировал , чтобы пользователь не видел как открывается закрывается ексел.Я буду делать так ,чтобы при нажатии на кнопку сразу печатался отчет(екселевский), заполненный данными из приложения.

Возможео ли это?
Сорри если что, я начинающий
...
Рейтинг: 0 / 0
01.11.2004, 08:29
    #32762523
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = App.Workbooks.Open("c:\Shablon\Форма.xlt")
Set xlSheet = Wkb.Sheets(("Приложение1")

Именно при программном закрытии (без пользователя) объект екселя может остаться в памяти при неявном обращении к его объектам
типа
workbooks.close
ActiveSheet
ActiveBook и т.д.
такая вот особенность у екселя.
посмотреть остался ли в памяти можно через диспетчер задач после отработки процедуры.
...
Рейтинг: 0 / 0
01.11.2004, 08:32
    #32762525
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
прошу извинить
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open("c:\Shablon\Форма.xlt")
Set xlSheet = xlWkb.Sheets(("Приложение1")
...
Рейтинг: 0 / 0
01.11.2004, 09:12
    #32762545
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
Уважаемый Александр,

большое спасибо, у меня еще вопрос,
как создать копию шаблона-мне нужно работать с копией-а шаблон не трогать
И еще.Если в файле шаблона несколько страниц...
Спасибо заранее.
...
Рейтинг: 0 / 0
01.11.2004, 09:23
    #32762555
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамку программно
Хосе
как создать копию шаблона-мне нужно работать с копией-а шаблон не трогать

как в примере написано - открываем .xlt

Хосе
И еще.Если в файле шаблона несколько страниц...

Set xlSheet1 = xlWkb.Sheets(("Приложение1")
Set xlSheet2 = xlWkb.Sheets(("Приложение2")
и работаем с xlSheet1 и xlSheet2
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Рамку программно / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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