vba - 如何使用 VBA Excel 正确定义 TreeView 的子节点？

Question

我不确定为什么在将其转换为字符串时会出现无效的键错误，就像示例的操作方式一样。

Private Sub UserForm_Initialize()

Dim i As Long, j As Long, Total_rows_Column As Long
Dim unique_keys As Long

For i = 1 To 5
    TreeView1.Nodes.Add Key:=Worksheets("Sheet1").Cells(1, i), Text:=Worksheets("Sheet1").Cells(1, i)
Next i

unique_keys = 0
For i = 1 To 5
    Total_rows_Column = Worksheets("Sheet1").Range(Col_Letter(i) & Rows.Count).End(xlUp).Row
    For j = 2 To Total_rows_Column
        unique_keys = unique_keys + 1
        'ERROR IN THE LINE BELOW************
        TreeView1.Nodes.Add Worksheets("Sheet1").Cells(1, i).Value, tvwChild, CStr(unique_keys), Worksheets("Sheet1").Cells(j, i).Value
    Next j
Next i

End Sub

Answer 1

这是一些最小的代码，可以工作，产生:

Private Sub UserForm_Initialize()

    Dim i&, j&
    For i = 1 To 5
        Me.TreeView1.Nodes.Add Key:="key" & i, Text:="text" & i
    Next i

    For i = 1 To 5
        For j = 2 To 3
         TreeView1.Nodes.Add "key" & i, tvwChild, "Some More Text" & j & i, "Even More" & j
        Next j
    Next i

End Sub

似乎 key 应该包含非数字字符并且没​​有空值 - VBA treeview loading issue - invalid key .