Закрыть MS Project, используя VSTO

Question

У меня есть VSTO на MS Project. Я использую VB.NET. Мне нужно, когда я нажимаю кнопку, созданную на ленте, она будет выполнять некоторые коды, которые будут обновлять информацию о какой-либо задаче, однако мне нужно будет автоматически закрыть MS Project. Я попробовал application.FileCloseEx(), но он только закрывает файл, MS Project все еще загружен. Мне нужно скрыть кнопку x в окне.

Спасибо, Gilbert

Answer 1

Если объект приложения MS Project представляет "appMSProject", то это так же просто, как:

appMSProject.Quit 

ИЛИ говорят в макро бега в рамках проекта:

Application.Quit 

Вот как я это делаю в VBA из Excel или Access. Насколько я могу сказать объекты & методы одинаковы в VB.NET. В итоге я создаю экземпляр объекта MS Project, который запускает приложение &, открывает файл, выполняет некоторую работу, закрывает файл, а затем уничтожает объект MS Project, устанавливая его в Nothing. Это приводит к закрытию приложения. Вы также можете использовать «appMSProject.Quit», а затем установить его в «Ничто». Честно говоря, второй вариант выглядит более упорядоченным & легче понять в коде. Во всяком случае, вот пример того, как я это сделать:

Dim appMSProject As MSProject.Application 
Dim prjPrj As MSProject.Project 
Dim strPrjFile As String 

strPrjFile = "C:\where_is_my_file\file_name.mpp" 

Set appMSProject = New MSProject.Application 
appMSProject.FileOpenEx Name:=strPrjFile 
Set prjPrj = appMSProject.ActiveProject 

'''Do something in here with the prjPrj 

'Close the file, in my case w/o saving 
appMSProject.FileCloseEx pjDoNotSave 


'Destroy the objects 
Set prjPrj = Nothing 
Set appMSProject = Nothing 

FYI - В этом примере я делаю подготовительную работу, чтобы я не показать приложение. Я также использую «раннее связывание».

Вот пример MSDN, который действительно показывает приложение с дополнительной информацией о начале позднего связывания-vs - https://msdn.microsoft.com/en-us/library/office/ff865152.aspx