• olik
  • Восстановленный участник
  • На форуме с 9 января 2004г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Ошибка VBA, которая вешает Excel

Пожалуйста, помогите!
При записи макроса для копирования столбцов с одного листа на другой VBA выдал код:
    Sheets("прайс-лист").Select
    Columns("A:C").Select
    Selection.Copy
    Sheets("Суммарная отгрузка").Select
    Columns("A:C").Select
    ActiveSheet.Paste
    Range("A1").Select
При его запуске, как части реализуемой программы возникает ошибка
Run time error ?-2147417848 (80010108)?:
Method ?Paste? of object ?_Worksheet? failed
После нажатия Debug выделяется строка
   ActiveSheet.Paste
При повторном запуске программа не срабатывает совсем или выполняет вставку текста в "A1" и подвисает вместе с Excel.
Как с этим бороться?
Причем аналогичные процедуры раньше работали без проблем, но потом появилось сообщение об ошибке в  Excel и начались сбои. На других компьютерах такая же петрушка ? все работает, запускаю свою программу - ошибка в  Excel и уже ничего кроме перезагрузки не помогает.

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Ошибка VBA, которая вешает Excel

Попробуйте так

Sheets("Суммарная отгрузка").Activate
With  Sheets("Суммарная отгрузка")
        .Range("A1").Select
        .Paste
End With

Но вообще-то Вы не туда забрели.