ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование из 1 книги в другую
9 сообщений из 9, страница 1 из 1
копирование из 1 книги в другую
    #37616328
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
Помогите, пожалуйста, найти ошибку в этом коде, запинается на строке Range("B34").Select.

Private Sub CommandButton2_Click()
Windows("new.txt").Activate
Set wsTo1 = ActiveSheet
With wsTo1
.Range("C113:d114").Select
Selection.Copy

Windows("adm.xls").Activate
Sheets("st_2").Select
Range("B34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

End Sub
...
Рейтинг: 0 / 0
16.01.2012, 15:00
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616342
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: roma126
> Помогите, пожалуйста, найти ошибку в этом коде, запинается на строке Range("B34").Select.

Пропиши полный путь к своему Range, типа так:
Код: vbnet
1.
Application.Workbooks("adm.xls").Sheets("st_2").Range("B34").Select


Ну и With можно убрать и обращатся по полным путям, или объяви переменные типа листа присвой им нужные листы и оперируй
ими


Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
16.01.2012, 15:08
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616357
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub CommandButton2_Click()

Application.Workbooks("new.txt").Sheets("st_2").Range("C113:d114").Copy
Application.Workbooks("adm.xls").Sheets("st_2").Range("B34").PasteSpecial Paste:=xlPasteValues, 

End Sub

попробуй что-то в этом роде
при необходимости допили напильником
...
Рейтинг: 0 / 0
16.01.2012, 15:13
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616368
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
Игорь Горбонос,

Application.Workbooks("adm.xls").Sheets("st_2").Range("B34").Select - здесь пишет ошибку метод select из класса range завершен неверно, не понятно почему не открывает лист st_2, уже мозга дымит моя!
...
Рейтинг: 0 / 0
16.01.2012, 15:16
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616380
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
Shocker.Pro,

пишет subscript out of range
...
Рейтинг: 0 / 0
16.01.2012, 15:18
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616403
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
roma126Shocker.Pro,

пишет subscript out of rangeбез расширений надо... "new" и "adm" соответственно... я же говорю - напильником надо допилить
...
Рейтинг: 0 / 0
16.01.2012, 15:27
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616410
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proroma126Shocker.Pro,

пишет subscript out of rangeбез расширений надо... "new" и "adm" соответственно... я же говорю - напильником надо допилитьне, для текстового файла расширение надо оставить:"new.txt" и "adm"
...
Рейтинг: 0 / 0
16.01.2012, 15:29
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616416
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а еще лист неправильно, в обшщем так в конечном итоге:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub CommandButton2_Click()

Application.Workbooks("new.txt").Sheets(1).Range("C113:d114").Copy
Application.Workbooks("adm").Sheets("st_2").Range("B34").PasteSpecial Paste:=xlPasteValues, _
   Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub
...
Рейтинг: 0 / 0
16.01.2012, 15:31
| Ответить | Цитировать | Написать  
копирование из 1 книги в другую
    #37616957
roma126
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
roma126
Участник
Shocker.Pro,
вот все получилось, огромное спасибо!
...
Рейтинг: 0 / 0
16.01.2012, 19:07
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование из 1 книги в другую
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=111&tid=2176113]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 269ms
total:  401ms
созд. / загр.: 401ms
x
x
Закрыть


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