построение отчётов

@vytytshystvo · Регистрация: 13.05.2006

Студворк — интернет-сервис помощи студентам

Строю отчёт в экселе из Лотуса. Нужно сделать границы ячеек в которые копируются данные из вьюхи чёрными линиями вокруг.

@oshmyomsky · 16.05.2006, 14:52

Сообщение от velitchestvo

Строю отчёт в экселе из Лотуса. Нужно сделать границы ячеек в которые копируются данные из вьюхи чёрными линиями вокруг.

Касается всего MS Office. Пишешь макрос, открываешь его в редакторе VB, смотришь код, константы и потрируешь на LS.

Range("E8").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

@Mydyvys · 16.05.2006, 14:56

В хелпе по VBA всё расписано.
Свойства Cells или Range:
.Borders.LineStyle - тип
.Borders.Weight - толщина
Можно задать стороны.
.Borders(8) - верхняя
.Borders(7) - леввая
.Borders(10) - правая
.Borders(9) - нижняя

@vytytshystvo · 16.05.2006, 15:10

Я видел макрос, просто выдаётся ошибка "Ole authomation object error"

...

Set ExcelObj = CreateObject("Excel.Application")
Set App = ExcelObj.Application

...
app.Workbooks("Отчёт по курсам.xls").activate
app.Workbooks("Отчёт по курсам.xls").Worksheets("Экзамены").Acti vate
Set Sheet = App.ActiveSheet

...
Set R = Sheet.Range("A3:I3")
r.Borders(xlEdgeLeft).LineStyle = xlContinuous <<< "Ole authomation object error"
r.Borders(xlEdgeLeft).Weight = xlThin
r.Borders(xlEdgeLeft).ColorIndex = xlAutomatic

@Mydyvys · 16.05.2006, 15:25

Для: velitchestvo
А что такое xlContinuous, xlThin и xlAutomatic ?

и xlEdgeLeft ?

@oshmyomsky · 16.05.2006, 15:30

Сообщение от velitchestvo

Я видел макрос, просто выдаётся ошибка "Ole authomation object error"

...

Set ExcelObj = CreateObject("Excel.Application")
Set App = ExcelObj.Application

...
app.Workbooks("Отчёт по курсам.xls").activate
app.Workbooks("Отчёт по курсам.xls").Worksheets("Экзамены").Acti vate
Set Sheet = App.ActiveSheet

...
Set R = Sheet.Range("A3:I3")
r.Borders(xlEdgeLeft).LineStyle = xlContinuous <<< "Ole authomation object error"
r.Borders(xlEdgeLeft).Weight = xlThin
r.Borders(xlEdgeLeft).ColorIndex = xlAutomatic

вот рабочий вариант
Dim xlApp As Variant
Dim App As Variant
Dim xlsheet As Variant
Dim r As Variant

Set xlApp = CreateObject("Excel.Application")

With xlApp
.Workbooks.Add
Set xlsheet = .Workbooks(1).Worksheets(1)
xlsheet.Name = "Отчет"
.Visible=True
End With
Set r=xlsheet.Cells(1,2)

r.Borders(7).LineStyle = 1
r.Borders(7).Weight = 2
r.Borders(7).ColorIndex = -4105

@oshmyomsky · 16.05.2006, 16:08

Вот тебе еще

Dim xlApp As Variant
Dim App As Variant
Dim xlsheet As Variant
Dim Selection As Variant

Const xlEdgeLeft = 7
Const xlEdgeTop = 8
Const xlEdgeBottom = 9
Const xlEdgeRight = 10
Const xlContinuous = 1
Const xlThin = 2
Const xlAutomatic = -4105

Set xlApp = CreateObject("Excel.Application")

With xlApp
.Workbooks.Add
Set xlsheet = .Workbooks(1).Worksheets(1)
xlsheet.Name = "Отчет"
.Visible=True
End With

xlApp.Range("D11:K11").Select
Set Selection = xlApp.Selection
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

@vytytshystvo · 16.05.2006, 16:10

Спасибо oshmianski!
Не знал что надо xl... как константы обозначить

@oshmyomsky · 16.05.2006, 16:15

Сообщение от velitchestvo

Спасибо oshmianski!
Не знал что надо xl... как константы обозначить

а этого никто и не говорил. никто не мешает тебе их просто как переменные объвить.

Новые блоги и статьи Все статьи Все блоги /
Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .

@vytytshystvo 0 / 0 / 0 Регистрация: 13.05.2006 Сообщений: 27

	построение отчётов 16.05.2006, 14:39. Показов 21420. Ответов 8 Метки нет (Все метки) Строю отчёт в экселе из Лотуса. Нужно сделать границы ячеек в которые копируются данные из вьюхи чёрными линиями вокруг. 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	16.05.2006, 14:56
	В хелпе по VBA всё расписано. Свойства Cells или Range: .Borders.LineStyle - тип .Borders.Weight - толщина Можно задать стороны. .Borders(8) - верхняя .Borders(7) - леввая .Borders(10) - правая .Borders(9) - нижняя 0

@vytytshystvo 0 / 0 / 0 Регистрация: 13.05.2006 Сообщений: 27
	16.05.2006, 15:10
	Я видел макрос, просто выдаётся ошибка "Ole authomation object error" ... Set ExcelObj = CreateObject("Excel.Application") Set App = ExcelObj.Application ... app.Workbooks("Отчёт по курсам.xls").activate app.Workbooks("Отчёт по курсам.xls").Worksheets("Экзамены").Acti vate Set Sheet = App.ActiveSheet ... Set R = Sheet.Range("A3:I3") r.Borders(xlEdgeLeft).LineStyle = xlContinuous <<< "Ole authomation object error" r.Borders(xlEdgeLeft).Weight = xlThin r.Borders(xlEdgeLeft).ColorIndex = xlAutomatic 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	16.05.2006, 15:25
	Для: velitchestvo А что такое xlContinuous, xlThin и xlAutomatic ? и xlEdgeLeft ? 0

@oshmyomsky 0 / 0 / 0 Регистрация: 13.10.2005 Сообщений: 848
	16.05.2006, 16:08
	Вот тебе еще Dim xlApp As Variant Dim App As Variant Dim xlsheet As Variant Dim Selection As Variant Const xlEdgeLeft = 7 Const xlEdgeTop = 8 Const xlEdgeBottom = 9 Const xlEdgeRight = 10 Const xlContinuous = 1 Const xlThin = 2 Const xlAutomatic = -4105 Set xlApp = CreateObject("Excel.Application") With xlApp .Workbooks.Add Set xlsheet = .Workbooks(1).Worksheets(1) xlsheet.Name = "Отчет" .Visible=True End With xlApp.Range("D11:K11").Select Set Selection = xlApp.Selection With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With 0

@vytytshystvo 0 / 0 / 0 Регистрация: 13.05.2006 Сообщений: 27
	16.05.2006, 16:10
	Спасибо oshmianski! Не знал что надо xl... как константы обозначить 0

Опции темы