Ссылка открыта Wokrbook & Create сообщение об ошибке, если рабочая книга используется

Привет, у меня есть код ниже, я хотел бы ссылаться на книгу, чтобы я мог копировать и вставлять данные из уже открытой рабочей книги. Однако я стараюсь правильно ссылаться на книгу. Может ли кто-нибудь помочь? 🙂

Имя файла: «Pics & Benefits upload file.xlsm»

Workbooks.Open Filename:= _ "U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm" Dim PicsFile As String PicsFile = "Pics & Benefits upload file.xlsm" 

Мне также хотелось бы получить сообщение об ошибке, если кто-то еще находится в имени файла «Pics & Benefits upload file.xlsm». Если другой пользователь находится в файле, он выйдет из макроса. (Я не слишком уверен, как это сделать)

благодаря

В дополнение к ответу Mielks, который позволит вам ссылаться на правильную книгу – в той же строке вы также можете открыть файл как доступный только для чтения.

Этот код скажет вам, если файл уже открыт – возврат TRUE или FALSE (он также вернет TRUE, если файл не существует – в любом случае он скажет, можете ли вы что-либо сделать с этим именем и местоположением файла).

 Public Function FileIsOpen(FullFilePath As String) As Boolean Dim ff As Long On Error Resume Next ff = FreeFile() Open FullFilePath For Input Lock Read As #ff Close ff FileIsOpen = (Err.Number <> 0) On Error GoTo 0 End Function Public Sub test() If FileIsOpen("S:\Bartrup-CookD\MyTestFile.xls") Then MsgBox "That file's open, or doesn't exist - do something else." End If End Sub 

Вы можете сделать это так:

 Dim wkb As Excel.Workbook Set wkb = Workbooks.Open(Filename:= _ "U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm") 
  • Ошибка атрибута при попытке сохранить файл excel с помощью win32
  • Обработка ошибок уровня данных VBA
  • Отображать сообщение об ошибке и цикл резюме
  • Обработка ошибок
  • AttributeError, сыворотка, возвращающая из ipython в Excel с помощью pandas
  • ошибка несоответствия типа excel для частной подсистемы
  • vba при ошибке пытается проанализировать нулевой вариант вместо строки
  • Как поймать ошибку «Файл не загружен полностью»
  • Обработчик ошибок в VBA 2016
  • Ошибка VBA Excel при выходе из текстового поля
  • разделение ячеек ошибок на другой рабочий лист с помощью VBA
  • Interesting Posts

    Открыть в памяти XML-строку в виде книги Excel без сохранения с помощью окон Forms C #

    Функция LOOKUP, если ячейки MATCH

    Ссылка на заголовки таблиц в расширенной таблице AdvancedFilter VBA

    Нулевые значения не записываются в пакет «org.zuinnote.spark.office.excel»

    Код VBA работает при использовании F8, но не при запуске полностью

    Невозможно использовать свойство excel столбца

    VBA выводит значение ComboBox в следующую свободную ячейку в столбце

    Excel | макрос автозапуска при изменении значения ячейки | вызывать chrash

    Выбор только фильтрованных ячеек

    Сравнение двух файлов и отображение различий в excel?

    Могу ли я потерять преимущества макрозаписей, если я разрабатываю приложения Excel в Visual Studio?

    Экспорт в Excel простой способ (но не CSV)

    Изменение цвета шрифта на основе цвета в позиции курсора в Excel

    Перебирайте все листы, если ячейка = строка, скопируйте три ячейки на специальный лист

    Интерполировать стандартную кривую в Excel

    Давайте будем гением компьютера.