Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический отчет в Excel. / 3 сообщений из 3, страница 1 из 1
31.05.2017, 13:13
    #39463044
tasha klemer
tasha klemer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический отчет в Excel.
Прошу помощи. Пытаюсь динамически сделать в Excel отчете границы у ячеек.
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set xl = CreateObject("Excel.Application")
Set MyRange = xl.Range("A1", "G" & rs.RecordCount + 1)
    MyRange.Borders(xlDiagonalDown).LineStyle = xlNone
    MyRange.Borders(xlDiagonalUp).LineStyle = xlNone
With MyRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With




MyRange.Borders(xlDiagonalDown).LineStyle = xlNone

выдетает ошибка

Код: vbnet
1.
Application defined or object defined error



смотрела многие примеры, отличий не вижу, смотрела как макрос отрабатывает если создавать границы из самого Excel ... Все идентично.... может не хватает каких то описаний или подключённых библиотек
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2017, 14:03
    #39463092
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический отчет в Excel.
Рабочую книгу не забывайте добавить:
Код: vbnet
1.
2.
    xl.Visible = True
    xl.Workbooks.Add
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2017, 14:06
    #39463095
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический отчет в Excel.
tasha klemer...
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set xl = CreateObject("Excel.Application")
Set MyRange = xl.Range("A1", "G" & rs.RecordCount + 1)
    MyRange.Borders(xlDiagonalDown).LineStyle = xlNone
    MyRange.Borders(xlDiagonalUp).LineStyle = xlNone
With MyRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With


...

при таком создании объекта Excel константы: xlDiagonalDown,xlDiagonalUp,xlEdgeLeft,xlContinuous,xlThin программе неизвестны, либо замените их соответствующими числовыми эквивалентами, либо в References подключите библиотеку Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический отчет в Excel. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 153ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612376]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 66ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 9ms
total:  153ms
x
x
Закрыть


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