Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование из 1 книги в другую / 9 сообщений из 9, страница 1 из 1
16.01.2012, 15:00
    #37616328
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование из 1 книги в другую
Помогите, пожалуйста, найти ошибку в этом коде, запинается на строке 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:08
    #37616342
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование из 1 книги в другую
> Автор: 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:13
    #37616357
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование из 1 книги в другую
Код: 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:16
    #37616368
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование из 1 книги в другую
Игорь Горбонос,

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

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

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

пишет subscript out of rangeбез расширений надо... "new" и "adm" соответственно... я же говорю - напильником надо допилитьне, для текстового файла расширение надо оставить:"new.txt" и "adm"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2012, 15:31
    #37616416
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование из 1 книги в другую
а еще лист неправильно, в обшщем так в конечном итоге:
Код: 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, 19:07
    #37616957
roma126
roma126
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование из 1 книги в другую
Shocker.Pro,
вот все получилось, огромное спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование из 1 книги в другую / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 430ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176113]:
 0ms
get settings:
 5ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 145ms
get topic data:
 7ms
get forum data:
 1ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 221ms
total:  430ms
x
x
Закрыть


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