Excel vba открыть файл если он не открыт

 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Здравствуйте.
Подскажите пожалуйста, как избавиться от ошибки. Если файл открыт, то не отрывать, если закрыт, то
Workbooks.Open FileName:=»F:ЛогистикаКнига.XLSM»

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Ёк-Мок

Пользователь

Сообщений: 1775
Регистрация: 16.01.2013

«on error resume next»?

Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.

 

Казанский

Пользователь

Сообщений: 8839
Регистрация: 11.01.2013

#3

14.04.2015 10:20:18

1 способ

Код 
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks("Книга.XLSM")
If Err Then 'книга не открыта
  Err.Clear
  Set wb = Workbooks.Open(Filename:="F:ЛогистикаКнига.XLSM")
End If
On Error GoTo 0
'...

2 способ

Код 
Set wb = GetObject("F:ЛогистикаКнига.XLSM")
wb.Windows(1).Visible = True

Если книга не открыта, она будет открыта, но в невидимом режиме, и лучше сделать ее видимой.

Изменено: Казанский — 14.04.2015 10:23:31
 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

#5

14.04.2015 11:06:36

Вроде ошибка исчезла, но теперь копирование на Лист «Шате-М» не происходит.
???

Скрытый текст

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

The_Prist

Пользователь

Сообщений: 14181
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#6

14.04.2015 11:20:22

Код 
Set Wb = GetObject("F:ЛогистикаКнига.XLSM")
Wb.Windows(1).Visible = True 
Workbooks.Open FileName:="F:ЛогистикаКнига.XLSM"

Либо Open, либо GetObject

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Спасибо большое. Заработало.
:)

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Hugo

Пользователь

Сообщений: 23249
Регистрация: 22.12.2012

Бывает GetObject() барахлит… Вдруг и неожиданно на файлах, которые (другие оттуда же) ранее открывались без проблем.
Ктоб сказал почему?
 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

Тоже с этим сталкивался. Теперь всегда делаю через Workbooks.Open
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Нет, при открытом файле «F:ЛогистикаКнига.XLSM» всё-таки не работает, при закрытом полный порядок.

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

The_Prist

Пользователь

Сообщений: 14181
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#11

14.04.2015 12:23:45

Как проверить открыта ли книга?

Берете оттуда функцию IsBookOpen. Далее:

Код 
If IsBookOpen("Книга.XLSM")Then
    Set Wb = Workbooks("Книга.XLSM")
Else
    Set Wb = Workbooks.Open FileName:="F:ЛогистикаКнига.XLSM"
EndIf

и потом уже к Wb обращаетесь. Все должно работать.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#12

14.04.2015 13:13:32

Доброе время суток
Владимир, попробуйте такой функцией определить открыт ли файл

Код 
Public Function IsFileOpen(ByVal FileName As String) As Boolean
On Error GoTo errHandle
    Dim fso As Object, pStream As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set pStream = fso.OpenTextFile(FileName, 8)
    pStream.Close
    IsFileOpen = False
Exit Function
errHandle:
    IsFileOpen = True
End Function
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

#13

14.04.2015 13:37:27

IsBookOpen всё время артачится — ошибку выдаёт, чем только не обзывал — Boolean, Srting, Workbook, Name

Код 
...
On Error Resume Next
    If IsBookOpen("Книга.xlsm") Then
        Set Wb = Workbooks("Книга.xlsm")
    Else
        Workbooks.Open FileName:="F:ЛогистикаКнига.xlsm"""
    End If
Set Wb = GetObject("F:ЛогистикаКнига.xlsm")
Wb.Windows(1).Visible = True
....

Изменено: Владимир — 14.04.2015 13:38:20

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#14

14.04.2015 13:49:00

Владимир, немного не так

Код 
Public Sub Test()
    'если файл не открыт, то открыть его
    If Not IsFileOpen("F:ЛогистикаКнига.xlsm") Then
        Workbooks.Open FileName:="F:ЛогистикаКнига.xlsm"
        'иначе, по условию #1, ничего не делаем (не открываем)
    End If
End Sub
 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

Никак не пойму, зачем в данном случае огород с IsFileOpen?
В #3 вполне рабочий код, и без всяких выкрутасов.
Только не надо было его кастрировать, и применять оба способа одновременно.
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Андрей, теперь на IsFileOpen ругается. Да как же их объявить?

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#17

14.04.2015 14:00:17

RAN, А если файл открыт в другом экземпляре Excel?
Владимир, а как ругается? Для страховки код полностью

Код 
Public Function IsFileOpen(ByVal FileName As String) As Boolean
On Error GoTo errHandle
    Dim fso As Object, pStream As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set pStream = fso.OpenTextFile(FileName, 8)
    pStream.Close
    IsFileOpen = False
Exit Function
errHandle:
    IsFileOpen = True
End Function

Public Sub Test()
    'если файл не открыт, то открыть его
    If Not IsFileOpen("c:IntelxlIns.xlsb") Then
        Workbooks.Open FileName:="c:IntelxlIns.xlsb"
        'иначе по условию #1 ничего не делаем (не открываем)
    End If
End Sub

с моими проверочными данными
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Открываю с web_a  исходный файл, параллельно открыт файл «Книга.xlsm» куда копируются данные. Запускаю макрос и происходит выделение «IsFileOpen»..

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#19

14.04.2015 14:20:02

Цитата
Андрей VG написал: RAN, А если файл открыт в другом экземпляре Excel?

А если на другом компьютере? :D
Тогда без огорода никак.
Конкретизировать надо, однако.
 

Hugo

Пользователь

Сообщений: 23249
Регистрация: 22.12.2012

Ещё вариант — перебрать все открытые книги и у каждой проверить полный путь (совпадает ли с нужным) — так не спутаете книги, если у них одинаковые названия, но лежат в разных папках (и открыта например ненужная).
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Да это в примере он называется просто Книга, а в реальности — Что пора заказать. Этот файл у меня постоянно открыт, т.к. он является основным рабочим. Поэтому его специально закрывать, чтоб скопировать туда данные будет очень неудобно.

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Hugo

Пользователь

Сообщений: 23249
Регистрация: 22.12.2012

Вообще-то у меня нет никакой ошибки в первоначальном коде (и ранее помню не было ошибок). Проверьте путь.
 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#23

14.04.2015 14:46:33

Цитата
Владимир написал: Этот файл у меня постоянно открыт, т.к. он является основным рабочим.

Код из #3 как раз именно для этого случая.
 

Hugo

Пользователь

Сообщений: 23249
Регистрация: 22.12.2012

Да, там не ошибка выскакивает, а предупреждение, что если есть несохранённые изменения, то они будут потеряны при переоткрытии файла. Если же его только смотрели (или сохранились) — то всё происходит молча.
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

А там на строке With Sheets(«Шате-М») спотыкается.

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Hugo

Пользователь

Сообщений: 23249
Регистрация: 22.12.2012

Где там? :)
 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#27

14.04.2015 15:00:09

Код 
With Wb.Sheets("Шате-М")

или

Код 
With oWb.Sheets("Шате-М"

)
В зависимости от того, в какой книге нужный лист.
 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

Андрей, точно. Вот где собакин порылся. Приставку забыл.
Вот я балбес..:D

Спасибо. Теперь с открытой книгой тоже работает.
Ребята, всем спасибо.

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

 

Владимир

Пользователь

Сообщений: 8196
Регистрация: 21.12.2012

#29

19.02.2016 11:49:11

Алексей, спасибо.
..давеча твой метод освоил.

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

Источник

Открыта или закрыта книга Excel? Проверяем с помощью кода VBA по краткому или полному имени файла, используя объектную переменную, цикл или оператор Open.

Проверка по краткому имени

Способ проверки по краткому имени, открыта ли рабочая книга, позволяет определить состояние проверяемой книги в том же экземпляре приложения Excel, в котором открыта книга с проверяющим кодом.

Использование объектной переменной

Вариант пользовательской функция VBA Excel, предназначенной для проверки, открыта или закрыта рабочая книга, путем определения результата присвоения ссылки на нее объектной переменной. Присвоение состоялось (BookOpenClosed = True) – книга открыта, произошла ошибка и присвоение не состоялось (BookOpenClosed = False) – книга закрыта.

Function BookOpenClosed(wbName As String) As Boolean

    Dim myBook As Workbook

    On Error Resume Next

        Set myBook = Workbooks(wbName)

    BookOpenClosed = Not myBook Is Nothing

End Function

Аргумент функции:

  • wbName – краткое имя проверяемой рабочей книги.

Перебор открытых книг циклом

Этот вариант функции BookOpenClosed перебирает с помощью цикла все открытые книги Excel и проверяет их краткие имена на совпадение с кратким именем проверяемой книги. Совпадение найдено (BookOpenClosed = True) – книга открыта, совпадение не найдено (BookOpenClosed = False) – книга закрыта.

Function BookOpenClosed(wbName As String) As Boolean

    Dim myBook As Workbook

    For Each myBook In Workbooks

        If myBook.Name = wbName Then

            BookOpenClosed = True

            Exit For

        End If

    Next

End Function

В коллекцию Workbooks входят и скрытые книги, в том числе Личная книга макросов, и книга с функцией.

Проверка по полному имени

Проверка по полному имени с помощью оператора Open позволяет узнать, открыта ли рабочая книга каким-либо другим процессом: текущим экземпляром Excel, в котором открыта книга с проверяющим кодом, другим экземпляром Excel или сторонним приложением.

Function BookOpenClosed(wbFullName As String) As Boolean

    Dim ff As Integer

    ff = FreeFile

        On Error Resume Next

        Open wbFullName For Random Access Read Write Lock Read Write As #ff

        Close #ff

    BookOpenClosed = (Err.Number <> 0)

End Function

Аргумент функции:

  • wbFullName – полное имя проверяемой рабочей книги.

Эта функция открывает с помощью оператора Open файл проверяемой книги с разрешением чтения и записи (параметр access) и запретом чтения и записи, если этот файл уже открыт другим процессом (параметр lock).

Если файл уже открыт другим процессом, а указанный тип доступа (параметр access) не разрешен (параметр lock), операция открытия завершится с ошибкой, а выражение (Err.Number <> 0) возвратит значение True.

Примеры проверки состояния книги

По краткому имени

Sub Primer1()

    If BookOpenClosed(«Книга1.xlsx») Then

        MsgBox «Книга открыта»

    Else

        MsgBox «Книга закрыта»

    End If

End Sub

По полному имени

Sub Primer2()

    If BookOpenClosed(«C:Папка1Папка2Папка3Книга1.xlsx») Then

        MsgBox «Книга открыта»

    Else

        MsgBox «Книга закрыта»

    End If

End Sub
Источник
китин Дата: Среда, 17.02.2021, 08:29 | Сообщение № 10
Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

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

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

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

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

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

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

Макрос прекрасно работает! Огромное спасибо! В 2019 офисе все работает как часы! Но вот в 2010 офисе если открыть основной файл, из него открыть с помощью макроса второстепенный файл, во второстепенном файле внести какие то изменения, но еще не сохранить, то при работе макроса excel начинает ругаться, что второстепенный файл уже открыт и предупреждает, что если нажать «ОК» все несохранившиеся изменения потеряются. 2019 офис просто активирует второстепенный файл, тк он уже открыт, а 2010 офис посему то не активирует его, а пытается открыть заново Автор — dmtgrs
Дата добавления — 18.02.2021 в 10:43

Источник

Метод OpenTextFile

Открывает указанный файл и возвращает объект TextStream , который можно использовать для чтения, записи в файл или добавления к нему.

Синтаксис

object. OpenTextFile (filename, [ iomode, [ create, [ format ]]])

Синтаксис метода OpenTextFile состоит из следующих элементов.

Part Описание
object Обязательно. Всегда имя объекта FileSystemObject.
Имени файла Обязательно. Строковое выражение, определяющее файл, который будет открыт.
iomode Необязательный параметр. Указывает режим ввода-вывода. Может соответствовать одной из трех констант: ForReading, ForWriting или ForAppending.
создать Необязательный параметр. Значение типа Boolean, которое указывает, можно ли создать новый файл, если файл, указанный параметром filename, не существует. Значение True позволяет создать новый файл, а значение False — нет. По умолчанию используется значение False.
format Необязательный параметр. Одно из трех значений Tristate, используемых, чтобы указать формат открытого файла. Если отсутствует, открытый файл имеет формат ASCII.

Settings

Аргумент iomode может иметь любой из следующих параметров:

Константа Значение Описание
ForReading 1 Открытие файла только для чтения. Запись в этот файл невозможна.
ForWriting 2 Откройте файл только для записи. Используйте этот режим для замены существующего файла новыми данными. Невозможно выполнить чтение из этого файла.
ForAppending 8 Открытие файла и запись в конец файла. Невозможно выполнить чтение из этого файла.

Аргумент format может иметь одно из следующих значений.

Константа Значение Описание
TristateUseDefault –2 Открывает файл с помощью системного значения по умолчанию.
TristateTrue –1 Открывает файл в формате Юникод.
TristateFalse 0 Открывает файл в формате ASCII.

Замечания

В следующем коде показано использование метода OpenTextFile для открытия файла для добавления текста.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Метод Workbooks.Open (Excel)

Хотите создавать решения, которые расширяют возможности Office на разнообразных платформах? Ознакомьтесь с новой моделью надстроек Office. Надстройки Office занимают меньше места по сравнению с надстройками и решениями VSTO, и вы можете создавать их, используя практически любую технологию веб-программирования, например HTML5, JavaScript, CSS3 и XML.

Синтаксис

expression. Открыть (FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Разделитель, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Выражение Переменная, представляющая объект Workbooks .

Параметры

Имя Обязательный или необязательный Тип данных Описание
FileName Необязательный Variant Строка. Имя файла открываемой книги.
UpdateLinks Необязательный Variant Указывает способ обновления внешних ссылок (ссылок) в файле, например ссылки на диапазон в книге Budget.xls в следующей формуле =SUM([Budget.xls]Annual!C10:C25) . Если этот аргумент опущен, пользователю будет предложено указать, как будут обновляться ссылки. Дополнительные сведения о значениях, используемых этим параметром, см. в разделе Примечания.

Если Microsoft Excel открывает файл в формате WKS, WK1 или WK3 и аргумент UpdateLinks имеет значение 0, диаграммы не создаются; В противном случае Microsoft Excel создает диаграммы из диаграмм, присоединенных к файлу.
ReadOnly Необязательно устанавливать. Variant Значение true, чтобы открыть книгу в режиме только для чтения.
Format Необязательный Variant Если Microsoft Excel открывает текстовый файл, этот аргумент задает символ разделителя. Если этот аргумент опущен, используется текущий разделитель. Дополнительные сведения о значениях, используемых этим параметром, см. в разделе Примечания.
Password Необязательный Variant Строка, содержащая пароль, необходимый для открытия защищенной книги. Если этот аргумент опущен, а для книги требуется пароль, пользователю будет предложено ввести пароль.
WriteResPassword Необязательный Variant Строка, содержащая пароль, необходимый для записи в книгу, зарезервированную для записи. Если этот аргумент опущен, а книге требуется пароль, пользователю будет предложено ввести пароль.
IgnoreReadOnlyRecommended Необязательный Variant Значение true , чтобы Microsoft Excel не отображал рекомендуемое сообщение только для чтения (если книга была сохранена с параметром «Только для чтения рекомендуется «).
Происхождения Необязательный Variant Если файл является текстовым файлом, этот аргумент указывает, где он возник, чтобы кодовые страницы и возврат/строка каретки (CR/LF) можно было правильно сопоставить. Может быть одной из следующих констант XlPlatform : xlMacintosh, xlWindows или xlMSDOS. Если этот аргумент опущен, используется текущая операционная система.
Разделитель Необязательный Variant Если файл является текстовым файлом, а аргумент Format равен 6, этот аргумент представляет собой строку, указывающую символ, который будет использоваться в качестве разделителя. Например, используйте Chr(9) для вкладок, «,» для запятых, «;» для точки с запятой или используйте пользовательский символ. Используется только первый символ строки.
Изменяемость Необязательный Variant Если файл является надстройкой Microsoft Excel 4.0, этот аргумент имеет значение True , чтобы открыть надстройку, чтобы она была видимым окном. Если этот аргумент имеет значение False или опущен, надстройка открывается как скрытая и не может быть раскрыта. Этот параметр не применяется к надстройкам, созданным в Microsoft Excel 5.0 или более поздней версии.

Если файл является шаблоном Excel, значение True , чтобы открыть указанный шаблон для редактирования. Значение false , чтобы открыть новую книгу на основе указанного шаблона. Значение по умолчанию — False.
Уведомить Необязательный Variant Если файл не удается открыть в режиме чтения и записи, этот аргумент имеет значение True , чтобы добавить файл в список уведомлений о файлах. Microsoft Excel откроет файл как доступный только для чтения, опрашивает список уведомлений о файлах, а затем уведомляет пользователя, когда файл станет доступен. Если этот аргумент имеет значение False или опущен, уведомление не запрашивается, и любые попытки открыть недоступный файл завершатся ошибкой.
Конвертер Необязательный Variant Индекс первого преобразователя файлов, который следует попробовать при открытии файла. Сначала выполняется попытка указанного преобразователя файлов; Если этот преобразователь не распознает файл, все остальные преобразователи будут испытаны. Индекс преобразователя состоит из номеров строк преобразователей, возвращаемых свойством FileConverters .
AddToMru Необязательный Variant Значение true , чтобы добавить эту книгу в список недавно использовавшихся файлов. Значение по умолчанию — False.
Local Необязательный Variant Значение True сохраняет файлы на языке Microsoft Excel (включая параметры панели управления). Значение False (по умолчанию) сохраняет файлы на языке Visual Basic для приложений (VBA) (который обычно США английском языке, если проект VBA, из которого выполняется Workbooks.Open, не является старым проектом VBA с международной версией XL5/95).
Поврежденная загрузка Необязательный XlCorruptLoad Может быть одной из следующих констант: xlNormalLoad, xlRepairFile и xlExtractData. Поведение по умолчанию, если значение не указано, — xlNormalLoad и не пытается выполнить восстановление при инициировании с помощью OM.

Возвращаемое значение

Объект Workbook , представляющий открытую книгу.

Замечания

По умолчанию макросы включены при открытии файлов программным способом. Используйте свойство AutomationSecurity , чтобы задать режим безопасности макросов, используемый при программном открытии файлов.

Можно указать одно из следующих значений в параметре UpdateLinks , чтобы определить, обновляются ли внешние ссылки (ссылки) при открытии книги.

Значение Описание
0 Внешние ссылки (ссылки) не будут обновляться при открытии книги.
3 Внешние ссылки (ссылки) будут обновлены при открытии книги.

Можно указать одно из следующих значений в параметре Format , чтобы определить символ разделителя для файла.

Значение Разделитель
1 Вкладки
2 Запятыми
3 Пробелы
4 Точка с запятой
5 Отсутствует
6 Пользовательский символ (см. аргумент Разделитель )

Пример

В следующем примере кода открывается книга Analysis.xls, а затем выполняется ее макрос Auto_Open.

Следующий пример кода импортирует лист из другой книги на новый лист в текущей книге. Лист 1 в текущей книге должен содержать имя пути к книге для импорта в ячейку D3, имя файла в ячейке D4 и имя листа в ячейке D5. Импортированный лист вставляется после Листа1 в текущую книгу.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Читайте также:  Как настроить громкую связь на айфоне

Adblock
detector

Источник

I use extensive Excel-Word linking, updated manually with VBA code. If the Excel file is not open, Word attempts to open it, warns that opening it again is trouble, requires a dialog box be answered, then go to the next link and starts again. Since there are usually 100 links, this is a big problem.

I found simple VBA code that calls a function to check if Excel is running.

    Dim sApp As String
    sApp = "Excel.Application"
    If IsAppRunning(sApp) = True Then
        MsgBox "Excel is Running, continue" & SourceFileName
    Else
        MsgBox "Excel is NOT Running, abort"
        Exit Sub
    End If

I want to check if the RIGHT Excel file is open. The «right» file will have the same name as the Word file, e.g., MyDocSample.doc will be linked to MyDocSample.xls.

If MyDocSample.xls is open, then continue, if not, a warning should be posted saying «MyDocSample.xls» is not open, and offer an Abort selection.

Источник

На чтение 3 мин. Просмотров 4.3k.

Что делает макрос: При автоматическом открытии книги, необходимо учитывать, что может произойти при попытке открытия книги, которая уже открыта. Обычно Excel пытается открыть файл еще раз, с предупреждением, что любые несохраненные изменения будут потеряны. В VBA есть хороший инструмент, которые знает, как определить открыта ли книга, прежде чем пытаться открыть его снова.

Содержание

  1. Как макрос работает
  2. Код макроса
  3. Как работает этот код
  4. Код макроса
  5. Как использовать

Как макрос работает

Первое, что надо заметить, что это функция, а не процедура Sub. Мы проверяем файл, чтобы увидеть, назначен ли он переменной объекта. Только открытые книги могут быть присвоены переменной объекта. Когда мы пытаемся назначить закрытую книгу для переменной, возникает ошибка. Так что, если данная книга может быть назначена, книга открыта, если возникает ошибка, книга закрыта.

Код макроса

Function FileIsOpenTest(TargetWorkbook As String) As Boolean
'Шаг 1: Объявить переменные
Dim TestBook As Workbook
'Шаг 2: проверка на ошибки
On Error Resume Next
'Шаг 3: Попробуйте проверить книгу
Set TestBook = Workbooks(TargetWorkbook)
'Шаг 4: Если ошибки не произошло, книга уже открыта
If Err.Number = 0 Then
FileIsOpenTest = True
Else
FileIsOpenTest = False
End If
End Function

Как работает этот код

  1. Первое, что макрос делает – указывает переменную строку, содержащую имя файла, который выбирает пользователь. TestBook это имя переменной строки.
  2. В шаге 2, мы проверяем Excel на ошибки. В случае ошибки, возобновить код. Без этой строки код остановится при возникновении ошибки. Опять же, мы проводим тестирование данного файла, чтобы увидеть, назначен ли он переменной объекта. Поэтому, если данная книга может быть назначена, она открыта, если возникает ошибка, она закрыта. Если возникла ошибка, нам нужно знать код.
  3. На шаге 3, присваиваем книге переменную объекта TestBook. Сама строка переменной называется TargetWorkbook. TargetWorkbook передает функции в объявлении функции (см. первую строку кода). Данная функция устраняет необходимость жесткого кодирования имени книги, что позволяет нам передать его в качестве переменной.
  4. На шаге 4, проверяем, произошла ли ошибка. Если ошибки не произошло, книга открыта, поэтому мы устанавливаем FileIsOpenTest в True. Если произошла ошибка, это означает, что книга не открыта. В этом случае мы устанавливаем FileIsOpenTest значение false.

Это функция может быть использована для оценки любого файла, который передаст к нему, через его TargetWorkbook аргумент. Мы будем использовать затем эту функцию в макросе. Следующий макрос показывает, как реализовать эту функцию. Здесь мы используем одни и те же макросы, которые вы видели в предыдущем разделе, «Как открыть конкретную книгу, определенную пользователем», но на этот раз, мы создаем новую функцию FileIsOpenTest, чтобы убедиться, что пользователь не может открыть уже открытый файл.

Код макроса

Sub MacroOtkritaLiKniga()
'Шаг 1: Определить переменную строки.
Dim FName As Variant
Dim FNFileOnly As String

'Шаг 2: Метод GetOpenFilename активизирует диалоговое окно.
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Выберите книгу, которую нужно открыть", _
MultiSelect:=False)

'Шаг 3: Откройте файл, если он еще не открыт.
If FName <> False Then
FNFileOnly = StrReverse(Left(StrReverse(FName), _
InStr(StrReverse(FName), "") - 1))
If FileIsOpenTest(FNFileOnly) = True Then
MsgBox "Данный файл уже открыт"
Else
Workbooks.Open Filename:=FName
End If
End If
End Sub

Как использовать

Чтобы реализовать этот макрос, вы можете скопировать и вставить в обе части кода в стандартном модуле:

  1. Активировать визуальный элемент базовый редактор, нажав клавиши Alt+F11 на клавиатуре.
  2. Щелкните правой кнопкой мыши имя проекта или рабочей книги в окне проекта.
  3. Выбрать Вставку Модуля➜.
  4. Введите или вставьте код в созданный модуль.
  5. При необходимости можно назначить макрос для кнопки

Источник

Понравилась статья? Поделить с друзьями:
  • Excel vba открыть только форму
  • Excel vba открыть ссылку в браузере
  • Excel vba открыть каталог
  • Excel vba открыть выбранный файл
  • Excel vba отключить формулы