|
|
 |
Visual Basic Example #10 |
|
| This example loads a specific Milestones schedule, and creates an EAC Report for the designated task. |
| The Code: |
|
Sub Main()
Dim objmilestones As Object Dim EV As Double Dim PV As Double Dim BAC As Double Dim AC As Double Dim PC As Double
Set objmilestones = GetObject("C:\Program Files\KIDASA\Milestones Professional 2006\earnedvalue5.mla")
With objmilestones
.Activate
.Use20Columns
.Refresh
EV = .GetCellText(4, 14) PV = .GetCellText(4, 12) BAC = .GetCellText(4, 11) AC = .GetCellText(4, 13) PC = .GetPercentComplete(4)
.DisplayEACReport EV, PV, BAC, AC, PC, "3"
.KeepScheduleOpen .Close
End With
End Sub |
|
|
| Click here to visit the Milestones Professional Programmer's page. |
|
|