Поделиться через

Свойство Project.FullName (Project)

  • Статья

Возвращает путь и имя файла проекта. Только для чтения, String.

Синтаксис

expression. Fullname

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

Замечания

Свойство FullName возвращает имя проекта (как показано в строке заголовка) для несохраненного проекта.

Пример

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

Sub CloseFile() 
 Dim P As Project ' Project object used in For Each loop 
 Dim FileName As String ' Full name of a file 
 
 ' Prompt user for the full name of a file. 
 FileName = InputBox$("Close which file? Include its path: ") 
 
 ' Search the open projects for the file. 
 For Each P In Application.Projects 
 
 ' If the file is found, close it. 
 If P.FullName = FileName Then 
 P.Activate 
 FileClose pjSave 
 Exit Sub 
 End If 
 Next P 
 
 ' Inform user if the file is not found. 
 MsgBox ("Could not find the file " & FileName & ".") 
 
End Sub

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

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