Open file name macro

全部回复

• 2012年4月23日 15:55

   

   
  

  0

  Steve.

  The current active file name is:

  Activeproject.Name

  John

  • 已标记为答案 Steve TRW 2012年4月23日 16:00
  •  
  • 回复
  • 引用

   
• 2012年4月23日 16:02

   

   
  

  0

  Thanks John,

  To push my question to the next level would it be possible to program the macro to open all files in a particular folder and run the same macro on them automatically? Where would i find out how to do this on the net?

  Regards

  Steve

  • 回复
  • 引用

   
• 2012年4月23日 16:06

   

   
  

  0

  John,

  I have added the code as below but it hasnt worked, what did i do wrong?

  Regards

  Steve

  Sub Steve_Macro1()

  ' Macro Steve_Macro1

  ' Macro Recorded Mon 23/04/12 by Steve Hartwell.

      OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:="Activeproject.Name", Name:="TRW Gantt"

      OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:="Activeproject.Name", Name:="Project File Owner (Text9)"

      ViewApply Name:="Gantt Chart"

      FileSave

      FileCloseEx

  End Sub

  • 回复
  • 引用

   
• 2012年4月23日 16:07

  版主

   

   
  

  0
  take the quotes off of Activeproject.name

  ---

  Brian Kennemer - Project MVP
  DeltaBahn Senior Architect
  endlessly obsessing about Project Server…so that you don’t have to.
  Blog | Twitter | LinkedIn

  • 已标记为答案 Steve TRW 2012年4月23日 16:10
  •  
  • 回复
  • 引用

   
• 2012年4月23日 16:10

   

   
  

  0

  brian,

  Thankyou that works. easy when you know how eh!

  Steve

  • 回复
  • 引用

   
• 2012年4月23日 16:14

  版主

   

   
  

  0

  Yes it is possible but I dont have the code available i front of me right now.

  This code will not open all the files in a folder but it will loop through all the projects you currently have open.

  So you would  manually open the projects into Pro all at once or in groups and then run the macro.

  Try it on some TEST PROJECTS.

  Notice that instead of Activeproject.name I changed it to P.Name and put all the code in a loop where P is a project. the loop grabs all the open projects and makes P equal one of them. The code does it's thing and then moves to the next one.

  Sub AllOpen()
  Dim P As Project
  
  For Each P In Application.Projects
      OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=P.Name, Name:="TRW Gantt"
      OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Project File Owner (Text9)"
      ViewApply Name:="Gantt Chart"
      FileSave
      FileCloseEx
  Next P
  End Sub

  
  

  ---

  Brian Kennemer - Project MVP
  DeltaBahn Senior Architect
  endlessly obsessing about Project Server…so that you don’t have to.
  Blog | Twitter | LinkedIn

  • 已标记为答案 Steve TRW 2012年4月23日 16:50
  •  
  • 回复
  • 引用

   
• 2012年4月23日 16:57

   

   
  

  0

  Brian,

  Thanks, i have tried both, they both only seem to work on new blank projects not existing projects? Also it does not seem to be closing the files after saving?

  I get the following (obviously the file name in the error is different for each file i try) error on all projects other than new blank ones.

  Run-time error '1101':

  The file "PR18616" was not found

  regards

  steve

  
  Does the macro look for the file name or a name within the open file its self? wondering if i have made some sort of school boy error in the creation of the files i wish to change

  • 已编辑 Steve TRW 2012年4月23日 17:05
  • 已标记为答案 Steve TRW 2012年4月23日 18:00
  •  
  • 回复
  • 引用

   
• 2012年4月23日 17:34

  版主

   

   
  

  0

  OK not sure why it is doing that but Im seeing some odd behavior as well. So instead of that loop try this one, which is actually what you wanted to start with.

  Change the C:\Foo\ to your directory where your MPP files are located. Then run the macro.

  Sub x()
      Dim strFilename As String
      Dim strPath As String
      Dim P As Project
      Application.ScreenUpdating = False
      
      strPath = "C:\Foo\"
      
      strFilename = Dir(strPath & "*.mpp")
      Do While Len(strFilename) > 0
          Application.FileOpenEx (strPath & strFilename)
          Set P = Application.ActiveProject
          
          OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=P.Name, Name:="TRW Gantt"
          OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Project File Owner (Text9)"
  
          FileClose pjSave
          strFilename = Dir
      Loop
      Application.ScreenUpdating = True
  End Sub

  
  

  ---

  Brian Kennemer - Project MVP
  DeltaBahn Senior Architect
  endlessly obsessing about Project Server…so that you don’t have to.
  Blog | Twitter | LinkedIn

  • 回复
  • 引用

   
• 2012年4月23日 18:03

   

   
  

  0

  Brian,

  Thats fantastic thanks. However i still have the same error

  Run-time error '1101':

  The file "project1" was not found

  I just created 3 or 4 blank projects entered them into a test folder and added that folder destination to the macro. It obviously found the folder and opened the 1st file but not sure why it says file was not found

  Regards

  Steve

  
  

  • 已编辑 Steve TRW 2012年4月23日 18:05 spelling!!
  •  
  • 回复
  • 引用

   
• 2012年4月23日 18:12

  版主

   

   
  

  0

  Was one of the files called Project1?

  Can you post the code you ran?

  ---

  Brian Kennemer - Project MVP
  DeltaBahn Senior Architect
  endlessly obsessing about Project Server…so that you don’t have to.
  Blog | Twitter | LinkedIn

  • 回复
  • 引用

   
• 2012年4月23日 18:17

   

   
  

  0

  Brian,

  Yes I just made some blank projects to test project1, project2 etc etc etc. I used the code as you entered above and edited just the filepath.

  Thanks

  Sub x()
      Dim strFilename As String
      Dim strPath As String
      Dim P As Project
      Application.ScreenUpdating = False
     
      strPath = "C:\files to dopy and paste\"
     
      strFilename = Dir(strPath & "*.mpp")
      Do While Len(strFilename) > 0
          Application.FileOpenEx (strPath & strFilename)
          Set P = Application.ActiveProject
         
          OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=P.Name, Name:="TRW Gantt"
          OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Project File Owner (Text9)"

          FileClose pjSave
          strFilename = Dir
      Loop
      Application.ScreenUpdating = True
  End Sub

  • 回复
  • 引用

   
• 2012年4月23日 18:23

  版主

   

   
  

  0

  I dont know what to say. This code runs perfectly on my machine.

  I have three projects in my folder: Project1.mpp, foo.mpp, foo2.mpp

  I run the code and it copies a table called Table1 into those projects, saves and closes them. (I have this line in my code rather than your TRW Gantt: OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Table 1")

  What if you close all open projects before you run the code?

  ---

  Brian Kennemer - Project MVP
  DeltaBahn Senior Architect
  endlessly obsessing about Project Server…so that you don’t have to.
  Blog | Twitter | LinkedIn

  • 回复
  • 引用

   
• 2012年4月23日 20:36

   

   
  

  0

  Noooooooooooooooooooo, so close i can taste the success!!!

  You dont suppose its anything to do with my OS do you i am running windows 7 ? This has caused us some user issues on other functions compared with XP.

  
  Scrap that i have tried both

  • 已编辑 Steve TRW 2012年4月23日 20:40
  •  
  • 回复
  • 引用

   
• 2012年4月24日 7:47

   

   
  

  0

  Brian,

  My hunch was correct after all, i have just passed the macro and files to a collegues computer who is running xp pro and it works fine so i guess its a windows 7 issue AGAIN!

  If i made a new post on here do you think i may get an answer?

  Steve

  • 回复
  • 引用