Question

我想在树视图中显示Excel数据，但它显示的是无效密钥。请帮助我。

Dim rTWData As Range
Dim oRow As Variant
Dim onode As Variant
Dim lastrow As Integer

Dim myFileNameDir2 As String
Dim ws12 As Worksheet
Dim i2 As Integer
Dim lastrow2 As Integer
Dim filecheck As Variant

myFileNameDir2 = Sheet1.Range("V5").Value
Workbooks.Open Filename:=myFileNameDir2, UpdateLinks:=0
Set ws12 = Worksheets(1)
lastrow = ws12.Range("A" & Rows.Count).End(xlUp).Row - 1
Set rTWData = ws12.Range("A2:L" & lastrow)
With TreeView1
    Set onode = .Nodes.Add(, , "root", "+")
    onode.Expanded = True
    For Each oRow In rTWData.Rows
        .Nodes.Add "root", tvwChild, oRow.Cells(1, 1).Value, oRow.Cells(1, 1).Value
        .Nodes.Add oRow.Cells(1, 1).Value, tvwChild, oRow.Cells(1, 2).Value, oRow.Cells(1, 2).Value
        .Nodes.Add oRow.Cells(1, 2).Value, tvwChild, oRow.Cells(1, 3).Value, oRow.Cells(1, 3).Value
        .Nodes.Add oRow.Cells(1, 3).Value, tvwChild, oRow.Cells(1, 4).Value, oRow.Cells(1, 4).Value
    Next
End With

Answer 1

其中一个oRow.Cells为空或是数字。

key必须是字符串（必须包含非数字字符）。

VBA树视图加载问题 - 无效密钥

1 个答案: