Project 2010 Macro runs fine on XP but will not work with Windows 7 or remote app Windows Server 2008 R2

Question

Hi,

I have created this thread as a result of a previous one. http://social.technet.microsoft.com/Forums/en/projectprofessional2010general/thread/61c114e3-ef33-4040-8477-84c542a167eb

I have tried to create a simple Macro to exchange info from the organizer to other files. The macro below works fine with XP OS but does not work  with Windows 7 OS or our remote app licence running Windows Server 2008 R2. The error is as follows "Run-time error '1101': The file "project1" was not found"

Does anyone have any ideas regarding this issue? ( FYI  we are using project 2010, we are NOT running project sever, the testing has been carried out locally & on a remote app server running Windows Server 2008 R2 )

Regards

Steve

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"                     ******ERROR IS ON THIS LINE********
OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Project File Owner (Text9)"

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

Answer 1

Steve,

This might seem pretty dumb but I notice your path is "C:\files to dopy and paste\". Shouldn't that be "C:\files to copy and paste\"?

John

Answer 2

Well it will run on SOME Win7 machines since I wrote it on my Win7 machine.

Im on Windows 7 Professional Service Pack 1 X64

Project Professional 2010 14.0.6112.5000 (32bit)

---

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

Answer 3

Brian,

You seem to be on an identical setup to me which makes this all the more puzzling, do you think there may be any OS settings that i may have set to cause the issue?

Answer 4

John,

Well spotted, i hadent noticed that. Unfortunately the file name is correct, it has a typo on the destination file.

Steve

Answer 5

Steve,

I wondered if that's why it couldn't find the file. I assume from your response that it still doesn't work even with that correction.

John

Answer 6

project1 as a name suggest an unsaved project. Try saving it first then try again. File names need .mpp or .mpt at the end, but this may be the bit that differs between windows versions.

Just thought: a fileopen may have failed and the macro is trying to copy to the default Proejct1 project created when Project is started.

Try adding an error test to make sure the project opens correctly before running the OrganizerMoveItem commands.

---

Rod Gill

The one and only Project VBA Book Rod Gill Project Management

Answer 7

John,

No it has found the file and opened it then gives the error. Very strange indeed.

Steve

Answer 8

Rod,

Thanks, i had just saved a blank project and used the default naming project1, project2, & project3 etc etc etc. Just for the purpose of testing.

Thae same files and the same macro ran fine on a colegues pc.

Steve

Answer 9

When doing something like a fileopen you should still have error checking. If the file doesn't open, or opens in read only because someone else has it open, then your code needs to know. Failure to open means your macro is doing actions on the active project, not the intended project: could be awkward!

Try the following and look in the immediate window for error messages.

Sub x()
Dim strFilename As String
Dim strPath As String
Dim P As Project
Application.ScreenUpdating = False
On Error Resume Next
strPath = "C:\files to dopy and paste\"
strFilename = Dir(strPath & "*.mpp")
Do While Len(strFilename) > 0
    Err.Clear
    Application.FileOpenEx (strPath & strFilename)
    If Err.Number = 0 Then
        Set P = Application.ActiveProject
        
        OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=P.Name, Name:="TRW Gantt"
        Debug.Print "OrganizerMoveItem error: " & Err.Description
        OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Project File Owner (Text9)"
    Else
        Debug.Print "Error: " & Err.Description
    End If
    FileClose pjSave
    strFilename = Dir
Loop
Application.ScreenUpdating = True
End Sub

---

Rod Gill

The one and only Project VBA Book Rod Gill Project Management

Answer 10

Excellent Rod. I had it on my list today to add some Immediate window writing for debugging but had not hit it yet. thanks! :-)

---

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

Answer 11

I clearly have too much time on my hands!!

---

Rod Gill

The one and only Project VBA Book

Rod Gill Project Management

Answer 12

Rod,

Thanks so much for your help, i have tried this in addition to renaming the files to something more original. The macro does run with no errors but unfortunately does not make any chages. Should i see an error if the files are not able to open for some reason?

I will keep trying

Regards

Steve

Answer 13

Rod / Brian,

Thank-you both for your assistance. I have now (with the assistance of a helpful friend at work & you guys) managed to get a macro that works for me.

Steve

Sub steve_test()
Dim strFilename As String
Dim strPath As String
Dim P As Project
Dim strFileLoc
Application.ScreenUpdating = False
On Error Resume Next
strPath = "D:\SharedProjects\Test Area All Users\stevemacrotest\"
strFilename = Dir(strPath & "*.mpp")
Do While Len(strFilename) > 0
    Err.Clear
    strFileLoc = strPath & strFilename
    Application.FileOpenEx (strFileLoc)
    If Err.Number = 0 Then
        Set P = Application.ActiveProject
        OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=strFileLoc, Name:="TRW Gantt"
        'OrganizerMoveItem Type:=1, FileName:="Global.MPT", ToFileName:=P.Name, Name:="TRW Gantt"
        Debug.Print "OrganizerMoveItem error: " & Err.Description
        OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=strFileLoc, Name:="Project File Owner (Text9)"
        'OrganizerMoveItem Type:=9, FileName:="Global.MPT", ToFileName:=P.Name, Name:="Project File Owner (Text9)"
    Else
        Debug.Print "Error: " & Err.Description
    End If
    FileClose pjSave
    strFilename = Dir
Loop
Application.ScreenUpdating = True
End Sub

Answer 14

The error messages will pile up in the immediate window of the VBE. You can change the debug.print command to a msgbox, but that stops progress until you click OK each time.

---

Rod Gill

The one and only Project VBA Book

Rod Gill Project Management