从 Excel 导入时缩进任务答案

【问题标题】：Indent tasks on import from Excel从 Excel 导入时缩进任务
【发布时间】：2019-12-11 22:24:01
【问题描述】：

我想在从 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- 值来确定哪些应该缩进，哪些不应该。

【问题讨论】：

标签： excel vba ms-project

【解决方案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

【讨论】：