Динамический отчет в Excel. / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический отчет в Excel.

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

Динамический отчет в Excel.

#39463044

tasha klemer

Гость

Прошу помощи. Пытаюсь динамически сделать в 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

Application defined or object defined error

смотрела многие примеры, отличий не вижу, смотрела как макрос отрабатывает если создавать границы из самого Excel ... Все идентично.... может не хватает каких то описаний или подключённых библиотек

...

Рейтинг:

0 / 0

31.05.2017, 13:13

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

Динамический отчет в Excel.

#39463092

MrShin

Участник

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

Рейтинг: 0 / 0

Рабочую книгу не забывайте добавить:

Код: vbnet

1.
2.

    xl.Visible = True
    xl.Workbooks.Add

...

Рейтинг:

0 / 0

31.05.2017, 14:03

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

Динамический отчет в Excel.

#39463095

guest_rusimport

Гость

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

31.05.2017, 14:06

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический отчет в Excel.

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=45&fpage=74&tid=1612376]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	33ms
get topic data:	12ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	339ms

total:	461ms