从 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

从 Excel 导入时缩进任务

Indent tasks on import from Excel

excel

vba

ms-project