NewProjFileName = Mid$(FileOpenType, InStrRev(FileOpenType, "\") + 1) NewProjFilePath = Left$(FileOpenType, InStrRev(FileOpenType, "\")) 'Write the FileOpenType variant to two separate strings MsgBox "Please Select MS Project File for Quality Checking"įileOpenType = Application.GetOpenFilename( _įileFilter:="MS Project Files (*.mpp), *.mpp", _Įxit Sub ' <- use Exit Sub instead of GoTo EndPoint ![]() Set Proj = New MSProject.Application ' since you are using Early binding, you can use this type of setting a new MS-Project instance Second: since Proj is defined as MSProject.Application, in order to make the MS-Project application visible, it's enough to use Proj.Visible = True. First, since you are using Early Binding to refer to MS-Project, so instead of setting Set Proj = CreateObject("MsProject.Application"), which is used for Late Binding, you can use Set Proj = New MSProject.Application.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |