Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.01.2011, 14:51   #1
maragva
Пользователь
 
Регистрация: 12.04.2010
Сообщений: 14
По умолчанию Данные из закрытой книги. Подправить макрос

Две книги - одна с расчетами, другая с прайсом. В, общем, как обычно.

Код:
Sub PriceIn()
With Application
     .ScreenUpdating = False
     With .Workbooks.Open(Filename:="C:\Price.xlsm")
     End With
     Windows("Price.xlsm").Visible = False  'делаем Price невидимым
     Windows("Расчет.xlsm").Activate
     .ScreenUpdating = True
End With
End Sub

Sub PriceOut()
With Application
   .ScreenUpdating = False
   .DisplayAlerts = False
   Windows("Price.xlsm").Close False  'делаем Price видимым и закрываем
   .DisplayAlerts = True
   .ScreenUpdating = True
End With
End Sub
Фишка в том, что расчеты сохраняются под другим именем и теряется связь с прайсом. А мне необходимо, чтобы и эти файлы могли брать данные из прайса, скорее всего, кнопкой. Как можно подправить этот код?

Последний раз редактировалось maragva; 30.01.2011 в 15:03. Причина: некорректно сформулировано
maragva вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
копирование данных из закрытой книги в открытую mars56 Microsoft Office Excel 5 17.02.2010 11:29
Выпадающий список с данными из другой (закрытой) книги metnek Microsoft Office Excel 9 30.01.2010 19:45
СУММЕСЛИ из закрытой книги Sha Microsoft Office Excel 1 16.12.2009 17:09
Копирование из закрытой книги Maxx Microsoft Office Excel 11 11.08.2009 10:39
макрос который будет копировать столбец А из закрытой книги Данные, и вставлять в книгу Сток в столбец B Utirka66 Microsoft Office Excel 8 06.07.2009 09:53