метод paste завершен неверно...

[necro]

Доброго времени суток уважаемые.
Проблема такая, есть макрос (excel 2003) который достает данные из нескольких dbf файлов, затем производиться выборка нужных значений, и далее их копирование на разные листы, все вплоть до копирования работает нормально, но как только доходит до вставки отобранных данных вылетает ошибка "Метод Paste из класса Worksheet завершен неверно", если нажать на отмену, то вставка все таки происходит, но как завершить этот Paste из класса Worksheet?

вот кусок кода где собственно и описано копирование и вставка:

Код: Выделить всё

Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="01.06.2005"
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Rows("1:1500").Select
    Selection.Copy
    Sheets("Лист2").Select
    ActiveSheet.Paste

[Snussi]

Попробуй перед ActiveSheet.Paste (Кстати, почему так,а не Sheets("Лист2").Paste) сделать Sheets("Лист2").Cells(1,1).Select

[necro]

Кстати, почему так,а не Sheets("Лист2").Paste

...так сначала и делал, но вылазила та же ошибка.
Попробовал, поставить

Код: Выделить всё

Sheets("Лист2").Cells(1,1).Select

не помогло, все равно вылетает та же ошибка

[necro]

Попробовал этот же макрос в excel2000, все работает, никаких ошибок не вылетает, просто поставлю на нужной машине office2000, тему можно считать закрытой.
P.S.: спасибо Snussi, за совет.

[Annushka]

Попробовал этот же макрос в excel2000, все работает, никаких ошибок не вылетает, просто поставлю на нужной машине office2000, тему можно считать закрытой.

К сожалению, это не решение.
У меня та же проблема, но наоборот. В Excel 2003 работает, а в 2002 - нет. Та же ошибка метода Paste.

[Annushka]

Нашла.
Оказалось, что не так воспринимается форматирование ячеек. Если применять специальную вставку - только значения, то все работает без ошибок. Т.е. вместо

Код: Выделить всё

ActiveSheet.Paste

нужно написать

Код: Выделить всё

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


И сразу вопрос. В процессе поиска я заменила аналогичный кусок

Код: Выделить всё

Rows(j & ":" & j).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Книга2.xls").Activate
Range("A" & i).Select
ActiveSheet.Paste


командой

Код: Выделить всё

ActiveSheet.Rows(j).Copy Destination:=Workbooks("Книга2.xls").Worksheets("Лист1").Rows(i)


Нет ли возможности в этом случае указать, что копировать только значения? Не могу найти подробного описания синтаксиса.

[GSerg]

ActiveSheet.Rows(j).Copy
Workbooks("Книга2.xls").Worksheets("Лист1").Rows(i).PasteSpecial Paste:=xlPasteValues

[Annushka]

И правда.
Я тормоз.
Спасибо огромное