VBA treeview加載問題 - 無效密鑰

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必須是字符串（必須包含非數字字符）。