Открыть книгу если закрыта и активировать если открыта

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

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

Открыть книгу если закрыта и активировать если открыта (Макросы/Sub)

dmtgrs

Дата: Понедельник, 15.02.2021, 12:39 | Сообщение № 1

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

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

Сообщений: 30

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

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

Excel 2016

Добрый день.
Есть главный файл Exсel (основной) и много файлов Excel (второстепенные) которые лежат в той же папке. Как сделать так, чтобы макрос в главном файле проверял отрыт ли второстепенный файл, если открыт, то просто активировать его, а если закрыт то открыть.

Ответить

Nic70y

Дата: Понедельник, 15.02.2021, 13:02 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

[vba]

Код

    On Error Resume Next
    Windows("Êíèãà1.xls").Activate
    Workbooks.Open Filename:="D:\Êíèãà1.xls"

[/vba]

ЮMoney 41001841029809

Ответить

Апострофф

Дата: Понедельник, 15.02.2021, 13:13 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 458

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

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

Excel 1997

Цитата Nic70y, 15.02.2021 в 13:02, в сообщении № 2 ()

[vba]

Код

    On Error Resume Next
    Windows("Êíèãà1.xls").Activate
    Workbooks.Open Filename:="D:\Êíèãà1.xls"

[/vba]

Может так?
[vba]

Код

    On Error Resume Next
    Windows("Êíèãà1.xls").Activate
    IF ERR THEN Workbooks.Open Filename:="D:\Êíèãà1.xls"

[/vba]
Чтоб окно о повторном открытии не выскочило.

Ответить

Nic70y

Дата: Понедельник, 15.02.2021, 13:48 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

Цитата Апострофф, 15.02.2021 в 13:13, в сообщении № 3 ()

не выскочило

у меня не выскакивает

ЮMoney 41001841029809

Ответить

dmtgrs

Дата: Понедельник, 15.02.2021, 16:29 | Сообщение № 5

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

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

Сообщений: 30

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

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

Excel 2016

Огромное всем спасисбо! Работает!

Ответить

RAN

Дата: Понедельник, 15.02.2021, 17:05 | Сообщение № 6

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Nic70y, 15.02.2021 в 13:48, в сообщении № 4 ()

у меня не выскакивает

Но и заскакивает не открытая книга, а ее сохраненный экземпляр.

Быть или не быть, вот в чем загвоздка!

Ответить

Nic70y

Дата: Понедельник, 15.02.2021, 19:35 | Сообщение № 7

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

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

Где это написано?

ЮMoney 41001841029809

Ответить

RAN

Дата: Понедельник, 15.02.2021, 19:45 | Сообщение № 8

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Nic70y, 15.02.2021 в 19:35, в сообщении № 7 (

)

Workbooks.Open Filename:="D:\Êíèãà1.xls"

книга открывается не зависимо от того, открыта она, или нет, а вот тут

Цитата Апострофф, 15.02.2021 в 13:13, в сообщении № 3 ()

IF ERR THEN Workbooks.Open Filename:="D:\Êíèãà1.xls"

только при наличии ошибки (книга закрыта)

И попутно
в отличие от
[vba]

Код

Workbooks("Êíèãà1.xls").Activate

[/vba]
[vba]

Код

Windows("Êíèãà1.xls").Activate

[/vba]
выдаст ошибку, если книга открыта более, чем в одном окне. (Вид >> Новое окно)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 15.02.2021, 19:54

Ответить

probkinfeda

Дата: Среда, 17.02.2021, 07:34 | Сообщение № 9

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

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

Сообщений: 25

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

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

Мне кажется что лучше будет так и никаких ошибок
[vba]

Код

Sub fdsg()
Dim XX As Workbook, ImaKnigi$
ImaKnigi$ = "Kniga1.xls"
For Each XX In Workbooks
If XX.Name = ImaKnigi Then XX.Activate: Exit Sub
Next XX
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & ImaKnigi
End Sub

[/vba]

Ответить

китин

Дата: Среда, 17.02.2021, 08:29 | Сообщение № 10

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

probkinfeda, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

dmtgrs

Дата: Четверг, 18.02.2021, 10:43 | Сообщение № 11

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

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

Сообщений: 30

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

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

Excel 2016

Цитата Апострофф, 15.02.2021 в 13:13, в сообщении № 3 ()

Может так?

[vba]

Код

On Error Resume Next
Windows("Êíèãà1.xls").Activate
IF ERR THEN Workbooks.Open Filename:="D:\Êíèãà1.xls"

[/vba]

Чтоб окно о повторном открытии не выскочило.

Макрос прекрасно работает! Огромное спасибо! В 2019 офисе все работает как часы! Но вот в 2010 офисе если открыть основной файл, из него открыть с помощью макроса второстепенный файл, во второстепенном файле внести какие то изменения, но еще не сохранить, то при работе макроса excel начинает ругаться, что второстепенный файл уже открыт и предупреждает, что если нажать "ОК" все несохранившиеся изменения потеряются. 2019 офис просто активирует второстепенный файл, тк он уже открыт, а 2010 офис посему то не активирует его, а пытается открыть заново

Ответить

Открыть книгу если закрыта и активировать если открыта (Макросы/Sub)

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