ACC: How to Use Automation with Microsoft Project

MORE INFORMATION

• Run a macro
• Add tasks to the project
• Change font properties in a column
• Move to a specific cell in the project
• Display a print preview of the project
• Close the Microsoft Project file and application

1. Open the sample database Northwind.mdb and create a new module.
2. On the Tools menu, click References.
3. Click to select the Project 4.1 Object Library check box. If the selection is not available, click Browse to locate the Pj4en32.olb file.
4. Click OK.
5. Create the following procedure in the open module:

              Function ProjectOLE()
            Dim ProjObj As MSProject.Application
            Set ProjObj = CreateObject("msproject.application")
            ProjObj.FileOpen "C:\Msoffice\Winproj\Library\Pert.mpp", _
               ReadOnly:=True
            ProjObj.Visible = True
   
            ' Run a macro.
            ProjObj.Macro "ToggleReadOnly" ' Toggle file back to read-write.
   
            ' Add tasks to the project.
            Dim i As Integer
            Dim ProjDoc As MSProject.Project
            Set ProjDoc = ProjObj.ActiveProject
            For i = 1 To 10
               ProjDoc.Tasks.Add Name:="Task" & i
            Next i
   
            ' Change font properties.
            ProjObj.SelectColumn
            ProjObj.FontItalic True
   
            ' Go to a specific cell in the column.
            ProjObj.EditGoTo 5, Date
   
            ' Print preview the file.
            ProjObj.FilePrintPreview
            'ProjObj.FilePrint   ' Use this line to print the file.
            'ProjObj.Filesave    ' Use this line to save the file.
            ProjObj.FileClose 0  ' 0=pjDoNotSave, 1=pjSave, 2=pjPromptSave.
            ProjObj.Quit
            Set ProjObj = Nothing
         End Function
   						

6. To test this function, type the following line in the Debug window, and then press ENTER:

   ?ProjectOLE()