Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как получить доступ к константам excel?  [new]
Bagin
Member

Откуда:
Сообщений: 838
Здравствуйте!
Из аксесса формирую отчет, и в коде
........
With xlSheet.Range(xlSheet.cells(1, 1), xlSheet.cells(1, 8))
  .MergeCells = True
  .HorizontalAlignment = xlCenter    ' Ошибка, что переменная не определена
End With
...........
выдает ошибку. В общем-то правильно выдает. Но как получить доступ к константам экселя?
Заранее спасибо!
16 июн 05, 12:54    [1624661]     Ответить | Цитировать Сообщить модератору
 Re: Как получить доступ к константам excel?  [new]
ЛП
Guest
есть мнение, что для того, чтобы получить доступ к константам, описанным в какой-либо библиотеке - надо эту самую библиотеку подключить.
16 июн 05, 12:56    [1624668]     Ответить | Цитировать Сообщить модератору
 Re: Как получить доступ к константам excel?  [new]
Bagin
Member

Откуда:
Сообщений: 838
А разве:
Set xlApp = CreateObject("excel.application")
Set xlWB = xlApp.Workbooks.Add
Set xlSheet = xlWB.Worksheets.Add
не подключает то что нужно, ведь доступ организовывается же, все работает нормально, кроме констант?
16 июн 05, 13:00    [1624700]     Ответить | Цитировать Сообщить модератору
 Re: Как получить доступ к константам excel?  [new]
Пользователь2
Guest
xlCenter - это константа, входящая в библиотеку Excel.

Подключи библиотеку: Microsoft Excel #.# Object Library.

ЛП написал же.
16 июн 05, 13:04    [1624728]     Ответить | Цитировать Сообщить модератору
 Re: Как получить доступ к константам excel?  [new]
AlTis_
Guest


К сообщению приложен файл. Размер - 0Kb
16 июн 05, 13:56    [1625076]     Ответить | Цитировать Сообщить модератору
 Re: Как получить доступ к константам excel?  [new]
Bagin
Member

Откуда:
Сообщений: 838
Для меня проще оказалось так:
Private Const xlCenter = -4108
Private Const xlBottom = -4107
Private Const xlContext = -5002
Private Const xlUnderlineStyleNone = -4142
Private Const xlAutomatic = -4105
16 июн 05, 14:04    [1625102]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить