Help with Modifying Existing code

Question

Hi All
I have been sucessfully using a piece of code kindly provided by Jack Dahlgren some years ago.  However I have a need to slightly modify it.  I only want to add the previous Outline Level value (not all of the previous ones).  I am struggling
with this one and need spome help.  Here is the code:
Sub summaryname()
'This Macro will create the entire "Path" to a specific task by adding together the
'names of all the parent tasks. It is useful when 'you have many commonly named substasks
'and want to know where in the heirarchy they reside. As written, this places the "path" in the
'Text12 custom field. You could alternately put this into the task name field itself, however
'that may make the names rather long
'Copyright Jack Dahlgren, March 2002
Dim mystring As String
Dim mytask As Task
Dim myoutlinelevel As Integer
myoutlinelevel = 1
While myoutlinelevel < 10
For Each mytask In ActiveProject.Tasks
    If Not (mytask Is Nothing) Then
        If mytask.Text12 = "" Then
            If mytask.OutlineLevel = myoutlinelevel Then
                mytask.Text12 = mytask.OutlineParent.Text12 & " | " & mytask.Name
            End If
        End If
    End If
Next mytask
myoutlinelevel = myoutlinelevel + 1
Wend
MsgBox ("Customised Task List Names have been built for each task " & vbCrLf & "and are contained in Field Text12." & vbCrLf & vbCrLf & "This text field is used to build individual Task Reports for " & vbCrLf
& "workstream resources." & vbCrLf & vbCrLf & "PLEASE DO NOT MODIFY.")
End Sub
Many thanks in anticipation.
Tony
TKHussar

Answer 1

Hi Jan
Thanks for your prompt response.  The code from FAQ37 is what is used initially.  However when I try and produce individual task lists nothing is output from Ass.Text5.  My code is below:
For Each Res In ActiveProject.Resources
    If Res.Assignments.Count > 0 Then
        Row = 5
        XlApp.Workbooks.Open ("D:\Task List Templates\Task List Template.xlsm")
        BookNam = XlApp.ActiveWorkbook.Name
        Set s = XlApp.Workbooks(BookNam).Worksheets(1)
        For Each Ass In Res.Assignments
            Set xlRange = s.Range("A5")
            If Ass.PercentWorkComplete < 100 Then
                    With xlRange
                        rName = Ass.ResourceName
                        s.Range("A" & Row).Value = Ass.ResourceName
                        s.Range("B" & Row).Value = Ass.TaskUniqueID
                        s.Range("C" & Row).Value = Ass.Text5
                        s.Range("D" & Row).Value = Ass.TaskName
                        s.Range("E" & Row).Value = Ass.Start
                        s.Range("G" & Row).Value = Ass.Finish
                    End With
            End If
            Row = Row + 1
            Set xlRange = xlRange.Offset(Row, 0)  'Point to next row
        Next
        XlApp.Visible = True
        Application.DisplayAlerts = False
        If rName = "" Then
            GoTo NextOne
        End If
        XlApp.ActiveWorkbook.SaveAs FileName:= _
            "D:\Task List Templates\Task Lists\" & rName & ".xlsm", FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        rName = ""
        XlApp.ActiveWorkbook.Close savechanges:=False
        Application.DisplayAlerts = True
    End If
NextOne:
Next
However when I export to excel everything else I need gets exported perfectly but not the a.Text5 values.  When I check the Task Usage view and add the Text5 column the value is there but only against the Resource name and not the task name.  Hope
that makes sense.
Thanks
Tony
TKHussar