【Unity】scriptableobjectのリストをExcelに表示してみた

Private Const startRow = 3
Private Const startCol = 2

Public Sub readAsset()
    Dim path As String
    Dim fso As Object
    Dim file As Object
    Dim files As Object
    Dim i As Integer
    Dim sh As Worksheet
    Dim row As Long
    Dim col As Integer
    Dim dic As Object
    
    Set sh = ThisWorkbook.ActiveSheet
    row = startRow
    Application.ScreenUpdating = False
    
    i = MsgBox("現在開いているシートに書き込みます。処理を実行しますか？", vbYesNo + vbQuestion, "確認")
    If i <> vbYes Then Exit Sub
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            path = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set files = fso.GetFolder(path).files
    sh.Cells.Clear

    For Each file In files
        If fso.GetExtensionName(file.path) = "asset" Then
            Call readFile(file.path, file.Name, dic)
            col = startCol
            If row = startRow Then
                For Each Key In dic.Keys
                    sh.Cells(row, col) = Key
                    col = col + 1
                Next
                row = row + 1
                col = startCol
            End If
            
            For Each Key In dic.Keys
                sh.Cells(row, col) = dic.Item(Key)
                col = col + 1
            Next
            row = row + 1
        End If
    Next file

    Application.ScreenUpdating = True

End Sub

Private Sub readFile(ByVal path As String, ByVal fileName As String, ByRef dic As Object)
    Dim buf As String
    Dim tmp As Variant
    Dim tmp2 As Variant
    Dim monoflg As Boolean
    Dim prevKey As String
    
    Set dic = CreateObject("Scripting.Dictionary")
    
    Open path For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
        Loop
    Close #1
    
    tmp = Split(buf, vbLf)
    monoflg = False
    dic.Add "ファイル名", Replace(fileName, "asset", "")
    For i = 0 To UBound(tmp) - 1
        tmp(i) = Trim(tmp(i))
        If monoflg And Not dic.Exists(tmp(i)) And Len(tmp(i)) > 2 And Left(tmp(i), 2) <> "m_" Then
            tmp2 = Split(tmp(i), ":", 2)
            If UBound(tmp2) > 0 Then
                tmp2(1) = Replace(tmp2(1), """", "")
                tmp2(1) = unicodeEscape(CStr(tmp2(1)))
                dic.Add tmp2(0), tmp2(1)
                prevKey = tmp2(0)
            ElseIf Left(tmp2(0), 2) = "- " And dic.Exists(prevKey) Then
                tmp2(0) = Replace(tmp2(0), "- ", "")
                If dic.Item(prevKey) = "" Then
                    dic.Item(prevKey) = "[" & tmp2(0) & "]"
                Else
                    dic.Item(prevKey) = Replace(dic.Item(prevKey), "]", "") & "," & tmp2(0) & "]"
                End If
            End If
        End If
        If tmp(i) = "MonoBehaviour:" Then monoflg = True
    Next i
    
End Sub

Function unicodeEscape(src As String)
    Dim v As Variant
    Dim i As Integer
    Dim ret As String
    Dim re As Object

    Set re = CreateObject("VBScript.RegExp")
    With re
        .Global = True
        .IgnoreCase = True
        .Pattern = "\u([a-fA-F0-9]{4})"
        If .test(src) Then
            v = Split(src, "\u")
            ret = ""
            For i = 1 To UBound(v)
                ret = ret & ChrW(Val("&H" & v(i)))
            Next
            unicodeEscape = ret
        Else
            unicodeEscape = src
        End If
    End With
End Function