缩进从Excel导入的任务

Question

我想缩进从Excel导入的任务。我有用于导入任务的有效解决方案，但是如果不向文本名称中添加一些内容，就找不到MS Project中缩进任务的解决方案，例如：

    If (Not IsEmpty(Range("AJ" & i).Value)) And (Not IsError(Range("AJ" & i).Value)) Then

        Select Case Left(newproj.Tasks(i - 7).Name, 3)
        Case "( ", "Op-"
          newproj.Tasks(i - 7).OutlineIndent
        End Select

    End If

可以，但是当任务名称前面有类似“ Op-”的内容时，效果会不太好。导入时可以缩进吗？

这是我的导入任务代码：

For i = 8 To 90

    strValue = Worksheets("Timeschedule").Range("AK" & i)

    If (Not IsEmpty(Range("AK" & i).Value)) And (Not IsError(Range("AK" & i).Value)) Then

        newproj.Tasks.Add strValue

    End If

Next i

我在Excel中的任务在AK列中，在帮助器列AJ中有Op-值来标识应该缩进的内容和不应该缩进的内容。

Answer 1

我已经找到了使用OutlineLevel的解决方案。如果有人对代码感兴趣，请访问：

   If (Range("AK" & i).Value <> "") And (Not IsError(Range("AK" & i).Value)) Then

            newproj.Tasks.Add strValue

                Select Case Range("AJ" & i).Value
                Case "Op-"
                    newproj.Tasks(i - 7).OutlineLevel = 2
                Case "As-"
                    newproj.Tasks(i - 7).OutlineLevel = 1
                End Select

        End If