Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Не работает метод Select при копировании и вставке значений

Автор vladturbo, 23.01.2011, 16:14

« назад - далее »

vladturbo

Доброго времени суток!
Не могу понять, почему возникает ошибка при копировании и вставке значений в другую книгу.
Код такой:

Private Sub CommandButton1_Click()
Range("G23").Select
Selection.Copy
ChDir "C:\Дир1"
Workbooks.Open Filename:="C:\Дир1\Книга1.xls"
Windows("Книга1.xls").Activate
Range("G18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

kuklp

#1
Зачем эти селекты вообще нужны?:
Private Sub CommandButton1_Click()
   [G23].Copy
   Workbooks.Open Filename:="C:\Дир1\Книга1.xls"
   Workbooks("Книга1.xls").Sheets(1).[G18].PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
   '    Workbooks("Книга1.xls").Close True
End Sub

Или еще короче:
Private Sub CommandButton1_Click()
    Workbooks.Open Filename:="C:\Дир1\Книга1.xls"
    Workbooks("Книга1.xls").Sheets(1).[G18].Value = ThisWorkbook.Worksheets(1).[G23].Value
'    Workbooks("Книга1.xls").Close True
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771