ExcelのVBAでカテゴリー取得

を参考に

    For Each record In records
        Cells(rowIndex, 2).Value = record("文字列__1行_")("value")
        Dim item As Variant
        For Each item In record("カテゴリー")("value")
            Debug.Print item
        Next item
        rowIndex = rowIndex + 1
    Next record

補足：カテゴリーは３階層で構成されており、３階層名を取得したいです。
階層名にかぶりはありません。

という記載はどのような意図かわかりませんでした。
カテゴリーの階層設定は、無視されて配列で返却されます。

image1200×197 43.3 KB