Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
присвоение значений из активной книги, ошибка Application-defined or object-defined error
 
#1
31.07.2013 00:09:46
Привет ребят. Что-то я не пойму, пытаюсь присвоить диапазон значений из активной книги в неактивную. Такой код работает:
Код
Workbooks("на проверку.xlsx").Sheets("реестр").Range("B4:D6") = Range(Cells(2, 11), Cells(4, 13)).Value

но такой код выдает ошибку "Application-defined or object-defined error":
Код
Workbooks("на проверку.xlsx").Sheets("реестр").Range(Cells(4, 2), Cells(6, 4)) = Range(Cells(2, 11), Cells(4, 13)).Value

Мне нужен второй вариант, чтобы вместо констант подставлять переменные. Почему он не работает?
Изменено: VISXAN - 31.07.2013 00:19:31
 
 
 
#2
31.07.2013 00:29:21
Потому что cells берутся все с одного листа, а Range c разных.
Обычная ошибка...
 
 
 
#3
31.07.2013 00:30:40
Попробуйте так:
Код
    With Workbooks("на проверку.xlsx").Sheets("реестр")
        Range(.Cells(4, 2), .Cells(6, 4)) = Range(Cells(2, 11), Cells(4, 13)).Value
    End With
 
 
 
#4
31.07.2013 00:44:24
Hugo, спасибо - работает
 
 
 
#5
20.04.2016 15:13:37
Hugo, Подскажите где об этом прочитать.
Все что нашел в интернете по поводу range(cells()) про это свойство умалчивают.
Это заговор?
Такой кусок тоже не работает. Копирование в пределах одного листа. Если заменить cells на "a6:J7", то все работает.
Что не так?
Код
  With Sheets(datetime)
     Range(Cells(6, 1), Cells(7, 10)).Copy Worksheets(datetime).Range(Cells(7, 1))
  End With
Изменено: ncux199rus - 20.04.2016 15:23:09
 
 
 
#6
20.04.2016 15:29:24
Цитата
ncux199rus написал: Это заговор?
- похоже на то...
Цитата
ncux199rus написал: Что не так?
- точек нет. Смотрите внимательнее на пример, ну или почитайте как применяется with.
Достаточно
Код
With Sheets(datetime)
     Range(.Cells(6, 1), .Cells(7, 10)).Copy .Cells(7, 1)
  End With

Ну и может быть нужна точка перед Range - смотря где код. Наверное...
Изменено: Hugo - 20.04.2016 15:31:55
 
 
 
#7
20.04.2016 15:30:58
Цитата
ncux199rus написал: Что не так?
конструкция With Sheets(datetime) используется для того чтобы не писать
Код
 
 Sheets(datetime).Range(Sheets(datetime).Cells(6, 1), Sheets(datetime).Cells(7, 10)).Copy
Cells(6, 1) без явного указания листа подразумевает обращение к ячейке активного листа.
Цитата
в интернете по поводу range(cells()) про это свойство умалчивают.
поищите использование With vba.
 
 
 
#8
20.04.2016 15:56:31
Dima S, Hugo,Спасибо.
Заработало. Перед range нужна точка.
С with примерно понятно, но все равно точки пришлось научным методом подбирать.
Код
With Sheets(datetime)
        .Range(.Cells(6, 1), .Cells(7, 10)).Copy .Cells(7, 1)
End With

Спасибо.
 
 
 
#9
20.04.2016 16:07:46
Цитата
ncux199rus написал: научным методом
научным - это взять и справку почитать, а так - метод тыка)
 
 
 
#10
20.04.2016 16:08:36
Я думаю что точка перед Range нужна если код в модуле другого листа, а если в стандартном модуле - то нужны точки только перед Cells. Но проверять некогда.
В остальном с with никаких заморочек нет.
 
 
 
Страницы: 1
Наверх