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

ReSQL.ru

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

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

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

8 сообщений из 8, страница 1 из 1

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

#33680453

Ghost_X

Участник

Сообщения: 161

Рейтинг: 0 / 0

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

Подскажите пожалуйсто как установить граници ячейки в открытом 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, 18:51

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

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

#33680650

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Почти так. Только надо не 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

20.04.2006, 20:51

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

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

#33681212

Ghost_X

Участник

Сообщения: 161

Рейтинг: 0 / 0

Почемуто ругается на строку: .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:26

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

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

#33681299

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

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, 09:59

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

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

#33683116

Ghost_X

Участник

Сообщения: 161

Рейтинг: 0 / 0

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

Код: plaintext

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

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

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

...

Рейтинг:

0 / 0

21.04.2006, 15:46

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

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

#33683183

Worobjoff

Участник

Откуда: Москва

Сообщения: 2 384

Рейтинг: 0 / 0

Наверно дело в 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, 16:04

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

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

#33683577

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

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, 17:49

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

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

#33683998

Ghost_X

Участник

Сообщения: 161

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

21.04.2006, 23:59

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

8 сообщений из 8, страница 1 из 1

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

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

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

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

start [/forum/topic.php?fid=60&msg=33680453&tid=2165997]:	0ms
get settings:	11ms
get forum list:	19ms
check forum access:	4ms
check topic access:	4ms
track hit:	160ms
get topic data:	12ms
get forum data:	3ms
get page messages:	62ms
get tp. blocked users:	2ms
others:	247ms

total:	524ms

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