ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Pastespecial из класса Range завершен неверно
6 сообщений из 6, страница 1 из 1
Метод Pastespecial из класса Range завершен неверно
    #37480365
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Раньше код работал. Сейчас нет. Не понимаю ничего. Настройки безопасности макросов самые низкие, 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:15
| Ответить | Цитировать | Написать  
Метод Pastespecial из класса Range завершен неверно
    #37480403
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Случайная гостья,

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

 
Код: 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:26
| Ответить | Цитировать | Написать  
Метод Pastespecial из класса Range завершен неверно
    #37480497
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Все!!!! Заработало!!! Переделала так - сначала создаем новый файл, потом идем в предыдущий файл, копируем, потом идем в новый файл и делаем вставку. Почему раньше прежний текст работал не понимаю)))

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

*вопросов это в принципе не вызвало....
...
Рейтинг: 0 / 0
13.10.2011, 12:52
| Ответить | Цитировать | Написать  
Метод Pastespecial из класса Range завершен неверно
    #37481141
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Случайная гостья, попробуйте так(код в модуль листа, где кнопка):
Код: 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
13.10.2011, 16:33
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Pastespecial из класса Range завершен неверно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2176395]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 168ms
get topic data:
 6ms
get first new msg:
 4ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 240ms
total:  476ms
созд. / загр.: 476ms
x
x
Закрыть


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