Как сделать граници ячейки excel в VB6 / Visual Basic

ReSQL.ru

2.0.61

Планшетная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать граници ячейки excel в VB6 / 8 сообщений из 8, страница 1 из 1

20.04.2006, 18:51

#33680453

Ghost_X

Участник

Сообщения: 161
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Здравствуйте.

Подскажите пожалуйсто как установить граници ячейки в открытом excel листе, в Visual Basic 6

Private Sub Form_Load()

Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Open App.Path & "\1.xls"

With .Worksheets(1)
.Cells(2, 2) = "данные в ячейку"
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin

End With
End With
Set xlApp = Nothing

End Sub

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

20.04.2006, 20:51

#33680650

White Owl

Участник

Сообщения: 12 726
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Почти так. Только надо не Weight менять, а LineStyle. И не для листа, а для ячейки.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

 With .Worksheets( 1 )
    With .Cells( 2 ,  2 )
         .Value = "данные в ячейку"
         .Borders(xlEdgeLeft).LineStyle = xlContinuous
         ' или константой:
         .Borders(xlEdgeLeft).LineStyle =  1 
    End With
 End With

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2006, 09:26

#33681212

Ghost_X

Участник

Сообщения: 161
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Почемуто ругается на строку: .Borders(xlEdgeLeft).LineStyle = xlContinuous
таким матом: application - defined or object - defined error

Private Sub Form_Load()

Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Open App.Path & "\1.xls"

With .Cells(2, 2)
.Value = "данные в ячейку"
.Borders(xlEdgeLeft).LineStyle = xlContinuous

End With

End With

Set xlApp = Nothing
End Sub

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2006, 09:59

#33681299

vkodor

Участник

Откуда: Moscow
Сообщения: 1 809
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Ghost_XПочемуто ругается на строку: .Borders(xlEdgeLeft).LineStyle = xlContinuous
таким матом: application - defined or object - defined error

Private Sub Form_Load()

Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Open App.Path & "\1.xls"

With .Cells(2, 2)
.Value = "данные в ячейку"
.Borders(xlEdgeLeft).LineStyle = xlContinuous

End With

End With

Set xlApp = Nothing
End Sub
ты забыл указать книгу и лист

Код: plaintext

With .Workbooks("1.xls").Sheets( 1 ).Cells( 2 ,  2 )

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2006, 15:46

#33683116

Ghost_X

Участник

Сообщения: 161
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

ты забыл указать книгу и лист

Код: plaintext

With .Workbooks("1.xls").Sheets( 1 ).Cells( 2 ,  2 )

Но для чего это нужно данные в ячейку первого листа и так поподают все стопорится на строке: .Borders(xlEdgeLeft).LineStyle = xlContinuous

Аэто вариант я всеровно проверил и все также.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2006, 16:04

#33683183

Worobjoff

Участник

Откуда: Москва
Сообщения: 2 384
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Наверно дело в Cells
Надо Range использовать или Style.
Манипулировать надо и LineStyle-м и Weght-ом
Вот отрывок кода. Его надо подправить, т.к. это свойство класса из нашего генератора отчетов.

Код: 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.

Public Property Let ÒèïËèíèè(ByVal New_Value As enumXlsBorderType)
   m_ÒèïËèíèè = New_Value +  1  'Ñêîððåêòèðîâàòü (1-based)
   m_ÅñòüËèíèÿ = True
   Select Case m_ÒèïËèíèè
      Case  1 
         m_LineStyle = xlNone
         m_Weight =  0 
         m_ÅñòüËèíèÿ = False
      Case  2 
         m_LineStyle = xlContinuous
         m_Weight = xlHairline
      Case  3 
         m_LineStyle = xlDot
         m_Weight = xlThin
      Case  4 
         m_LineStyle = xlDashDotDot
         m_Weight = xlThin
      Case  5 
         m_LineStyle = xlDashDot
         m_Weight = xlThin
      Case  6 
         m_LineStyle = xlDash
         m_Weight = xlThin
      Case  7 
         m_LineStyle = xlContinuous
         m_Weight = xlThin
      Case  8 
         m_LineStyle = xlDashDotDot
         m_Weight = xlMedium
      Case  9 
         m_LineStyle = xlSlantDashDot
         m_Weight = xlMedium
      Case  10 
         m_LineStyle = xlDashDot
         m_Weight = xlMedium
      Case  11 
         m_LineStyle = xlDash
         m_Weight = xlMedium
      Case  12 
         m_LineStyle = xlContinuous
         m_Weight = xlMedium
      Case  13 
         m_LineStyle = xlContinuous
         m_Weight = xlThick
      Case  14 
         m_LineStyle = xlDouble
         m_Weight = xlThick
   End Select
End Property

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2006, 17:49

#33683577

White Owl

Участник

Сообщения: 12 726
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Ghost_XПочемуто ругается на строку: .Borders(xlEdgeLeft).LineStyle = xlContinuous
таким матом: application - defined or object - defined error
Замени собственные константы Экселя на их значения. Например:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

option Explicit
dim oApp

set oApp = CreateObject("Excel.Application")
With oApp
	.Visible = True
	.Workbooks.Add
	With .ActiveSheet.Cells( 2 ,  2 )
		.Value = "some text"
		.Borders(  7 ).LineStyle =      1   ' xlEdgeLeft    xlContinous
		.Borders( 10 ).LineStyle =      4   ' xlEdgeRight   xlDashDot
		.Borders(  8 ).LineStyle =      5   ' xlEdgeTop     xlDashDotDot
		.Borders(  9 ).LineStyle = - 4119   ' xlEdgeBottom  xlDouble
	End With
End With

Set oApp = Nothing

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2006, 23:59

#33683998

Ghost_X

Участник

Сообщения: 161
Рейтинг: 0 / 0

Как сделать граници ячейки excel в VB6

Замена констант excel на их значения помогла, спасибо.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&mobile=1&tid=2165997]:	0ms
get settings:	7ms
get forum list:	11ms
check forum access:	2ms
check topic access:	2ms
track hit:	153ms
get topic data:	8ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	200ms

total:	422ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы