JackD
Wed Nov 17 17:12:20 CST 2004
It is fairly simple to write a macro to do this.
This one exports budget and actual cost to a txt file you can open in excel.
It can be modified to export other stuff as well.
-------snip-------------
Sub Cashflow()
Dim mystring, MyFile As String
Dim jStart, jStatus, jEnd As Date
Dim fnum As Variant
Dim jPeriod As Integer
Dim myBCWS, myACWP As Currency
Dim myTask As Task
MyFile = "c:\" & "Cashflow_" & ActiveProject.Name & "_" & Date$ & ".txt"
fnum = FreeFile()
Open MyFile For Output As fnum
mystring = ActiveProject.Name & " " & ActiveProject.LastSaveDate & " " &
Application.UserName
Write #fnum, mystring 'write project info
Write #fnum, ' Write blank line.
jPeriod = 7 'select time reporting period 1 = 1 day, 7 = 1 week
jStart = ActiveProject.ProjectSummaryTask.start
jEnd = ActiveProject.ProjectSummaryTask.Finish
jStatus = jStart
myBCWS = 0
myACWP = 0
Do While jStatus <= jEnd + jPeriod
ActiveProject.StatusDate = jStatus
'CalculateProject
myBCWS = 0
myACWP = 0
For Each myTask In ActiveProject.Tasks
If Not myTask Is Nothing Then
'use flag 20 to control items you don't want to export
If Not myTask.summary And myTask.Flag20 Then
myBCWS = myBCWS + myTask.BCWS
myACWP = myACWP + myTask.ACWP
End If
End If
Next myTask
mystring = jStatus & ", " & myBCWS & ", " & myACWP
Write #fnum, mystring 'write project info
jStatus = jStatus + jPeriod
Loop
MsgBox "export complete"
Close #fnum
End Sub
----snip-------
--
-Jack ... For project information and macro examples visit
http://masamiki.com/project
.
"Magikwolf" <Magikwolf@discussions.microsoft.com> wrote in message
news:3B753BD5-F02B-45ED-BA1A-67443F18D768@microsoft.com...
> I've searched for this answer for about 2 months already, and I have not
got
> any solutions. The farthest I got to unraveling this was printing the
cash
> flow to a PDF file, and then copy/Paste the results to excel. But as you
> could imagine, this is not a fine solution when you have to build a cash
flow
> with thousands of activities and lots of pages.