Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Не удается скопировать ячейки Добавлено: 25.05.04 11:44  

Автор вопроса:  bojo | ICQ: 167189600 

Не удается скопировать данные из одного листа в другой. Код примерно такой: где ws и wsThis есть Worksheet:

    ws.Activate
    ws.Range(ws.Cells(2, 1), ws.Cells(maxCount, 12)).Select
    Selection.Copy


    wsThis.Activate
    wsThis.Cells(2, 10).Select
    wsThis.Paste

В результате получаю ошибку: Метод Paste из класса Worksheet завершен неверно. Помогите, пожалста. Может нужно как то по другому это делать?

 

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 OAN



Вопросов: 2
Ответов: 17
 Профиль | | #1 Добавлено: 25.05.04 19:50
Я с помощью записи макросов (меню Экселя "Сервис-Макрос-Начать запись";) получил такой вариант, попробуй подобное:

Sub Macro3()
    Range("G5:H9";).Select
    Selection.Copy
    Windows("Книга2";).Activate
    Sheets("Лист2";).Select
    Range("B4";).Select
    ActiveSheet.Paste
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 bojo



ICQ: 167189600 

Вопросов: 1
Ответов: 1
 Профиль | | #2 Добавлено: 27.05.04 07:53
Спасибо. Уже работает. Скорее всего дело было именно в строке Windows("Книга";).Activate!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам