How do I export the Project Summary Task

[Jeff]

I want to include the Project Summary task in my export of tasks and task
releated information. How do I include the summary task as I see no reference
to it anywhere in the docs. my code thusfar is as follows:
===================================================
Set Proj = ActiveProject

For Each T In ActiveProject.Tasks
If Not T Is Nothing Then
If T = T.Milestone Then T.Milestone = False
Set xlrow = xlrow.Offset(1, 0)
Set xlcol = xlrow.Offset(0, T.OutlineLevel)
xlcol = T.Name
If T.Summary Then
xlcol.Font.Bold = True
End If

Set xlrow = xlrow.Offset(0, 0)
Set xlcol = xlrow.Offset(0, 9)
'Set xlCol = xlRow.Offset(0, 9)
Set xcol = xlrow.Range("k1")
Set xlcol = xlcol.Offset(0, 1)
xlcol = T.ID
Set xlcol = xlcol.Offset(0, 1)
xlcol = Format((T.Duration / 420), 0#)

 

[Brian K - Project MVP]

I want to include the Project Summary task in my export of tasks and
task releated information. How do I include the summary task as I see
no reference to it anywhere in the docs. my code thusfar is as
follows:

Loops through the task collection will not show you the Project
Summary. You can get your hook here though:

ActiveProject.ProjectSummaryTask

--
___
Brian K
Project MVP
http://www.projectified.com

Project Server Consultant
http://www.quantumpm.com