communication with MS Project

A

Anne

Hi,

I have an application in Excel which communicates with MS
Project. The syntax might be correct (no error message),
but it is not executed. I cannot imagine why and I find no
hint in the object catalogue.
My code:

Dim Projekt As Object
' start Project
Set Projekt = CreateObject("MSProject.Project")
Projekt.Application.FileOpen newTimeSchedule

'*****this is the part which is not executed
If Check_TP_A.Value = False Then 'CheckBox
Projekt.Application.SelectTaskField Row:=0,
Column:="Name"
Projekt.Application.SetTaskField Field:="%
Abgeschlossen", Value:="100", AllSelectedTasks:=True
End If
'*****
Projekt.Application.FileClose pjSave
'Close MSProject
Projekt.Application.Quit pjDoNotSave

Thanks for every hint!

Anne
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top