CODEWITHSUNDEEP
projectcost-management
Jack Fischer
Jack Fischer

Reputation: 1

I also tried using code to get time phased cost out of Project 19 but keep getting the overflow 6 error

Here's the code that @Rachel provided:

Sub MSCostOutlay()
    Dim tsv As TimeScaleValue
    Dim tsvs As TimeScaleValues
    Dim t As Task

    For Each t In ActiveProject.Tasks
        t.Baseline9Cost = t.BaselineCost
        t.Baseline9Duration = Application.DateDifference(t.Start, t.Finish)
        Set tsvs = t.TimeScaleData((t.Start), t.Finish, pjTaskTimescaledBaseline9Cost, pjTimescaleDays, 1)
        For Each tsv In tsvs
            If ActiveProject.Calendar.Period(tsv.StartDate, tsv.EndDate).Working Then
                tsv = t.Baseline9Cost / (t.Baseline9Duration / (60 * 8))
            End If
        Next tsv
    Next t

End Sub

I changed the Cost5 field to BaselineCost as I wasn't using Cost5.

I have a MS Project19 schedule with ~ 1600 tasks and some inactive tasks. I've tried cutting down the size of the project to 200 tasks and deleted any Inactive tasks but it still gives me the Overflow 6 error. I've also tried to substitute (60*8) with 480 but no joy.

I suspect the overflow occurs at tsv = t.Baseline9Cost / (t.Baseline9Duration / (60 * 8)) but I haven't been able to find a way to increase the size of tsv.

Any help would be appreciated.

I'm expecting to get Cost data by task to use in an Excel program.

Upvotes: 0

Views: 18

Answers (0)

Related Questions