Закрытие книг из определенной папки при открытии книги

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрытие книг из определенной папки при открытии книги (Макросы/Sub)

skyfors

Дата: Четверг, 16.03.2017, 18:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте, помогите, пожалуйста, создать макрос, который бы закрывал все открытые книги, если они открыты, когда я открываю определённый файл.
Например, у меня есть файл "общий", когда я его открываю все книги из папки C:\papka\ должны автоматически закрыться.
Есть какие-то потуги, но не работает:

[vba]

Код

Dim ar$, arr$, arrr$

ar = "C:\papka\"
arr = Dir(ar)
arrr = ActiveWorkbook.Name
Do While arr <> ""
Windows(arr).Close
Loop

[/vba]

Ответить

Perfect2You

Дата: Четверг, 16.03.2017, 18:52 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 237

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

Попробуйте так:
[vba]

Код

For Each wb In Application.Workbooks
If wb.Path = "C:\papka" Then wb.Close
Next wb

[/vba]
При этом wb.Close False без сохранения, wb.Close.True - с сохранением, а без параметров - спрашивать для каждого будет

Ответить

bmv98rus

Дата: Четверг, 16.03.2017, 18:59 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4111

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Немного уточните. закрыть все открыты только из этой папки или включая подпапrи? Закрыть без сохранения?
Но примерно так. в модуль книги "определенного файла"
[vba]

Код

Private Sub Workbook_Open()
    strPath = "C:\papka"
    For Each Mybook In Workbooks
       If Mybook.Path = strPath Then Mybook.Close
    Next
End Sub

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Четверг, 16.03.2017, 19:24

Ответить

skyfors

Дата: Пятница, 17.03.2017, 03:42 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Только из этой папки, в ней нет подпапок, только файлы excel.
Добавил false, после close, файлы закрываются без сохранения.
Спасибо огромное всем, оба варианта работают.

Ответить

Страница 1 из 1
1