嗨，曼尼，

我认为您无法导出分层视图。 但是您可以使用常规的scv导出和Excel宏。

这是我过去使用的

公共wsSrc作为工作表，wsDst作为工作表
公共lSrcFirstRow＆，lChildCol＆，lParentCol＆，lSrcLastRow＆，lDstFirstRow＆，lDstFirstCol＆
公共lDstRow＆

Sub MakeTree（）
昏暗的sNoParent作为字符串

'*********************** Anpassen ***** ********
设置wsSrc = ThisWorkbook.Worksheets（" Sheet1"）'源表
lSrcFirstRow = 2'源表中的第一行
lChildCol = 1'带有子ID的列
lParentCol = 2'带有父ID的列
sNoParent =""'父列中顶级ID的标记

设置wsDst = ThisWorkbook.Worksheets（" Sheet2"）'目标表
lDstFirstRow = 1'目标表中的第一行
lDstFirstCol = 1'目标表中的第一列
'*************************** *******************

lSrcLastRow = wsSrc.Cells（Rows.Count，lChildCol）.End（xlUp）.Row
lDstRow = lDstFirstRow
调用ScanChilds（sNoParent，0）
结束子

Sub ScanChilds（sParent作为字符串，iLevel作为整数）
Dim lRow＆
对于lRow = lSrcFirstRow到lSrcLastRow
如果wsSrc.Cells（lRow，lParentCol）= sParent则
lDstRow，lDstFirstCol + iLevel）= wsSrc.Cells（lRow，lChildCol）
lDstRow = lDstRow + 1
调用ScanChilds（wsSrc.Cells（lRow，lChildCol），iLevel + 1） 下一个lRow
End Sub