Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424' / 4 сообщений из 4, страница 1 из 1
30.08.2013, 18:03
    #38382741
repon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424'
при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424'

суть макроса такая - из текущей книги копировать содержание 1 листа и заменять (вставлять) в др файл.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub copy_phone()

Set wb1 = Workbooks.Open("\\ххх\ххх.xls")
Set wb2 = ActiveWorkbook

wb2.Sheets("xxx1").Range("a1:e200").Copy wb1.Sheets("xxx2").Range("a1:e200")

wb2.Close True
wb1.Close True
 
End Sub
...
Рейтинг: 0 / 0
30.08.2013, 18:11
    #38382755
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424'
repon,

а нету там листа "xxx1". Потому что wb1 и wb2 - это одна и та же книга.
Поменяйте местами:
Код: vbnet
1.
2.
Set wb1 = Workbooks.Open("\\ххх\ххх.xls")
Set wb2 = ActiveWorkbook



Код: vbnet
1.
2.
Set wb2 = ActiveWorkbook
Set wb1 = Workbooks.Open("\\ххх\ххх.xls")



Сами подумайте: после открытия книги - именно она становится активной.
...
Рейтинг: 0 / 0
30.08.2013, 18:23
    #38382770
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424'
...
Рейтинг: 0 / 0
02.09.2013, 09:12
    #38383816
repon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424'
спасибо. Вы правы
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / при закрытии книги из макроса - Workbooks.Close True - ошибка - Run-time error '424' / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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