Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Pastespecial из класса Range завершен неверно / 6 сообщений из 6, страница 1 из 1
13.10.2011, 12:15
    #37480365
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Pastespecial из класса Range завершен неверно
Раньше код работал. Сейчас нет. Не понимаю ничего. Настройки безопасности макросов самые низкие, VB в списке надежных издателей.
Код для того чтобы из одного листа скопировать ячейки в другой лист.

Private Sub CommandButton1_Click()
Dim main As Workbook
Dim tmp As Workbook

Set main = Application.ActiveWorkbook
main.ActiveSheet.Range("A2:A3").Select
Selection.Copy
Application.Workbooks.Add
Set tmp = Application.ActiveWorkbook
Selection.PasteSpecial Paste:=xlPasteValues ' вот тут вылезает ошибка
'из заголовка темы и ниче дальше не работает
ActiveSheet.Paste
ActiveWindow.Zoom = 70
NM = ActiveSheet.Cells(8, 2)
ActiveSheet.Name = NM
Application.CutCopyMode = False
FN = "P:\" & NM & ".xls"
ActiveWorkbook.SaveAs Filename:=FN, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 12:24
    #37480403
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Pastespecial из класса Range завершен неверно
Случайная гостья,

Попробуй применять метод не к Selection, а к конкретному Range
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 12:26
    #37480417
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Pastespecial из класса Range завершен неверно
А когда сейчас НЕ работает это в чем выражается? Если ошибка, то где текст?

 
Код: plaintext
1.
2.
3.
4.
5.
6.
Set tmp = Application.ActiveWorkbook
'Selection.PasteSpecial Paste:=xlPasteValues ' А вот это не понятно, куда хотите вставить значения. Толи в старую книгу, 
толи уже в новую
' Предлагаю заметнить так, если вставлять нужно в новую книгу:
Dim sh as WorkSheet
Set sh = tmp.Sheets( 1 )
sh.cells( 1 , 1 ).PasteSpecial Paste:=xlPasteValues


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 12:51
    #37480497
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Pastespecial из класса Range завершен неверно
Все!!!! Заработало!!! Переделала так - сначала создаем новый файл, потом идем в предыдущий файл, копируем, потом идем в новый файл и делаем вставку. Почему раньше прежний текст работал не понимаю)))

2 Игорь Горбонос : А текст ошибки был в заголовке темы. И у тех, кто с такой ошибкой сталкивался, ошибок это в принципе не вызвало....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 12:52
    #37480500
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Pastespecial из класса Range завершен неверно
Случайная гостьяошибок это в принципе не вызвало....

*вопросов это в принципе не вызвало....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 16:33
    #37481141
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Pastespecial из класса Range завершен неверно
Случайная гостья, попробуйте так(код в модуль листа, где кнопка):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub CommandButton1_Click()
    me.Range("A2:A3").Copy
    With Workbooks.Add
        .Sheets( 1 ).[a1].PasteSpecial Paste:=xlPasteValues
        ActiveWindow.Zoom =  70 
        .ActiveSheet.Name = me.Cells( 8 ,  2 )
        .SaveAs Filename:="g:\" & me.Cells( 8 ,  2 ) _
        & ".xls", FileFormat:=xlNormal
        .Close
    End With
    Application.CutCopyMode = False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Pastespecial из класса Range завершен неверно / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2176395]:
 0ms
get settings:
 5ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 150ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 229ms
total:  452ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]