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

Откуда:
Сообщений: 68
Добрый день.

Я переношу с помощью VBA-шного кода из Accessa в Excel табличку.
После того как перенес хочу нарисовать границы для данной таблички
Грубо говоря набо написать код

Range("B6:W6").Select
With Selection
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With

но я не знаю сколько строк будет в таблице. Пытаюсь написать

awa = VBA.CStr(jj)
Range("B6:W & awa").Select

где jj номер последней строки таблицы не работает. HELP
26 сен 06, 15:29    [3185655]     Ответить | Цитировать Сообщить модератору
 Re: Excel+Access  [new]
KrukVN
Member [заблокирован]

Откуда: РБ, Гомель
Сообщений: 778
Здесь есть:

К сообщению приложен файл (ExportExcel.rar - 25Kb) cкачать
26 сен 06, 15:33    [3185686]     Ответить | Цитировать Сообщить модератору
 Re: Excel+Access  [new]
Serge Gavrilov
Member

Откуда:
Сообщений: 3248
Дмитрий13
...Range("B6:W & awa").Select

где jj номер последней строки таблицы не работает. HELP

Range("B6:W" & awa).Select
26 сен 06, 15:34    [3185691]     Ответить | Цитировать Сообщить модератору
 Re: Excel+Access  [new]
Guest 11111
Guest
:-))

автор
awa = VBA.CStr(jj)
Range("B6:W & awa").Select


кавычки надо ставить после W :

автор
awa = VBA.CStr(jj)
Range("B6:W" & awa).Select
26 сен 06, 15:34    [3185693]     Ответить | Цитировать Сообщить модератору
 Re: Excel+Access  [new]
Дмитрий13
Member

Откуда:
Сообщений: 68
Guest 11111
:-))

автор
awa = VBA.CStr(jj)
Range("B6:W & awa").Select


кавычки надо ставить после W :

автор
awa = VBA.CStr(jj)
Range("B6:W" & awa).Select


Спасибо, помогло!
26 сен 06, 15:43    [3185759]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить