ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Access, найти последнюю заполненную строку в Excel
16 сообщений из 16, страница 1 из 1
Access, найти последнюю заполненную строку в Excel
    #38714850
irina_irina_irina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irina_irina_irina
Гость
Помогите понять в чем причина ошибки? Может я тип переменных не тот указала или номер последней строки не так ищу.
Вот кусок кода:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim Ycheika As Object
Dim sr As Object
Dim st As Object

Set st = objExBook1.Worksheets("Материалы").Columns(1)
Set sr = objExBook1.Worksheets("Материалы").Cells(Rows.Count, 2).End(xlDown).Row + 1 'Здесь ругается object required
Set Ycheika = objExBook1.Worksheets("Материалы").Range("& sr &", "& st &").Cells
...
Рейтинг: 0 / 0
07.08.2014, 13:22
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714855
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Для Rows-то тоже надо указать путь к нему
...
Рейтинг: 0 / 0
07.08.2014, 13:26
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714879
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
irina_irina_irina,

ну так а если задать sr как long и написать типа:
Код: vbnet
1.
sr = Thisworkbook.Worksheets("Материалы").Cells(Rows.Count, 2).End(xlUp).Row


Что пишет?
...
Рейтинг: 0 / 0
07.08.2014, 13:41
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714881
irina_irina_irina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irina_irina_irina
Гость
Maxim12345678irina_irina_irina,

ну так а если задать sr как long и написать типа:
Код: vbnet
1.
sr = Thisworkbook.Worksheets("Материалы").Cells(Rows.Count, 2).End(xlUp).Row


Что пишет?
То же самое пишет
...
Рейтинг: 0 / 0
07.08.2014, 13:43
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714885
irina_irina_irina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irina_irina_irina
Гость
Shocker.ProДля Rows-то тоже надо указать путь к нему Как прописать путь для Rows?
...
Рейтинг: 0 / 0
07.08.2014, 13:44
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714888
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Смотря что вы под ним подразумеваете. Это же вы написали в своем коде Rows - на него и ругается.
Вероятно objExBook1.Worksheets("Материалы")


Maxim12345678, какой еще Thisworkbook в аксессе, не путайте человека, он и так запутался
...
Рейтинг: 0 / 0
07.08.2014, 13:46
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714889
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
irina_irina_irina,
наверное как-то так:
Код: vbnet
1.
Cells(Worksheets("Материалы").Rows.Count, 2)
...
Рейтинг: 0 / 0
07.08.2014, 13:46
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714890
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
Shocker.Pro,

да. уже понял, что писал для Excel.
...
Рейтинг: 0 / 0
07.08.2014, 13:47
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714905
irina_irina_irina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irina_irina_irina
Гость
Добавляю путь для Rows, ошибка не пропадает
...
Рейтинг: 0 / 0
07.08.2014, 13:58
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714908
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
тогда начните отсюда
...
Рейтинг: 0 / 0
07.08.2014, 14:01
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714910
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
кстати, константа xlDown определена?

(правда должна быть тогда другая ошибка, не object required)
...
Рейтинг: 0 / 0
07.08.2014, 14:02
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714916
irina_irina_irina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irina_irina_irina
Гость
Shocker.Proтогда начните отсюда у меня включена эта галочка
...
Рейтинг: 0 / 0
07.08.2014, 14:08
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38714931
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну тогда проверьте строку по частям в момент ошибки. Какой-то из объектов, видимо, null
...
Рейтинг: 0 / 0
07.08.2014, 14:16
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38715025
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Вообще изначальная ошибка здесь:
Set
Вам на неё уже указывали.
Т.к. это оператор присвоения значения объекту - то он не может быть использован в данном контексте.
Второе: Rows.Count - возвращает последнюю ячейку листа. КУДА Вы там еще ниже собрались перемещаться? Правильно не xlDows, а xlUp.
Ирина, попробуйте совместить все советы, прозвучавшие здесь. Тогда у Вас должно выбить на последней строке в ошибку :-)
...
Рейтинг: 0 / 0
07.08.2014, 15:31
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38715027
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ну и код напоследок:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim objExBook1 As Object 'в коде не видел, но явно где-то присваивается значение...
Dim Ycheika As Object
Dim sr As Object
Dim st As Object

With objExBook1.Worksheets("Материалы")
    Set st = .Columns(1) 'здесь по хорошему нужна лишь одна ячейка, иначе как потом в Range воткнуть?
    'т.е. правильно было бы так
    Set st = .Cells(1, 1)
    Set sr = .Cells(.Rows.Count, 2).End(-4162).Offset(1)
    Set Ycheika = objExBook1.Worksheets("Материалы").Range(sr, st)
End With
...
Рейтинг: 0 / 0
07.08.2014, 15:33
| Ответить | Цитировать | Написать  
Access, найти последнюю заполненную строку в Excel
    #38715076
irina_irina_irina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irina_irina_irina
Гость
The_Prist, спасибо) так работает
...
Рейтинг: 0 / 0
07.08.2014, 16:02
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Access, найти последнюю заполненную строку в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38714890&tid=2173897]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 22ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 12ms
total:  110ms
созд. / загр.: 110ms
x
x
Закрыть


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