Добрый день. Есть главный файл Exсel (основной) и много файлов Excel (второстепенные) которые лежат в той же папке. Как сделать так, чтобы макрос в главном файле проверял отрыт ли второстепенный файл, если открыт, то просто активировать его, а если закрыт то открыть.
Добрый день. Есть главный файл Exсel (основной) и много файлов Excel (второстепенные) которые лежат в той же папке. Как сделать так, чтобы макрос в главном файле проверял отрыт ли второстепенный файл, если открыт, то просто активировать его, а если закрыт то открыть.dmtgrs
Мне кажется что лучше будет так и никаких ошибок [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]
Мне кажется что лучше будет так и никаких ошибок [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
On Error Resume Next Windows("Êíèãà1.xls").Activate IF ERR THEN Workbooks.Open Filename:="D:\Êíèãà1.xls"
[/vba]
Чтоб окно о повторном открытии не выскочило.
Макрос прекрасно работает! Огромное спасибо! В 2019 офисе все работает как часы! Но вот в 2010 офисе если открыть основной файл, из него открыть с помощью макроса второстепенный файл, во второстепенном файле внести какие то изменения, но еще не сохранить, то при работе макроса excel начинает ругаться, что второстепенный файл уже открыт и предупреждает, что если нажать "ОК" все несохранившиеся изменения потеряются. 2019 офис просто активирует второстепенный файл, тк он уже открыт, а 2010 офис посему то не активирует его, а пытается открыть заново
On Error Resume Next Windows("Êíèãà1.xls").Activate IF ERR THEN Workbooks.Open Filename:="D:\Êíèãà1.xls"
[/vba]
Чтоб окно о повторном открытии не выскочило.
Макрос прекрасно работает! Огромное спасибо! В 2019 офисе все работает как часы! Но вот в 2010 офисе если открыть основной файл, из него открыть с помощью макроса второстепенный файл, во второстепенном файле внести какие то изменения, но еще не сохранить, то при работе макроса excel начинает ругаться, что второстепенный файл уже открыт и предупреждает, что если нажать "ОК" все несохранившиеся изменения потеряются. 2019 офис просто активирует второстепенный файл, тк он уже открыт, а 2010 офис посему то не активирует его, а пытается открыть зановоdmtgrs