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
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